Private Sub cmb_Pruefung_Click()
Dim st_ele As Control
For Each st_ele In Controls
If TypeName(st_ele) = "TextBox" Then
If st_ele.Text = "" Then
MsgBox "Das Feld: " & st_ele.Tag & " darf nicht leer sein", vbInformation, "Hinweis"
st_ele.SetFocus
Exit Sub
ElseIf st_ele.Name = "txt_Webadresse" Then
If st_ele.Text <> "." Then
MsgBox "Fehlerhafte eingabe im Feld: " & st_ele.Tag & vbCrLf & "Es fehlt ein Punkt in der Webadresse.", vbExclamation, "Hinweis"
st_ele.SetFocus
Exit Sub
End If
ElseIf st_ele.Name = "txt_Email" Then
If st_ele.Text <> "@" Then
MsgBox "Fehlerhafte eingabe im Feld: " & st_ele.Tag & vbCrLf & "Es fehlt ein @ Zeichen.", vbExclamation, "Hinweis"
st_ele.SetFocus
Exit Sub
End If
End If
End If
Next
End Sub
|