Yellow.
Onderstaand een code om te controleren of de textboxen leeg zijn of niet. Indien er textboxen leeg zijn, wordt het aantal in een msgbox vermeld en na het klikken op OK, wordt de eerst lege textbox geselecteerd.
Dit gaat goed. Echter er staan ook nog 2 comboboxen om te controleren. ComboBox3 en ComboBox4.
Ik weet niet zo goed hoe dit in te passen. Ik zat te denken aan een extra For, maar dit gaat niet werken. Tenminste niet op de wijze die ik in gedachte heb. Daarnaast is het ook nog eens zo dat het selecteren nu slechts voor een TextBox is.
Kan iemand mij een aanzet geven?
Alvast bedankt.
Onderstaand een code om te controleren of de textboxen leeg zijn of niet. Indien er textboxen leeg zijn, wordt het aantal in een msgbox vermeld en na het klikken op OK, wordt de eerst lege textbox geselecteerd.
Dit gaat goed. Echter er staan ook nog 2 comboboxen om te controleren. ComboBox3 en ComboBox4.
Ik weet niet zo goed hoe dit in te passen. Ik zat te denken aan een extra For, maar dit gaat niet werken. Tenminste niet op de wijze die ik in gedachte heb. Daarnaast is het ook nog eens zo dat het selecteren nu slechts voor een TextBox is.
Kan iemand mij een aanzet geven?
Alvast bedankt.
Code:
Dim j As Long
Dim Counter As Long
Counter = 0
For i = 2 To 5
If Controls("TextBox" & i).Value = vbNullString Then
Counter = Counter + 1
If j = 0 Then j = i
End If
Next i
If Counter <> 0 Then
MsgBox "U heeft " & Counter & IIf(Counter <> 1, " verplichte velden", " verplicht veld") & " niet ingevuld"
Controls("TextBox" & j).SetFocus
Exit Sub
End If