Alle velden in formulier verplicht vullen

[Jelle2010]

Beste experts,

Ik heb een formulier met zowel ComboBoxen als Textvelden. Deze staan allemaal binnen 1frame. De waarden van de velden worden weggeschreven naar Excel wanneer ik op knop "X" druk.
Nu wil ik graag een check laten uitvoeren voordat de gegevens worden weggeschreven dat alle velden gevuld zijn en zo niet dat dan een bericht verschijnt met welk veld of combobox nog gevuld moet worden.
Ik hoop dat jullie mij hiermee kunnen helpen. Alvast vriendelijk bedankt.

Jelle2010

 

[Hoornvan]

elle2010,

Deze code is om te kijken of de TextBoxen gevuld zijn, daar kun je dan zelf denk ik wel voor de ComboBoxen bij maken.
Het zijn 2 macro's die het zelfde doen, dus aan jouw de keuze welke te gebruiken.

Controleer of de TextBoxxen gevuld zijn

Sub tst()	
    For i = 1 To 15	
      If Me("TextBox" & i).Value = "" Then MsgBox ("Je bent iets vergeten in te vullen")	
    Next	
End Sub

Idem als hier boven

Sub Validatie()	
Dim cCont As Control	
  For Each cCont In Me.Controls	
    If TypeName(cCont) = "TextBox" Then	
      MsgBox "Alle velden zijn niet ingevuld"	
    End If	
  Next	
End Sub