Access-o-Mania

Hi Forum,

ich möchte wenn ein Kontrollkästchen aktiviert wurde das deaktivieren mit einem Password schützen...
Private Sub LOOCKED_Click()
If Me.LOOCKED.Value = -1 Then
Me.Deatils.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
------- Hier soll dann die Password abfrage... ------
Me.Deatils.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
End If
End Sub
bisher sind alle versuche kläglich gescheitert weil
Private Sub LOOCKED_Click()
Dim passwort As String
If Me.LOOCKED.Value = -1 Then
Me.Deatils.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
passwort = InputBox("Sifre!")
If passwort = "unlock" Then
Me.Deatils.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
Else MsgBox ("Yanlis!")
End If
End If
End Sub
da fehlt mir gerade bissel die logik

Grüsse JD

Ok,

hab es hin bekommen :D
Private Sub LOOCKED_Click()
If Me.LOOCKED.Value = -1 Then
Me.Details.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
passwort = InputBox("Sifre!")
If passwort = "unlock" Then
Me.Details.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
Else: MsgBox ("Yanlis!")
End If
End If
End Sub
Grüsse JD

Hallo,
dass hier Groß und Kleinschriebung nicht beachtet wird ist Dir klar ?

???
ich kann alles kleinschreiben?

grüsse JD

Hallo,
Du kannst das Passwort schreiben wie du willst, groß, klein, gemischt, wird immer als richtig erkannt (wenn es stimmt).

Zitat von: MzKlMu am Februar 29, 2024, 10:37:33Du kannst das Passwort schreiben wie du willst, groß, klein, gemischt, wird immer als richtig erkannt (wenn es stimmt).

Wenn man das nicht möchte, kann man für den Vergleich die StrComp-Funktion mit der VbCompareMethod.vbBinaryCompare verwenden.

aso, ja danke... gut zu wissen :D

grüsse JD