Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1073016
HeuteHeute489
GesternGestern1118
Diese WocheDiese Woche2677
Dieser MonatDieser Monat13554
GesamtGesamt1073016
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 233294
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 62 Members: 0 Guests: 62
No members online
   

Beiträge

Access Version und Servicepack ermitteln

Bewertung:  / 4
SchwachSuper 
Details

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, A10 +SP2, A13, A13 +SP1 erweitert.
Die Funktion nutzt den undokumentierten Aufruf "715" von SysCmd.

Update 28.02.2014: A13 SP1 hinzugefügt
Update 14.08.2013: A10 SP2 hinzugefügt

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 >= 7015: sSP = "SP-2"
                Case Is >= 6023: sSP = "SP-1"
                Case Else: sSP = "Unbekanntes SP !"
            End Select
        Case 15    'Access 2013
            sVers = "Access 2013"
            Select Case SysCmd(715)
                Case 4420: sSP = "Kein SP!"
                Case Is >= 4569: sSP = "SP-1"
                Case Else: sSP = "Unbekanntes SP !"
            End Select
    End Select
    GetAccVersAndSP = sVers & ", " & sSP

End Function

 

Aufruf:

MsgBox GetAccVersAndSP

Das Ergebnis:

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.

Personen in dieser Konversation

  • Gast - MarttinS

    Hallo TommyK!
    Warum kommt die Fehlermeldung "... Objekt oder Klasse unterstützt diese Ereignismenge nicht.
    Bei Dir kommt eine msgbox!
    Martin

    Kommentar zuletzt bearbeitet am vor 4 Jahren von Tommy Admin
  • Hallo Martin,
    wo hast den Code hin kopiert und wie heißt das Modul?
    Das Modul darf nicht den gleichen Namen wie eine enthaltende Funktoin!
    In welcher Zeile beibt der Code stehen?
    Gruß Tommy

    Kommentar zuletzt bearbeitet am vor 4 Jahren von Tommy Admin