voorkomen invullen toekomstig jaar

[scw]

Goedendag,

In bijgaand voorbeeld heb ik een invoerform, waarbij ik graag wil dat er geen jaar (jjjj) in de toekomst kan worden ingevuld: bijv. nu 2011 of 2012. Helaas werkt dat nog niet en ik vraag mij af waarom; het is namelijk gewoon een veld met de eigenschap Datum en in de code heb ik > date. Dit werkt bij een normale datum wel goed, maar nu niet wanneer ik het als 'jjjj' noteer.

Kunnen jullie me vertellen waarom dit niet werkt??

Bedankt,
scw :thumb:

 

[Harry46]

Bij een ingevoerde datum vergelijk je die met de huidige datum (Date())
Bij een jaar moet je vergelijken met het huidige jaar (Year(Date))
In jouw code:

Private Sub Jaar_BeforeUpdate(Cancel As Integer)
    If Me.Jaar > Year(Date) Then
        MsgBox "Het ingevoerde jaar ligt in de toekomst.", vbInformation, "Voorbeeld"
        Cancel = True
        Me.Jaar.Undo
    End If
End Sub

 

[scw]

opgelost!

Ah natuurlijk! De jaar functie is natuurlijk ook weer een aparte. Opgelost inderdaad!

Bedankt voor de reactie Harry46!

:thumb: scw