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
End If
Select Case .Name
Case "txt_Webadresse"
If InStr(1, st_ele.Text, ".", vbTextCompare) = 0 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
Case "txt_Email"
If InStr(1, st_ele.Text, "@", vbTextCompare) = 0 Then
MsgBox "Fehlerhafte eingabe im Feld: " & st_ele.Tag & vbCrLf & "Es fehlt ein @ Zeichen.", vbExclamation, "Hinweis"
st_ele.SetFocus
Exit Sub
End If
End Select
End If
Next
End Sub
|