Hocam anladığım kadarı ile her sınav için geçme diye bir tablo oluşturup oraya puan yazdırıcam .Teşekkür ederim.

(14/02/2011, 13:20)Yandemir yazdı: Private Sub Form_Current()
If Me.gecme >= 50 Then
Me.egitim2sinav1.Visible = True
Me.egitim2sinav2.Visible = True
Me.egitim2sinav3.Visible = True
Me.egitim2sinav4.Visible = True
Else
Me.egitim2sinav1.Visible = False
Me.egitim2sinav2.Visible = False
Me.egitim2sinav3.Visible = False
Me.egitim2sinav4.Visible = False
End If
End Sub