leeftijd fout formulier

[proatbuul]

Waarom geeft dit stukje code geplaats op een formulier veld

Private Sub Leeftijd_Exit(Cancel As Integer)

If Leeftijd <= "12" Then
Categorie = "Aspirant"
End If
If Leeftijd >= "13" Then
Categorie = "Junior"
End If
If Leeftijd > "18" Then
Categorie = "Senior"
End If

End Sub

wanneer ik een geboortedatum invoer die onder de tien is als tekst weer senior!! terwijl hij hier Aspirant aan moet geven.

Tweede vraagje is: Bestaat de mogelijkheid om wanneer ik het formulier open, deze automatisch alle geboortedatums opnieuw berekend, en de nieuwe leeftijd noteert. Moet ik deze dan via een query laten lopen of kan dat ook gewoon via het formulier.

groet

proatbuul

 

[thomrob]

leeftijd is naar ik hoop een numeriek veld in je database. Je vergelijking is :


If Leeftijd <= 12 Then ...etc.etc.

dus zonder ", nu vergelijk je de waarde als een tekstveld. even aanpassen dus.

 

[proatbuul]

oke probeer ik uit

thanxs

 

[fwalraven]

If Leeftijd >= "13" Then
Categorie = "Junior"
End If
If Leeftijd > "18" Then
Categorie = "Senior"
Als de werkelijke leeftijd 20 is voldoet ook aan is 13 of ouder !!

Maak
Maak hiervan >="13"and <="18"

Frans

 

[proatbuul]

Thomrob

bedankt het werkt. soms lijkt het zo simpel:thumb: