Verplicht invullen in formulier

[Chella]

Hallo allemaal,

Ik ben beginner met VB en ik kom er niet helemaal uit
Ik wil graag dat alle velden verplicht worden ingevuld in het formulier en dat er een melding gegeven word wanneer dit niet is gedaan.

Ik heb een en ander gevonden op dit forum, maar ik weet niet zo goed hoe ik dit nu moet toepassen in mijn eigen macro. Zou iemand mij weer wat op weg kunnen helpen?

Betreft dit stukje:

Sub tst()
    If Me("txtDossier").Value = "0" Then MsgBox ("Je bent iets vergeten in te vullen")
    Next
End Sub

Alvast bedankt!

 

[Cobbe]

Zo misschien:

Private Sub UserForm_Initialize()
  'ComboBox1.List = Worksheets(Bladnaam).Range("a1:a8").Value
  cmbAfdeling.RowSource = Bladnaam & "!A1:A8"
  cmbAfdeling.ListIndex = -1
  txtDatum = Date
 [COLOR="red"][B] txtDossier.SetFocus[/B][/COLOR]
  End Sub




Private Sub btnIndienen_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("adhoc")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
  
'Date
[COLOR="red"][B]If Me("txtDossier").Value = "" Then
MsgBox ("Je bent vergeten het Dossiernummer in te vullen")
txtDossier.SetFocus
Exit Sub
End If
[/B][/COLOR]'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtDatum.Value
ws.Cells(iRow, 2).Value = Me.txtDossier.Value
ws.Cells(iRow, 3).Value = Me.txtNaam.Value
ws.Cells(iRow, 4).Value = Me.txtTelefoon.Value
ws.Cells(iRow, 5).Value = Me.txtReden.Value
ws.Cells(iRow, 6).Value = Me.cmbAfdeling.Value
ws.Cells(iRow, 7).Value = Me.txtIndiener.Value

'clear the data
Me.txtDatum.Value = ""
Me.txtDossier.Value = ""
Me.txtNaam.Value = ""
Me.txtTelefoon.Value = ""
Me.txtReden.Value = ""
Me.cmbAfdeling.Value = ""
Me.txtIndiener.Value = ""
Me.txtDatum.SetFocus

End Sub



Private Sub btnSluit_Click()
  Unload Me
End Sub

 

[Chella]

Werkt nu helemaal goed, bedankt!