In vielen Fällen muss man wissen, mit welcher Access-Version eine Anwendung geöffnet wurde, und auch die bislang aufgespielten Service Packs und Patches können von Bedeutung sein. Dies hilft etwa dann weiter, wenn Ihre Anwendung beim Kunden unerwartete Probleme offenbart, die auf Ihrem Entwicklungsrechner und auch auf Testsystemen nicht auftraten. Nicht jeder Kunde hält sein Office-Paket und auch Access auf dem aktuellen Stand, und das hat manchmal Folgen, wenn etwa ein Fehler auftritt, der gar nicht durch Ihre Software, sondern durch einen ungepatchten Bug in Access auftritt.

Zusammen mit dem Kunden herauszufinden, welchen Versions-, Service Pack- und Patch-Stand seine Access-Installation hat, kann mitunter langwierig sein. Viel schöner wäre es doch, wenn man diese Informationen irgendwo in der Anwendung automatisch bereitstellen könnte.

AccessVersInfo

Abhilfe schafft ein neues Tool von Sascha Trowitzsch: Es heißt AccessVersInfo und kommt als Exe-Datei, die sowohl als eigenständige Anwendung den aktuellen Versionsstand liefert als auch per Automation innerhalt einer Access-Anwendung aufgerufen werden kann. Die folgende Abbildung zeigt das Tool im Standalone-Betrieb:

Neben der Anzeige können Sie die Informationen auch gleich in eine Textdatei schreiben. Dazu rufen Sie das Tool einfach mit dem Namen der Zieldatei als Parameter auf:

AccessVersInfo.exe c:\info.txt

Noch cooler ist allerdings, dass Sie das Tool auch innerhalb von Access-Anwendungen aufrufen können. Nachdem Sie die Exe-Datei mit einem einfachen Regsvr32-Aufruf registriert haben, brauchen Sie nur einige Zeilen Code, die etwa so aussehen:

Sub DebugPrintVersions()
    Dim objVersions As Object
    Dim oVersion As Object

    Set objVersions = CreateObject("AccessVersInfo.clsAccesses")
    For Each oVersion In objVersions
        With oVersion
            Debug.Print "Version number", .Version
            Debug.Print "Description", .AccName
            Debug.Print "Is Runtime", .IsRuntime
            Debug.Print "Path", .Path
            Debug.Print "Does exist", .IsInstalled
            Debug.Print "File version", .VersNumber
            Debug.Print "Displayed version", .VersExtended
            Debug.Print "Version Office-DLL (mso.dll)", .MSOVers
            Debug.Print
        End With
    Next oVersion

    Set objVersions = Nothing
    DoEvents

End Sub

Diese Funktion schreibt die benötigten Informationen wie in der folgenden Abbildung ins Direktfenster:

Natürlich können Sie die so ermittelten Informationen auch auf beliebige andere Weise auswerten. Um auf die oben angesprochenen Anwendungen zurückzukommen, die beim Kunden laufen und dort aus unerfindlichen Gründen Fehler produzieren: Dort könnten Sie beispielsweise ein einfaches Formular unterbringen, dass der Kunde per Knopfdruck auf einen Menü- oder Ribboneintrag und das alle Versionsinformationen anzeigt.

Oder Sie werten die Informationen direkt beim Start der Anwendung aus, um dem Kunden dann mitzuteilen, dass für den reibungslosen Betrieb Ihrer Anwendung noch das eine oder andere Update nötig ist.

Im Download des Tools finden Sie das Tool selbst, eine .bat-Datei zum Registrieren des Tools, eine Readme-Datei mit weiteren Informationen sowie eine Access-Datenbank mit Beispielaufrufen.

Das Tool können Sie hier herunterladen:

Download AccessVersInfo

Hat Ihnen AccessVersInfo weitergeholfen, und wenn ja, wie? Teilen Sie uns Ihre Erfahrung doch einfach mit.