Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
SELECT
DCount("*","tblKarten","ID<=" & [ID]) AS LfdNr,
Wertung
FROM tblKarten
ORDER BY ID;'If Not CheckEingabe(True) Then Exit Sub--> stillsetzen' Beim Öffnen: Hash prüfen
' If Not bAbschliessen Then
' sPruefHash = GetProp(db, "LockKeyHash", "")
' If sPruefHash <> GetSHA256(sEingegebenerKey) And sPruefHash <> "" Then
' db.Close
' UpdateStatus "Falscher Schlüssel!", vbRed
' MsgBox "Falscher Schlüssel!", vbCritical
' Me.txtKey.SetFocus
' Me.txtKey.SelStart = 0
' Me.txtKey.SelLength = Len(Me.txtKey)
' Exit Sub
' End If
'End If
Call SetProp(db, "AllowBypassKey", Not bAbschliessen)
Call SetProp(db, "AllowSpecialKeys", Not bAbschliessen)
Call SetProp(db, "AllowFullMenus", Not bAbschliessen)
Call SetProp(db, "AllowShortcutMenus", Not bAbschliessen)
Call SetProp(db, "AllowBuiltInToolbars", Not bAbschliessen)
Call SetProp(db, "AllowToolbarChanges", Not bAbschliessen)
Call SetProp(db, "StartupShowDBWindow", Not bAbschliessen)
Call SetProp(db, "StartupShowStatusBar", Not bAbschliessen)
...
die oben mit Hochkommas eingeleitetetn Zeilen ebenfalls stillsetzen arrBlacklist = Array("passwort", "password", "123456789012", "qwertzuiopü", "administrator")
Zitat von: Debus am Juni 08, 2026, 14:51:23Vielleicht macht das ja auch noch spaß
Holger