32 bit Access vs 64 bit Access - HELLLLLP!!!!

[sonic8]

I would prefer VBS file, but as mentioned by Sonic8: "VB Script is deprecated and will be removed from future version of Window".... I think I have to seriously look into the ACCDB starter app...

If you prefer a script over an Access app, you should look into Powershell.

 

[The_Doc_Man]

And if you want just a one-time test, and if there is an Access icon on the desktop, right-click that icon and click "Open File Location" to see where it is.

 

[Babycat]

you can use this code snippet to return the access path - it reads the registry

Function GetAccessExePath() As String
    Dim ws As Object
    Dim folder As String
 
    Set ws = CreateObject("WScript.Shell")
 
    On Error Resume Next
    folder = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _
                        "CurrentVersion\App Paths\MSACCESS.EXE\Path")
    On Error GoTo 0
 
    If Len(folder) > 0 Then
        If Right(folder, 1) <> "\" Then folder = folder & "\"
        GetAccessExePath = folder & "MSACCESS.EXE"
    Else
        GetAccessExePath = ""
    End If
End Function

This returns for 64bit something like this
C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE

32bit will be in
C:\Program Files (x86)\.......

Hi CJ_London

Is this VBA code run by Access? My goal is getting full path of Access to run my app with Access runtime. That means Access not running this moment...

 

[Babycat]

If you prefer a script over an Access app, you should look into Powershell.

ChatGPT has helped me to convert my VBS to Powershell... Will test it soon.

 

[CJ_London]

Is this VBA code run by Access?

My example does, but can run in any app that uses vba such as excel or word - the other thing you need to consider is whether the app is in a trusted location (for the app that is running it) otherwise the code won’t run

 

[tvanstiphout]

folder = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _
"CurrentVersion\App Paths\MSACCESS.EXE\Path")

Note that access to HKLM is not allowed in environments where the user is not a local administrator, unless the app is running with elevated permissions (run as Administrator).
And in this particular case, the same path under HKCU (which such users would have access to) is not populated.

 

[sonic8]

Note that access to HKLM is not allowed in environments where the user is not a local administrator,

*Reading* HKLM is not a problem for non-admin users.

 

[sonic8]

Is this VBA code run by Access

It is, but can be converted to VBscript with minimal effort.

 

[CJ_London]

why convert to vbscript when it is to be deprecated?

if you are using a .accdb as a loader app you could use something like

Select case SysCmd(acSysCmdAccessDir) like "C:\Program Files\*"
    case true 'access is 64bit
        'install 64bit accde

    case false 'access is 32bit
        'install 32bit accde
end select
'open accde
'close this accdb
'delete this accdb

 

[isladogs]

Rather than check the installation folder, I would just test for Office bitness using the Win64 compilation constant
Win64 is True when VBA is running in a 64-bit Office environment.
It is False when running in 32-bit Office, even if the operating system itself is 64-bit.

So I just use this function from any Office app that supports VBA.

Function IsOfficex64()
'checks if Office is 32 or 64 bit

#If Win64 Then
  IsOfficex64 = "64-bit"
#Else
  IsOfficex64 = "32-bit"
#End If

'Debug.Print IsOfficex64

End Function

So adapting the code in the last post, the starter app can just do something like this when it loads:

#If IsOffice64 Then
   'install 64bit accde
Else 
   'install 32bit accde
End If
'open accde
'close this accdb
'delete this accdb

Or do it in one step without the function:

#If Win64 Then
   'install 64bit accde
#Else 
   'install 32bit accde
#End If
'open accde
'close this accdb
'delete this accdb

 

[sonic8]

why convert to vbscript when it is to be deprecated?

Because the OP has in VBScript in use already, and the conversion can be done in seconds while the deprecation will take several years.

 

[arnelgp]

you get the access path:

syscmd(acSysCmdAccessDir) & "msaccess.exe"