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.