Thema Datum  Von Nutzer Rating
Antwort
Rot Verschachtelte For each Funktion für Prüfung der Textboxen
13.11.2017 14:53:17 Patricia
NotSolved
13.11.2017 15:28:58 SJ
NotSolved

Ansicht des Beitrags:
Von:
Patricia
Datum:
13.11.2017 14:53:17
Views:
130
Rating: Antwort:
  Ja
Thema:
Verschachtelte For each Funktion für Prüfung der Textboxen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Verschachtelte For each Funktion für Prüfung der Textboxen
13.11.2017 14:53:17 Patricia
NotSolved
13.11.2017 15:28:58 SJ
NotSolved