wenn Prüfung Fehler ergibt, dann Access schließen, ansonsten ....

[derilzemer]

Hallo zusammen,

mit Unterstützung eines Arbeitskollegen (welcher aber aktuell nicht mehr greifbar ist) habe ich innerhalb eines VBA Teils eine Prüfung einer ID vom Rechner, welche klappt. Jedoch bekomme ich es nicht hin, dass er bei false Access schließt. Der bestimmte Codeteil ist

Code [Auswählen] Erweitern

Dim licenseID As String
   
    testID = MacID()

    If Not QuerytestID(MacID) Then
        MsgBox "Die MAC Adresse ist falsch!"
    End If

    Set db = CurrentDb()........

Was muss man machen, damit er nach dem festgestellt wurde, dass es die falsche MAC Adresse ist, Access auch geschlossen wird. Wenn die MAC Adresse stimmt, muss es ja mit else weitergehen. Sähe das in etwa so aus?

Code [Auswählen] Erweitern

If QueryLicenseID(licenseID) Then
        Else
         If Not QueryLicenseID(licenseID) Then
        MsgBox "Sie haben keine Lizenz!", vbCritical
                Application.Quit
>>>>was muss hier folgen statt einem End if, damit Access auch wirklich schließt, ist das vbCritical Application.Quit korrekt??<<<<<
    Set db = CurrentDb()
    ' Datenbankpfad auslesen.................

Vielen Dank für die Hilfe
Gruß Andreas

[DF6GL]

Hallo,


.
.
.
If  QuerytestID(MacID) Then
.
.
.
Else
       MsgBox "Die MAC Adresse ist falsch!"
       Docmd.Close
       Application.Quit
End If

[derilzemer]

Hallo Franz,
danke für die Hilfe, funktioniert.
Grüße aus der Pfalz
Andreas