datum probleem

[wanny]

voor een opdacht moeten we een kleine database aanmaken. Nu moet er bij de tabel inschrijvingen een geboortedatum worden ingevoegd. Maar men kan maar inschrijven als men minimum 12 jaar is. hoe kan je dat bij die datum instellen dat hij een bericht heeft dat de persoon die wil inschrijven nog te jong is?

 

[scarie]

Wanny, eerst zet je in uw tabel nog een veld "ouderdom"(numeriek) erbij, dan kun je misschien eerst een formuliertje maken op basis van uw tabel waar uiteraard ook de geboortedatum en de ouderdom in staat.... dan selecteer je de geboortedatum en gaat naar de eigenschappen ervan... daar selecteer je "bij verlaten"(on exit). Er verschijnt nu een kadertje waar je een macro,expressie of programmacode kunt maken. Je selecteert programmacode en zet de volgende code erin:

Private Sub Geboortedatum_Exit(Cancel As Integer)
If IsNull(Geboortedatum) = False Then

Me.ouderdom = DateDiff("yyyy", Geboortedatum, Date)
If DateSerial(Year(Date), Month(Geboortedatum), Day(Geboortedatum)) > Date Then
Me.datber = Me.datber - 1
End If
If datber < 12 Then
msgbox "Te jong(of een andere tekst)"
endif
End Sub

Dit zou moeten lukken.

 

[scarie]

Een klein foutje...

IPV "me datber = datber - 1" moet het zijn "me.ouderdom = me.ouderdom - 1"