Formda Tabloya Göre Veri Gösterme

(10/02/2011, 17:32)exceLLency yazdı: İstemiş olduğum formda bu sınav sonuçlarını gösterirken , öğrenci eğer 2. eğitim grubuna katılmış ve sınavlarına girmiş ise ekranda göstermek,......

cümlesinden anladığım kadarıyla, Yandemir'in verdiği kodu vb sayfasına aşağıdaki gibi ekleyip;

Sub HesaplaGoster()

    If gecme.Value >= 50 Then

        egitim2sinav1.Visible = False

        egitim2sinav2.Visible = False

        egitim2sinav3.Visible = False

        egitim2sinav4.Visible = False

    Else

        egitim2sinav1.Visible = True

        egitim2sinav2.Visible = True

        egitim2sinav3.Visible = True

        egitim2sinav4.Visible = True

    End If

    If egitim2sinav1 Or egitim2sinav2 Or egitim2sinav3 Or egitim2sinav4 <> "0" Then

        egitim2sinav1.Visible = True

        egitim2sinav2.Visible = True

        egitim2sinav3.Visible = True

        egitim2sinav4.Visible = True

    Else

        egitim2sinav1.Visible = False

        egitim2sinav2.Visible = False

        egitim2sinav3.Visible = False

        egitim2sinav4.Visible = False

    End If

End Sub

diğer kodlara da

Private Sub egitim1sinav1_AfterUpdate()

Call HesaplaGoster

End Sub



Private Sub egitim1sinav2_AfterUpdate()

Call HesaplaGoster

End Sub



Private Sub egitim1sinav3_AfterUpdate()

Call HesaplaGoster

End Sub



Private Sub egitim1sinav4_AfterUpdate()

Call HesaplaGoster

End Sub

Şeklinde kullanmanız daha doğru olacak.

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

Öğrenciler arasında geçiş yaptığım zaman ekran update olmuyor , önceki öğrencide pasif olan kısım tekrar aktif olmuyor.

Yardımlarınız için teşekkür ederim, sorun çözümlenmiştir.

Private Sub Form_Current()
demek ekrandaki kayıt geçerli olduğunda demektir yani her kayıt değişiminde buraya bakar. me.gecme ekrandaki hesapladığın alan notları girip ortalamasını aldığın yer. kayıt ekrana geldiğinde buraya hesaplama değeri gelecek ve 50 den büyük veya eşitse yandaki sütunları açacak veya kapayacak. pratik çözümü bu.

Teşekkür ederim sorunu çözdüm, bütün tabloları birbirine zincirledim tam istediğim gibi oldu.

(15/02/2011, 14:46)Yandemir yazdı: Private Sub Form_Current()
demek ekrandaki kayıt geçerli olduğunda demektir yani her kayıt değişiminde buraya bakar. me.gecme ekrandaki hesapladığın alan notları girip ortalamasını aldığın yer. kayıt ekrana geldiğinde buraya hesaplama değeri gelecek ve 50 den büyük veya eşitse yandaki sütunları açacak veya kapayacak. pratik çözümü bu.