Access doesn't close properly. A remaining background process can only be terminated in task manager

Hi,

---

waldruff wrote:

@Gambler Interesting.  I am experiencing the same problem this week (Sept 2024).  Made the application file folder a trusted location and Viola'.  You would think the problem would have been fixed by now.

---

If you are responding to or referring to an old discussion post from 2022 (or May 2024), please note this again:

This thread is old and refers to a problem in 2022 that was fixed at the time. Then there are some posts about a problem in May 2024 that was also fixed.

Unfortunately, such old threads are often continued when a similar problem arises. This is confusing for many people.

Now, in Aug/Sep 2024, there is a new problem with similar symptoms. The causes are different, the fix is different. Details can be found in our current documenting article on AFo.

Servus
Karl
****************
Access Forever, News, DevCon
Access-Entwickler-Konferenz AEK - 19./20.10. Nürnberg

> Or will Microsoft come with a repair update soon? 

Yes, if nothing goes wrong, we can expect that very soon.

Servus
Karl
************
Access News
Access DevCon

    Function addTrustedLocation(strFolder As String, strLocationDescription As String, blnAllowSubFolders As Boolean, strOfficeApp As String, strOfficeVersion As String) As Boolean
'(developed july 2019 by Gert De Wilde)
        addTrustedLocation = False
        Const HKEY_CURRENT_USER = &H80000001
        Dim strParentKey As String, intLocCounter As Long, objRegistry As Object, varChildKey, arrChildKeys
        Dim strNewKey As String, tmpValue As String, keyAvailable As Boolean, lngStep As Long

        On Error GoTo Hdl

            lngStep = 10
            tmpValue = ""


            Select Case strOfficeApp
                Case "Word"
                    'strParentKey = "Software\Microsoft\Office\14.0\Word\Security\Trusted Locations"
                    strParentKey = "Software\Microsoft\Office\" & strOfficeVersion & "\Word\Security\Trusted Locations"

                Case "Excel"
                    'strParentKey = "Software\Microsoft\Office\14.0\Excel\Security\Trusted Locations"
                    strParentKey = "Software\Microsoft\Office\" & strOfficeVersion & "\Excel\Security\Trusted Locations"
                Case "Access"
                    'strParentKey = "Software\Microsoft\Office\14.0\Access\Security\Trusted Locations"
                    strParentKey = "Software\Microsoft\Office\" & strOfficeVersion & "\Access\Security\Trusted Locations"
                Case Else
                    'MsgBox("The application you specified is not covered by this procedure", , "Trusted location definition")
                    Exit Function
            End Select


            intLocCounter = 0
            lngStep = 15

            'objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
            Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") '10jul19
            
            lngStep = 20
            Call objRegistry.EnumKey(HKEY_CURRENT_USER, strParentKey, arrChildKeys)
            lngStep = 25
            If Not isArray(arrChildKeys) Then
                'the Trusted Location folder does not exist and needs to be created
                ' if only Acces Runtime is available, then the 'Trusted Locations' node does not yet exist
                'so create this node (will not cause error if already available) and one childkey
                'just to assure a childkey collection
                Call objRegistry.CreateKey(HKEY_CURRENT_USER, strParentKey)
                Call objRegistry.CreateKey(HKEY_CURRENT_USER, strParentKey & "\Location9")
                Call objRegistry.SetStringValue(HKEY_CURRENT_USER, strParentKey & "\Location9", "Path", strFolder)
                objRegistry = Nothing
                arrChildKeys = Nothing
                Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
                Call objRegistry.EnumKey(HKEY_CURRENT_USER, strParentKey, arrChildKeys)

            End If

            lngStep = 26
            If isArray(arrChildKeys) Then
                'if a key with the specified path aleady exists, delete this key to be replaced
                For Each varChildKey In arrChildKeys
                    lngStep = lngStep + 1
                    Call objRegistry.GetStringValue(HKEY_CURRENT_USER, strParentKey & "\" & varChildKey, "Path", tmpValue)
                    'Console.WriteLine(tmpValue)
                    If tmpValue = strFolder Then
                        Call objRegistry.DeleteKey(HKEY_CURRENT_USER, strParentKey & "\" & varChildKey)
                    End If

                Next
            End If



            lngStep = 30
            'refresh the array in case one has been deleted
            Call objRegistry.EnumKey(HKEY_CURRENT_USER, strParentKey, arrChildKeys)

            'keep track of child key numbering
            'missing holes should be filled so look for the first available locationX

            'first look if a slot between 0 and 9 is available

            If Not isArray(arrChildKeys) Then
                intLocCounter = 0
                keyAvailable = True
            Else
                If isArray(arrChildKeys) Then 'if no childkey array, skip this check
                    For intLocCounter = 0 To 9
                        keyAvailable = True
                        For Each varChildKey In arrChildKeys
                            If CInt(Mid(varChildKey, 9)) = intLocCounter Then keyAvailable = False
                        Next
                        If keyAvailable = True Then Exit For
                    Next
                End If
            End If

            lngStep = 40


            'else take the next available
            If keyAvailable = False Then
                For Each varChildKey In arrChildKeys
                    If CInt(Mid(varChildKey, 9)) > intLocCounter Then
                        intLocCounter = CInt(Mid(varChildKey, 9))
                    End If
                Next
                intLocCounter = intLocCounter + 1
            End If

            'now choose the key
            strNewKey = strParentKey & "\Location" & CStr(intLocCounter)


            lngStep = 50

            Call objRegistry.CreateKey(HKEY_CURRENT_USER, strNewKey)
            Call objRegistry.SetStringValue(HKEY_CURRENT_USER, strNewKey, "Path", strFolder)
            Call objRegistry.SetStringValue(HKEY_CURRENT_USER, strNewKey, "Description", strLocationDescription)

            If blnAllowSubFolders Then
                Call objRegistry.SetDWORDValue(HKEY_CURRENT_USER, strNewKey, "AllowSubFolders", 1)
            End If

            lngStep = 60

            addTrustedLocation = True
           

Exit Function
Hdl:

            
            MsgBox ("Error creating trusted location " & strFolder & " in step " & lngStep & " : " & Err & " " & Err.Description)
            


    End Function

Cornelis77 You can add trusted locations with VBA code, from within your application. They can be written as registry keys. I once spent a day to create the VBA function addTrustedLocation below. In short, it checks if the specified location already exists and if not, creates it. Note that your environment may block the creation of trusted locations on the network.   

Thank you Gert for your code "addTrustedLocation". It looks like it disappeared here. But I catched it anyway. This will help me a great deal 🙂
A shame that others can not benefit from it now.

- 1 hour later -
Your post + VBA code has re-appeared !
NB : in the last msgbox call there should be "& Err &" instead of "& Err&"

The trusted location worked to allow the database to function.
However I now see that sending email from the database is still affected.

"error 2146697203 The specified protocol is unknown"

Any suggestions that may temp fix this?

Thanks

GreatDaneMusic825 

Making the database folder location worked for me. Thanks for the tip.

TRUSTED LOCATION WORKED FOR ME TOO !!!!!!
THANK YOU SO MUCH NiteOwl

Hi,

Meanwhile, I've seen more reports that putting the database in a Trusted Folder would help. So, anyone who has problems with build 16.0.14827.20158 could try this and please report if it helped for you too. That way we can determine how generally applicable this workaround is, as various errors/problems caused by this build have been reported.

BTW If you only have the Runtime and/or don't want to write reg scripts etc. you can also use the small tool AddPath2016.exe from Gunter Avenius to define a Trusted Folder.

Servus
Karl
************
Access News
Access DevCon

NiteOwl 

The problem: Access closes normally but will not reopen giving an error message saying something about you do not have permission..."

NiteOwl's Solution solution fixed the problem for me on 2022-12-15.

The solution is here:
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

Here is the post to look for:

NiteOwl replied to NiteOwl:
------------------------------
‎Feb 03 2022 10:34 AM

You can also somewhat automate it by creating a .reg script or using group policy. The settings you need are:
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations\DBLocation]
"Path"="C:\\DBFolder\\"
"AllowSubfolders"=dword:00000001
"Description"="Local DB Folder"
"Date"="2/2/2022 7:44 PM"

Prior to this patch, files in the Users\username\AppData folder were allowed but now they are being treated differently. It may be true for other locations as well.
------------------

The post be NiteOwl would not run as a .reg file. But it works: I opened regedit and manually created the key DBLocation at the end of the path cirted by NiteOwl. Then I manually created the sub keys and set the values he listed being careful to set the datatype of each value to match those observed in existing keys created in Trusted Locations.