Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function JetVer(ByVal strPath As String) As Double
On Error GoTo TrapErr
Dim dbs As DAO.Database
Set dbs = OpenDatabase(strPath)
JetVer = dbs.Version
ExitHere:
Exit Function
TrapErr:
Select Case Err.Number
Case 3033 'Secured database
JetVer = 0
Case Else
JetVer = 9999
End Select
Resume ExitHere
End Function