Laufzeitfehler 94

[benjamin.grimm]

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

[Stapi]

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.

[database]

Hallo,

eine der Möglichkeiten...

Code [Auswählen] Erweitern


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