vraag ivm textbox

[droxa]

heb 5 lege textboxen (textbox1,textb...) staan
normaal moet er in ieder van deze een waarde worden ingevuld
maar als je bvb 1 vergeet in te vullen, komt er een msgbox die zegt dat je die bepaalde textbox nog moet invullen
hoe los je dit op?
dank bij voorbaat

 

[geroda]

euh

momenteel ben ik niet thuis en weet ik de code niet direct

maar ik veronderstel dat je bv de tekstboxen invult end an bv ok OK drukt indien er 1 tekstbox te weinig is ingevuld dan krijg je een MSGBOX is het dit wat je bedoelt?

indien ja geef ik je vanavond de code

 

[droxa]

idd
als er 1 textbox (bvb de 3de) niet is ingevuld en ik druk op een knop, komt er een msgbox "3de textbox is niet ingevuld"
als er 2 textboxe (bvb de 1ste en 4de) niet zijn ingevuld en ik druk op een knop, komt er een msgbox "1ste en 4de textbox is niet ingevuld"
wacht vol spanning op vanavond thx!!

 

[geroda]

Private Sub Command1_Click()
    
    ' here, just check to see if each text field has contents.  If they all have
     If txtbox1.Text <> "" And txtbox2.Text <> "" Then
        goto 'vul hier in wat hij moet doen als ze allemaal ingevuld zijn
    Else
        msgbox ("U hebt een tekstbox niet ingevuld")
    End If

End Sub

sry dat het een halve dag later was

Geduld is een schone deugd :evil:

 

[droxa]

bedankt! :thumb:

 

[Axel Hagg]

Controle tekstvakken

Nog een oplossing:


Private Sub CommandButton1_Click()
Dim i As Integer
Dim s As String
Dim v As Boolean

For i = 1 To 5
If Choose(i, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5).TextLength = 0 Then s = s & "Tekstvak " & i & ", "
Next
If Len(s) Then
a = InStrRev(s, ", ")
If a Then s = Left(s, a - 1) & " en " & Mid(s, a + 2): v = True
MsgBox s & IIf(v, " zijn", " is") & "niet ingevuld."
Else
' Programma vervolgen.
End If
End Sub