[Access 2010] Weergave leeftijd en recordlijst

[Anoniem: 322510]

Goeiemorgen!

Ik heb in Access 2010 een formulier gemaakt om contacten bij te houden.
Nu heb je de mogelijkheid om een geboortedatum in te vullen, waarna automatisch de leeftijd berekend wordt.
Dit loopt via een stukje code:

code:

 Public Sub Form_Current()
    Dim varAge As Variant
    If Not IsNull([Geboortedatum]) Then
    
        varAge = DateDiff("yyyy", [Geboortedatum], Now)

        If Date < DateSerial(Year(Now), Month([Geboortedatum]), Day([Geboortedatum])) Then
           varAge = varAge - 1
                    
        End If
    Else
        varAge = "n.b."
    End If
    
    If IsNumeric(varAge) Then
        [Leeftijd] = CInt(varAge)
    Else
        [Leeftijd] = varAge
    End If
End Sub

Private Sub Geboortedatum_AfterUpdate()
    Call Form_Current
End Sub

Nu werkt dit stukje prima, behalve als ik op een nieuwe record kom, dus via de recordkiezers. De leeftijd die dan weergegeven wordt is 111. Terwijl er geen geboortedatum ingevuld is. Any clues?
Voor een idee:

[Snake]

Breakpoint zetten op regel 3 en kijken waarom hij WEL door de If statement gaat?

[Lustucru]

Blijkbaar is er voor geboortedatum een defaultwaarde ingesteld in formulier of tabel van 0, d.w.z. 1-1-1900.

[Rupie]

Ik ben niet heel bekend met VBA, maar is het ook niet zo dat IsNull wat anders is dan Empty?
heb even zitten lezen maar dat lijkt er niets mee te maken te hebben. Eerder een default value inderdaad. Kom je er niet mee weg om af te vragen op geboortedatum <> 01/01/1900?

[Voor 50% gewijzigd door Rupie op 20-05-2011 11:19]

[Anoniem: 322510]

Het zou wel kunnen dat er een defaultwaarde op geboortedatum zit, maar als ik een bestaande record heb zonder geboortedatum zie ik wel "n.b." en enkel bij een nieuwe record doet dit probleem zich voor. (wanneer ik dus nog geen nieuw "ID" heb)

Maar zoals Snake zei zal ik is kijken waarom hij wel door de If statement gaat.

[Voor 6% gewijzigd door Anoniem: 322510 op 20-05-2011 19:31]

[Marko_J]

Anoniem: 322510 schreef op vrijdag 20 mei 2011 @ 19:29:
Het zou wel kunnen dat er een defaultwaarde op geboortedatum zit, maar als ik een bestaande record heb zonder geboortedatum zie ik wel "n.b." en enkel bij een nieuwe record doet dit probleem zich voor. (wanneer ik dus nog geen nieuw "ID" heb)

Standaardwaarden gelden dan ook alleen bij nieuwe records. Kijk eens in ontwerpweergave van de tabel of het formulier.

[Anoniem: 322510]

In standaardwaarde stond niks.
Maar ik heb het probleem als volgt opgelost, eigenlijk vrij simpel:

code:

If Not IsNull([Geboortedatum]) And Not IsEmpty([Geboortedatum]) Then

Ik weet niet of het de meeste nette manier is, maar ik ben blij dat het nu wel werkt.
Bedankt voor de hulp!

[Voor 22% gewijzigd door Anoniem: 322510 op 21-05-2011 14:33]