Hallo
ich möchte in einen Formular ein Passwort eingeben. Leider kommt immer der Laufzeitfehler 94 wenn ich keins eingebe. Ich möchte, das hier eine Nachricht erscheint, dass keine Passwort eingeben ist.
Code
Private Sub Befehl19_Click()
Dim passwort As String
Dim field As String
passwort = "bla"
field = Me.Text22.Value
Else
End If
If field = passwort Then
DoCmd.OutputTo acOutputQuery, "Abfrage_Mietverträge_MB", acFormatXLS, "Export.xls", True
ElseIf Me.Text22.Value = "" Then
MsgBox "Sie haben kein Kennwort eingegeben!"
Else
MsgBox "Sie haben ein falsches Passwort eingegeben!"
End If
End Sub
Vielen Dank für eure Hilfe
Hallo benjamin.grim
Wenn du bei dem besagten Feld keine Eingabe machst, ist es auch nicht verwunderlich das du ein Laufzeitfehler bekommst da das Feld nicht Leer sein darf. Nutze die Funktion NZ oder isnull (Beschreibung findest du unter Hilfe F1), um die nicht erfogte Eingabe abzufangen.
Hallo,
eine der Möglichkeiten...
Private Sub Befehl19_Click()
If Not IsNull(Me.Text22) Then
If Me.Text22 = "bla" Then
DoCmd.OutputTo acOutputQuery, "Abfrage_Mietverträge_MB", acFormatXLS, "Export.xls", True
Else
MsgBox "Sie haben ein falsches Passwort eingegeben!"
End If
Else
MsgBox "Sie haben kein Passwort eingegeben!"
End If
End Sub
....wobei das Hardcodieren eines Kennworts eher suboptimal - weil für jeden lesbar - ist, und Kennwortänderungen nur mit Aufwand möglich sind.
hth