|
Hallo alle zusammen,
ich habe ein Formular mit 3 Textboxen. Hier sollen zwei Abfragen hintereinander laufen:
1. Ob alle Textboxen gefüllt sind (Fehlermeldung nur einmal nicht bei jeder Textbox)
Wenn das ok, dann:
2. ob in der Textbox Mailadresse ein "@" und / oder in der Textbox Webadresse ein "." vorhanden ist - die Fehlermeldung soll ebenfalls nur einmal kommen.
Wenn alles OK, dann MsBox "Alles OK".
Ich bekomme diese Abfragen einfach nicht hin. Die erste Abfrage (ob leer) habe ich soweit, nur leider kommt die Fehlernachricht auch wenn alles gefüllt ist. Keine Ahnung, wie ich die zweite Abfrage dort mit einbauen soll.
Ich stehe einfach auf dem Schlauch.... Hilfe!
Hier mein bisheriger Code:
Private Sub cmb_Plausi_Click()
Dim st_ele As Control
Dim ausgabe As String
ausgabe = "Das Feld: " & vbCrLf
For Each st_ele In frm_Eingabe.Controls
If TypeName(st_ele) = "TextBox" Then
If st_ele.Text = "" Then
ausgabe = ausgabe & vbCrLf & """" & st_ele.Tag & """"
st_ele.SetFocus
End If
End If
Next
MsgBox ausgabe & vbCrLf & vbCrLf & " darf nich leer bleiben.", vbCritical
Exit Sub
End Sub
|