How to check if a database is .mde in access 2000

[insomniux]

Hi,
I need to check if a database is an .mde version (end user gets other
menus's). In previous access versions the CurrentDB.properties("MDE")
property seemed to work, but I clould not find this property in Access
2000.
Is it possible to check if the databse is .mde in 2000 other than
extracting the .mde part from the name (is risky AFAIC).
Thanks,

[Allen Browne]

Examining Properties("MDE") of the Database should work if the database is
an MDE.

Public Function IsMDE(strDB As String) As Boolean
On Error GoTo Err_Handler
'Purpose: Retutn True if this is an MDE.
Dim db As DAO.Database

Set db = DBEngine.OpenDatabase(strDB)
If db.Properties("MDE") = "T" Then
IsMDE = True
End If
db.Close
Set db = Nothing

Exit_Handler:
Exit Function

Err_Handler:
Call LogError(Err.Number, Err.Description, conMod & ".IsMDE")
Resume Exit_Handler
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"insomniux" <di*******@bosschaert.org> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

Hi,
I need to check if a database is an .mde version (end user gets other
menus's). In previous access versions the CurrentDB.properties("MDE")
property seemed to work, but I clould not find this property in Access
2000.
Is it possible to check if the databse is .mde in 2000 other than
extracting the .mde part from the name (is risky AFAIC).
Thanks

[insomniux]

Thanks Allan,
I did not realize that the database had actually to be compiled into a
..mde for this property to be present. I thought this property wourld
also be present in the .mdb and would return False.