In Datenbanklösungen, die in mehreren Access-Versionen eingesetzt werden, haben Sie bislang die aktuelle Version über "SysCmd()" abfragen müssen. Diese Möglichkeit steht zwar in Access 2002 weiterhin zur Verfügung, zur Vereinfachung können Sie jetzt aber, analog zu den VBA-Implementationen in anderen Office-Anwendungen, die Eigenschaft "Application.Version" abfragen. Das Ergebnis ist vom Datentyp "String" im Format "Major.Minor", liefert also beispielsweise "10.0" zurück. Die folgenden Funktionen, abgelegt in einem globalen Modul, vereinfachen das Auslesen der Versions-Informationen:

Die Funktion "AccVers()" liefert lediglich den Inhalt von "Application.Version", spart aber eine Menge Tipparbeit:

Function AccVers() As String
  AccVers = Application.Version
End Function

Um gezielt die Haupt-Version (Major Version Number) abzufragen, benutzen Sie die Funktion "MajVers()":

Function MajVers() As Integer
  Dim strVers As String

  strVers = Application.Version
  MajVers = CInt(Left$(strVers, _
                 InStr(strVers, ".") - 1))
End Function

Analog dazu liefert die Funktion "MinVers()" die Unter-Version (Minor Version Number):

Function MinVers() As Integer
  Dim strVers As String

  strVers = Application.Version
  MinVers = CInt(Mid$(strVers, _
                 InStr(strVers, ".") + 1))
End Function

Wenn Sie eine noch feinere Unterscheidung benötigen, können Sie auf die Eigenschaft "Application.Build" zugreifen:

Function AccBuild() As Long
  AccBuild = Application.Build
End Function

Zum Abschluss dann noch die Funktion "AccVersBuild()", die einen Klartext der Form "Version 10.0, Build 1234" liefert:

Function AccVersBuild() As String
  AccVersBuild = "Version " & Version & _
                 ", Build " & Build
End Function

Diese Funktion leistet beispielsweise in Formularen, einem Textfeld als Formel "=AccVersBuild()" über die Eigenschaft "Steuerelementeinhalt" zugewiesen, nützliche Dienste, um versionsbedingte Probleme zu klären.