24.03.2023, 15:03
Moin zusammen,
ich habe hier ein Quellcode der soweit funktioniert.
Ich möchte gerne wenn dieser positiv Beendet wird das eine Meldung ausgegeben das die Eingabe OK ist.
Meine versuche scheitern leider.
Gruß Jürgen.
Private Sub cmb_Pruefung_Click()
Dim steuerelement As Control
For Each steuerelement In Me.Controls
If TypeName(steuerelement) = "TextBox" Then
If steuerelement.Text = "" Then
MsgBox "Das Feld: """ & steuerelement.Tag & """ dart nicht leer bleiben.", vbExclamation, "Hinweis!"
steuerelement.SetFocus
Exit Sub
End If
End If
Next
If Not InStr(Me.txt_E_Mail_Adresse, "@") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_E_Mail_Adresse.Tag & """ Es fehtl ein @-Zeichen.", vbExclamation, "Hinweis"
End If
If Not InStr(Me.txt_Webadresse, ".") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_Webadresse.Tag & """ Es fehtl ein Punkt.", vbExclamation, "Hinweis"
End If
End Sub
ich habe hier ein Quellcode der soweit funktioniert.
Ich möchte gerne wenn dieser positiv Beendet wird das eine Meldung ausgegeben das die Eingabe OK ist.
Meine versuche scheitern leider.
Gruß Jürgen.
Private Sub cmb_Pruefung_Click()
Dim steuerelement As Control
For Each steuerelement In Me.Controls
If TypeName(steuerelement) = "TextBox" Then
If steuerelement.Text = "" Then
MsgBox "Das Feld: """ & steuerelement.Tag & """ dart nicht leer bleiben.", vbExclamation, "Hinweis!"
steuerelement.SetFocus
Exit Sub
End If
End If
Next
If Not InStr(Me.txt_E_Mail_Adresse, "@") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_E_Mail_Adresse.Tag & """ Es fehtl ein @-Zeichen.", vbExclamation, "Hinweis"
End If
If Not InStr(Me.txt_Webadresse, ".") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_Webadresse.Tag & """ Es fehtl ein Punkt.", vbExclamation, "Hinweis"
End If
End Sub