Access-specific

Determine if the current database is in MDE format

Public Function IsMDE() As Boolean
    'Determine if the current database is an MDE
    Dim strMDE As String
    

    On Error Resume Next
    

    strMDE = CurrentDb.Properties("MDE")
    IsMDE = (Err.Number = 0 And strMDE = "T")
End Function

Determine if the current database is running in the runtime environment

Public Function IsRuntime() As Boolean
    'Determine if the current database is running in the runtime environment
    IsRuntime = (SysCmd(acSysCmdRuntime) = True)
End Function