Msgbox lege velden

[gast0660]

Beste forumleden,

Hierbij een bestandje als bijlage.

Ik wil een msgbox als niet alle velden van het invulformulier zijn ingevuld

zoiets als
If cb1 = Empty Or cb2 = Empty Then (voor alle velden)
MsgBox "Alle velden invullen aub !" volgens mij is het vrij simpel maar ik kijk ernaast.
Ergens doe ik iets verkeerd??? Wie heeft een idee?
Nadien wil ik verder dat de goedkoopste prijzen met winkel etc naar overzicht worden overgezet, zelf ben ik er nog niet aan begonnen maar als iemand een scriptje of idee heeft altijd welkom

groetjes

PhiliepBekijk bijlage Prijsvergelijking.xlsm

 

[Jack Nouws]

Aanpassen naar eigen behoefte!

[LEFT][COLOR=#333333]Dim [/COLOR][COLOR=#333333]ctl_Cont As Control
[/COLOR][COLOR=#333333]
For Each ctl_Cont In Me.Controls[/COLOR][/LEFT]
    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 [LEFT][COLOR=#333333]Next[/COLOR][/LEFT]

 

[gast0660]

Beste jack,

Hartelijk dank voor uw reactie maar het lukt mij nog steeds niet
mvg
Philiep

 

[gast0660]

Probleem is opgelost

:thumb: