<\/p>\n
![\"Fehlerhaft](\"..\/fileadmin\/_temp_\/2020_03\/pic_1239_002.png\")
<\/p>\n
Bild 1: Fehlerhaft markierte API-Deklarationen<\/span><\/b><\/p>\n Access kann ab Version 2010 auch als 64-Bit-Variante installiert werden. Ab Version 2019 ist 64-Bit die Voreinstellung bei der Installation. Wir stellen in dieser Beitragsreihe die Änderungen vor, die für die Verwendung verschiedener oft genutzter VBA-Prozeduren und Komponenten unter der 64-Bit-Version nötig sind. Dabei wollen wir auch dafür sorgen, dass diese unter der 32-Bit-Version von Access älter als 2010 ebenfalls noch laufen. Den Anfang machen wir mit der 64-Bit-Version der in vielen Beispiellösungen verwendeten Funktion zum Ermitteln von GUIDs.<\/b><\/p>\n Wenn Sie die alte Version unter Access in der 64-Bit-Version kompilieren wollen, stoßen Sie schnell auf einige der Inkompatibilitäten, und zwar noch vor dem Kompilieren. Die beiden API-Funktionen CoCreateGuid <\/b>und StringFromGUID2 <\/b>werden rot angezeigt (siehe Bild 1).<\/p>\n Bild 1: Fehlerhaft markierte API-Deklarationen<\/span><\/b><\/p>\n Damit sich das ändert, fügen Sie zwischen die beiden Schlüsselwörter Declare <\/b>und Function <\/b>das Schlüsselwort PtrSafe <\/b>ein:<\/p>\n Damit entfällt bereits die rote Markierung dieser Funktionsdeklarationen und Sie können den Befehl Debuggen|Kompilieren von Dieser liefert einen Kompilierfehler für den Aufruf der Funktion StringFromGUID2<\/b>, wo für den zweiten Parameter eine Typunverträglichkeit angezeigt wird. Dies ändern wir, indem wir den Typ des zweiten Parameters in der Deklaration der API-Funktion StringFromGUID2 <\/b>von Long <\/b>in LongPtr <\/b>ändern:<\/p>\n <\/p>\n Danach lässt sich die Funktion kompilieren und wir können diese mit dem folgenden Befehl im Direktbereich des VBA-Editors aufrufen:<\/p>\n Probleme gibt es nun nur noch, wenn Sie diese Funktion in Access-Versionen verwenden, die noch kein VBA 7 enthalten, sondern VBA 6. Dann müssen Sie noch eine Unterscheidung einfügen, die prüft, welche VBA-Version vorliegt und die entsprechende Deklaration der API-Funktionen einsetzt.<\/p>\n Dabei verwenden wir die sogenannten Compiler-Konstanten. Es gibt beispielsweise die Konstanten VBA6 <\/b>und VBA7<\/b>. VBA6 <\/b>liefert den Wert True<\/b>, wenn VBA 6 verwendet wird. VBA7 <\/b>liefert den Wert True<\/b>, wenn VBA 7 zum Einsatz kommt.<\/p>\n Nur VBA 7 unterstützt die 32-Bit-Version der API-Befehle und die 64-Bit-Version der API-Befehle parallel. Daher prüfen wir in einer If…Then<\/b>-Bedingung, ob VBA7 <\/b>den Wert True <\/b>liefert. Falls ja, deklarieren wir die 64-Bit-Version der API-Funktionen, andernfalls die 32-Bit-Version (siehe Bild 2).<\/p>\n Bild 2: API-Deklaration für 32- und 64-Bit<\/span><\/b><\/p>\n Aber Deklarationen in einer If…Then<\/b>-Bedingung Wir verwenden hier keine normale If…Then<\/b>-Bedingung, sondern eine, die festlegt, welche Teile des Codes überhaupt kompiliert werden. Die einzelnen Anweisungen der If…Then<\/b>-Bedingung werden daher mit den Schlüsselwörtern #If … Then<\/b>, #Else <\/b>und #End If <\/b>ausgeführt. Das sieht schließlich wie folgt aus:<\/p>\n<\/p>\nPrivate <\/span>Declare PtrSafe Function CoCreateGuid Lib \"ole32.dll\" (tGUIDStructure As <\/span>GUID) As Long<\/span>\r\nPrivate <\/span>Declare Function StringFromGUID2 Lib \"ole32.dll\" (rGUID As <\/span>Any, ByVal lpstrClsId As Long<\/span>, ByVal cbMax As Long<\/span>) As Long<\/span><\/pre>\nPrivate <\/span>Declare Function StringFromGUID2 Lib \"ole32.dll\" (rGUID As <\/span>Any, ByVal lpstrClsId As Long<\/span>Ptr, ByVal cbMax As Long<\/span>) As Long<\/span><\/pre>\nDebug.Print<\/span> CreateGUID\r\n{058FB0DE-A528-41B9-8AE0-F19DA8FD27F6}<\/pre>\n![\"API-Deklaration](\"..\/fileadmin\/_temp_\/2020_03\/pic_1239_001.png\")
<\/p>\n#If <Bedingung> Then\r\n '... Anweisungen\r\n#Else\r\n '...Anweisungen\r\n#End If<\/pre>\n