fout 94 ongeldig gebruik van 0

[dinoshop]

ik krijg bij het doorstapen van een formulier deze melding fout 94 0 gebruik

Private Sub Form_Current()

If IsVerlopen(CVDate(VerloopDatum)) Then
        MsgBox "BeveiligingsPas Verlopen"
    Else
        If IsBijnaVerlopen(CVDate(VerloopDatum)) Then
            MsgBox "Beveiligingspas Bijna verlopen"
        End If
    End If
End Sub

Function IsVerlopen(pDatum As Date) As Boolean
     IsVerlopen = IIf(pDatum < DateAdd("m", -3, Date), True, False)
End Function

Function IsBijnaVerlopen(pDatum As Date) As Boolean
     IsBijnaVerlopen = IIf(pDatum > DateAdd("m", -3, Date) And VerloopDatum < DateAdd("d", -1, Date), True, False)
End Function

het gaat om deze formule waar word deze fout gegenereerd en wat doe ik er tegen?

 

[OctaFish]

Als [VerloopDatum] een datumveld is (i.c.m. een DatePicker) waarom zet je er dan nog een functie omheen? Hoeft dan niet. En op welke regel gaat je procedure precies in de fout?

 

[dinoshop]

is verlopen (cvdate(verlopen)) then

 

[OctaFish]

Probeer 'm eens zonder cvDate; dat heb je niet nodig. En loop er eens met <F8> verder door heen. Wellicht dat hij in de functie IsVerlopen een fout maakt.

 

[dinoshop]

hij geeft aan verloop datum =null
zou het een oplossing zijn if datum =null then datum()