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
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?
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
Hallo,
.
.
.
If QuerytestID(MacID) Then
.
.
.
Else
MsgBox "Die MAC Adresse ist falsch!"
Docmd.Close
Application.Quit
End If
Hallo Franz,
danke für die Hilfe, funktioniert.
Grüße aus der Pfalz
Andreas