Controle velden op waarde

[HierEnNu]

Geachte forumleden,

Hoe kan ik via VBA controleren of enig veld dat is opgenomen in een formulier een waarde bevat?

Groeten,

M.

 

[MarchingHome]

Met Me.IsDirty kan worden gecheckt of er een verandering is geweest in een record op het formulier, dus als het in jouw geval toevallig om een nieuwe record gaat, dan weet ik het antwoord wel:

If Me.NewRecord = True And Me.IsDirty = False Then
     MsgBox "Dit is een nieuwe record waar nog niets in is gezet", vbInformation, "Schoon"
End If

Ik hoop dat je hier íets aan hebt?

 

[Guus2005]

Met Me.IsDirty kan worden gecheckt of er een verandering is geweest in een record op het formulier, dus als het in jouw geval toevallig om een nieuwe record gaat, dan weet ik het antwoord wel:

If Me.NewRecord = True And Me.IsDirty = False Then
     MsgBox "Dit is een nieuwe record waar nog niets in is gezet", vbInformation, "Schoon"
End If

Ik hoop dat je hier íets aan hebt?

Dat is alleen maar waar als je een bound form gebruikt.
Als alle velden leeg horen te zijn kan je meet een lusje alle controls doorlopen en daarop controleren.

For Each ctl In me.controls
    if len(nz(ctl.value)) <> 0 then
        msgbox "er is een veld gevuld"
        exit for
    endif
next ctl

Enjoy!

 

[HierEnNu]

Het is gelukt. Bedankt!

M.