Location of Access 2

[ajs1952]

I need to be able to read the registry and find the location of Access. I know this is possible in VBA but I don't know which key to read. If anyone out there has got a code fragment to do this I would be very grateful.

Thanks

Tony

 

[Ed2020]

Tony,

This code works on my PC, ymmv:

Public Function Access_Path() As String
    Access_Path = Path(Access.References(2).FullPath) & "MSAccess.exe"
End Function


Private Function Path(ByVal strFilePath As String) As String
    Dim intLastSlash As Integer
    Dim pntr As Integer: pntr = 1
    
    intLastSlash = InStrRev(strFilePath, "\")
    
    Path = Left(strFilePath, Len(strFilePath) - (Len(strFilePath) - intLastSlash))
End Function

Ed Metcalfe.

Please do not feed the trolls.....

 

[Remou]

You can also use:

Application.SysCmd(acSysCmdAccessDir)

 

[Ed2020]

Remou,

I thought there'd be any easier way! Have a star.

Ed Metcalfe.

Please do not feed the trolls.....