Private Sub Payroll_RK_Click() Dim abfrage As String abfrage = InputBox("Geben Sie das Passwort ein:") If abfrage = "Admin" Then MsgBox "Richtig" Me!Payroll_RK.SetFocus Else MsgBox "Falsch" End If End Sub
If RegStripTest.Value = 0 Then abfrage = InputBox("Geben Sie das Passwort ein:") If abfrage = "Admin" Then MsgBox "Richtig" Me!Seite1.SetFocus Else MsgBox "Falsch" End If End If
58.4k Fragen
249k Antworten
7k Nutzer