veld niet gevuld

[frankie59]

Goedemorgen,
Ik heb een formulier waar een aantal velden gevuld moeten worden. Ik heb deze in de tabel vereist gezet. in het formulier hetvolgende:
----------------------
If IsNull([Datum]) Then
MsgBox "U moet de datum nog invullen"
DoCmd.GoToControl "datum"
End If
------------------------------
Hij geeft dan wel aan dat de datum nog ingevuld dient te worden, maar hij gaat meteen verder met de rest van de opdracht. Met het gevolg dat er een runtime komt, omdat bepaalde velden niet gevuld zijn.

Ik zou graag willen dat hij naar het veld "datum"gaat en dan stopt, tot het veld ingevuld is. Wie weet hoe?

Alvast bedankt.

MVG Frank

 

[OctaFish]

Probeer het zo eens:

Private Sub Datum_BeforeUpdate(Cancel As Integer)
    If Nz(Me.Datum,0) =0 Then
        MsgBox "Je hebt geen datum ingevuld.....", vbInformation, "Voorbeeld"
        Cancel = True
        Me.Datum.Undo
    End If
End Sub