Erkek öğrenci için:

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.