Version... example for Access 2.0

This example puts the version information into a string and displays the string in a message box.

If Me![LEAD1].Object.VersionLevel = VERSIONLEVEL_EXP Then
    LevelStr = "Document/Medical "
Else
    LevelStr = "Professional Edition"
End If

cMsg = Me![LEAD1].Object.VersionProduct + Chr(13) + LevelStr + Chr(13)
cMsg = cMsg + "Version: " + CStr(Me![LEAD1].Object.VersionMajor) + "."
cMsg = cMsg + CStr(Me![LEAD1].Object.VersionMinor) + Chr(13)
cMsg = cMsg + "Date produced: " + Me![LEAD1].Object.VersionDate + Chr(13)
cMsg = cMsg + "Time produced: " + Me![LEAD1].Object.VersionTime + Chr(13)
' Display the message box
MsgBox cMsg, 0, "Version Info"