Access Version Number Using Visual Basic

Version control is necessary when a shared application is utilized by many users.

Some of the users may have a lower version of Access in their computer while others may have higher versions of Access.

To keep users with a higher version of Access from upgrading and locking everyone with the lower version out of the application, use the Visual Basic code below in the form main menu open command.

To retrieve access version number used to open this application.

• 8.0 = Access 97
• 9.0 = Access 2000
• 10.0 = Access 2002(XP)
• 11.0= Access 2003

Private Sub Form_Load()

If GetVersion() <> "8.0" Then
    DoCmd.Quit
End If

End Sub

Function GetVersion() As String
    GetVersion = SysCmd(acSysCmdAccessVer)
End Function