ik heb deze code via dit forum kunnen vinden en werkt normaal prima
Private Sub CommandButton1_Click()
Dim ctl_Cont As Control
For Each ctl_Cont In Me.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
If ctl_Cont.Value = "" Then
MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
End If
End If
Next
End Sub
in ons geval hebben we een userform1 met verschillende text en comboboxen die door commandbuttons zichtbaar gemaakt worden of niet
bv er zijn 20 textboxen ,maar bij een bepaald onder werp hoef de gebruiker er maar 5 in te vullen .
wij willen graag dat de controle plaatst vindt op alle zichtbare textboxen en comboboxen , kan dat ???
Private Sub CommandButton1_Click()
Dim ctl_Cont As Control
For Each ctl_Cont In Me.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
If ctl_Cont.Value = "" Then
MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
End If
End If
Next
End Sub
in ons geval hebben we een userform1 met verschillende text en comboboxen die door commandbuttons zichtbaar gemaakt worden of niet
bv er zijn 20 textboxen ,maar bij een bepaald onder werp hoef de gebruiker er maar 5 in te vullen .
wij willen graag dat de controle plaatst vindt op alle zichtbare textboxen en comboboxen , kan dat ???