Also ich hab nochmal von vorne angefangen, es sieht jetz so aus:
Private Sub Command1_Click()
If Text1 = "Test" And text2 = "test" Then
MsgBox ("Zugang gewährt")
Form2
Exit Sub
Else: MsgBox ("Username / Passwort falsch oder nicht bekannt")
End If
End Sub
Ich führ ihn aus, dann bekomm ich die Fehlermeldung und dann siehts so aus:
Private Sub Command1_Click()
If Text1 = "Test" And text2 = "test" Then
MsgBox ("Zugang gewährt")
Form2
Exit Sub
Else: MsgBox ("Username / Passwort falsch oder nicht bekannt")
End If
End Sub
|