Dim GYas As Integer
GYas = DateDiff("yyyy", Me.dogum_tarihi, Now()) + Int(Format(Now(), "mmdd") < Format(Me.dogum_tarihi, "mmdd"))
Me.sinav_puani = "0"
If Me.cinsiyeti = "Bay" Then
If GYas > "15" And GYas < "21" Then
Me.sinav_puani = Dlookup ("[16-20Yas]", "SinavErkek", "[SinavSayisi]= " & Me.sinav_tekrar_sayisi)
ElseIf GYas > "24" Then
Me.sinav_puani = Dlookup ("[24tenBuyuk]", "SinavErkek", "[SinavSayisi]= " & Me.sinav_tekrar_sayisi)
End If
End if
Üstteki kod, 09.01.2000 doğumlu öğrenciyi 20, 11.01.2000 doğumlu öğrenciyi 19 yaşında hesaplar.
(10/01/2020, 08:08)accessman yazdı: belki de sıkıntı 20-24 yaş arasındaki grubu görmezden geldiğiniz içindir
Üstteki mesajı da gözardı etmeyin.