Hallo
Ik heb een database gemaakt die ik gebruik als telefoonboek / adressenlijst / verjaardag kalender etc. Hierin gebruik ik 3 tabellen (Persoon/partner/kind) waarbij ik om gegevens aan elkaar te koppelen een uniek ID-nr gebruik. Zie afbeelding.
Ik gebruik een hoofdformulier om alle gegevens van een record te tonen. Om de leeftijd van iemand bij te houden gebruik ik onderstaande formule:
De gegevens van een eventuele partner en kinderen worden getoond in 2 subformulieren op het hoofdformulier. Om de leeftijd van de partner bij te houden gebruik ik onderstaande formule:
en iets soortgelijks voor eventuele kinderen.
Nu doet het probleem zich voor dat als er geen partner of kinderen aanwezig zijn, er een foutmelding verschijnt: "Fout 94 tijdens uitvoering". Ik begrijp dat dit komt, omdat het veld geboortedatum in de sub formulieren leeg is.
Maar als er geen partner of kinderen zijn, kan ik ook niets invullen
Hoe voorkom ik de foutmelding als er geen geboortedatum van een partner of kind is om in te vullen?
Ik heb een database gemaakt die ik gebruik als telefoonboek / adressenlijst / verjaardag kalender etc. Hierin gebruik ik 3 tabellen (Persoon/partner/kind) waarbij ik om gegevens aan elkaar te koppelen een uniek ID-nr gebruik. Zie afbeelding.
Ik gebruik een hoofdformulier om alle gegevens van een record te tonen. Om de leeftijd van iemand bij te houden gebruik ik onderstaande formule:
Code:
Private Sub Form_Load()
Me.Leeftijd.Value = DateDiff("yyyy", Me.Geboortedatum, Date) + (DateSerial(Year(Date), Month(Me.Geboortedatum), Day(Me.Geboortedatum)) > Date)
End Sub
Code:
Me.SubformulierPartner.Form!PartnerLeeftijd.Value = DateDiff("yyyy", Me.SubformulierPartner.Form!PartnerGeboortedatum, Date) + (DateSerial(Year(Date), Month(Me.SubformulierPartner.Form!PartnerGeboortedatum), Day(Me.SubformulierPartner.Form!PartnerGeboortedatum)) > Date)
Nu doet het probleem zich voor dat als er geen partner of kinderen aanwezig zijn, er een foutmelding verschijnt: "Fout 94 tijdens uitvoering". Ik begrijp dat dit komt, omdat het veld geboortedatum in de sub formulieren leeg is.
Maar als er geen partner of kinderen zijn, kan ik ook niets invullen
Hoe voorkom ik de foutmelding als er geen geboortedatum van een partner of kind is om in te vullen?