Dim Mldg, Titel, Voreinstellung, Wert1, stDocName
stDocName = "frmStart"
Mldg = "Bitte das erforderliche Kennwort eingeben"
Titel = "Kennwort Eingabe"
Voreinstellung = "*****"
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
If Wert1 = "Dein Kennwort" Then
Me.AllowEdits = True
Farbcode.SetFocus
Else
MsgBox " Sie haben keine Berechtigung Daten in diesem Datenbanksystem zu verändern. Wenden Sie sich bitte an den Datenbank Administrator. "
DoCmd.Close
DoCmd.OpenForm stDocName
End IfPrivate Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = MsgBox("Datensatz speichern?", vbYesNo + vbQuestion, "Frage") = vbNo
End Sub
acess problem
........ 18.12.2007 - 75 Hits - 1 Antwort
Acess Dateneingabe ist auf 10 beschränkt
Hofmann 27.03.2008 - 46 Hits - 1 Antwort
Acess Datenbank erstellen - Anfänger
taco100 07.10.2008 - 18 Hits - 1 Antwort
Acess Datensätze ohne Duplikate zählen
Franki82 05.03.2009 - 707 Hits - 5 Antworten