|
Willkommen bei TKSoft-Online |
 |
 |
 |
|
Geschrieben von: TommyK
|
|
Dienstag, den 18. Dezember 2007 um 01:00 Uhr |
|
Herzlich Willkommen auf TKSoft-Online.de
Diese Site beschäftigt sich vorrangig mit dem Thema MS-Access und etwas VB6.
Alle hier vorgestellten Codes und Bsp-DB's sind in der Regel Freeware.
Bei Ausnahmen wird darauf hingewiesen.
Einige Hinweise:
Die Website ist durch Bot-Trap gegen Webspam geschützt.
1. User die sich neu registrieren, müssen eine gültige
EMailAdresse angeben da an diese das Aktivierungsmail geht.
Sollte wider Erwarten das Aktivierungsmail nicht kommen dann meldet
Euch mittels des Kontaktformulars.
Wenn Ihr interessante Beiträge habt die veröffentlicht werden sollten oder vielleicht
Beispiel-Dateien die allen Usern zur Verfügung gestellt werden können dann meldet Euch bei mir.
Über den Button könnt Ihr Kontakt mit mir aufnehmen und auch Zip- oder Rar-Dateien
bis 1 MB an mich senden.
Daneben übernehme ich auch vollständige oder Teilprojekte und auch die Fortsetzung von Projekten
in MS-Access.
|
|
Aktualisiert ( Donnerstag, den 11. November 2010 um 14:11 Uhr )
|
|
|
Access Version und Servicepack ermitteln |
|
|
|
|
Geschrieben von: TommyK
|
|
Donnerstag, den 27. Oktober 2011 um 00:00 Uhr |
|
Problemstellung:
Wie ermittle ich die Access Version und das installierte Servicepack?
Der Originalcode stammt von Smarttools - AddIn-World
und wurde von mir um das SP3 (+Hotfix) für A03 und A07, A07+SP1, A07+SP2, A07+SP3, A10, A10 +SP1 erweitert.
Die Funktion nutzt den undokumentierten Aufruf "715" von SysCmd.
Update 27.10.2011: A07 SP3 hinzugefügt
Update 03.07.2011: A10 SP1 hinzugefügt
Update 10.11.2010: A10 hinzugefügt
Update 20.05.2009: A07 SP2 hinzugefügt
Public Function GetAccVersAndSP() As String
Dim sVers As String, sSP As String
Select Case Val(SysCmd(acSysCmdAccessVer))
Case 9 'Access 2000
sVers = "Access 2000"
Select Case SysCmd(715)
Case 2719: sSP = "Kein SP!"
Case Is >= 6620: sSP = "SP-3"
Case Is >= 4506: sSP = "SP-2"
Case Is >= 3822: sSP = "SP-1"
Case Else: sSP = "Unbekanntes SP !"
End Select
Case 10 'Access 2002/XP
sVers = "Access 2002/XP"
Select Case SysCmd(715)
Case 2627: sSP = "Kein SP!"
Case Is >= 6501: sSP = "SP-3"
Case Is >= 4302: sSP = "SP-2"
Case Is >= 3409: sSP = "SP-1"
Case Else: sSP = "Unbekanntes SP !"
End Select
Case 11 'Access 2003
sVers = "Access 2003"
Select Case SysCmd(715)
Case 5614: sSP = "Kein SP!"
Case Is >= 8204: sSP = "SP-3 + Hotfix"
Case Is >= 8166: sSP = "SP-3"
Case Is >= 6566: sSP = "SP-2"
Case Is >= 6355: sSP = "SP-1"
Case Else: sSP = "Unbekanntes SP !"
End Select
Case 12 'Access 2007
sVers = "Access 2007"
Select Case SysCmd(715)
Case 4518: sSP = "Kein SP!"
Case Is >= 6603: sSP = "SP-3"
Case Is >= 6423: sSP = "SP-2"
Case Is >= 6211: sSP = "SP-1"
Case Else: sSP = "Unbekanntes SP !"
End Select
Case 14 'Access 2010
sVers = "Access 2010"
Select Case SysCmd(715)
Case 4750: sSP = "Kein SP!"
Case Is >= 6023: sSP = "SP-1"
Case Else: sSP = "Unbekanntes SP !"
End Select
End Select
GetAccVersAndSP = sVers & ", " & sSP
End Function
Aufruf:
MsgBox GetAccVersAndSP
Das Ergebnis:
|
|
Aktualisiert ( Freitag, den 28. Oktober 2011 um 06:38 Uhr )
|
|
|
United States
Unknown
Unknown Bot
