Alle velden verplicht vullen in formulier

[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

 

[Jack Nouws]

Hallo,

Zonder voorbeeld blijft het gissen, maar hier heb je een voorbeeldje

  For i = 1 To 5
    If Me("ComboBox" & i).Value = "" Then Me("ComboBox" & i).SetFocus
    If Me("TextBox" & i).Value = "" Then Me("TextBox" & i).SetFocus
  Next

met vr gr
Jack

 

[LucB]

Dag Jelle,

Zet deze code bovenaan in je wegschrijf-knop.

Dim Ctl    As Control
    For Each Ctl In Userform1.Controls
        If TypeOf Ctl Is MSForms.TextBox Or TypeOf Ctl Is MSForms.ComboBox Then
            If Ctl = "" Then
                MsgBox Ctl.Name & " is nog leeg."
                Ctl.SetFocus
                Exit Sub
            End If
        End If
    Next Ctl

 

[snb]

Controleer vooraf en tijdens de invoer, niet achteraf

Private Sub Combobox1_change()
  Check1
End Sub

Private Sub Combobox2_change()
  Check1
End Sub

Private Sub Combobox3_change()
  Check1
End Sub

Private Sub Textbox1_change()
  Check1
End Sub

Private Sub TextBox1_change()
  Check1
End Sub

Private sub Check1()
  knop_vervolg.visible=False
  for each ct in frame1.controls
    if ct.value="" then exit sub
  next
  knop_vervolg.visible=true
End sub

 

[Jelle2010]

Beste Experts,

Dit is super!! Hier kom ik zeker verder mee.
Bedankt allemaal.

Groeten,

Jelle2010

 

[Wigi]

Graag deze vraag nog op opgelost zetten aub (klik rechtsonder op de pagina).