AccessTr.neT

Bir öneri,

Komut229'un tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Komut229_Click()



    If Me.Komut229.Caption = "2.Yarıyıla geç" Then

        Me.egitim2sinav1.Visible = True

        Me.egitim2sinav2.Visible = True

        Me.egitim2sinav3.Visible = True

        Me.egitim2sinav4.Visible = True

        Me.Komut229.Caption = "2.Yarıyılı Kapat"

    Else

        Me.egitim2sinav1.Visible = False

        Me.egitim2sinav2.Visible = False

        Me.egitim2sinav3.Visible = False

        Me.egitim2sinav4.Visible = False

        Me.Komut229.Caption = "2.Yarıyıla geç"

    End If



End Sub

Formun geçerli olduğunda olayına yazdığın koda aşağıdaki kodları ekle

    If Me.egitim2sinav1.Visible = True Then

        Me.Komut229.Caption = "2.Yarıyılı Kapat"

    Else

        Me.Komut229.Caption = "2.Yarıyıla geç"

    End If

düzenlenmiş hali ektedir.

Hocam çok teşekkür ederim benim kodlarım tam olarak şunlar oldu ;
(Tablo isimlerini değiştirdiğim için yabancı gelebilir )

Private Sub Form_Current()

If Me.sifre1 <= 84 Then

Me.sifre2.Visible = True

Me.Etiket232.Visible = True



Else

Me.sifre2.Visible = False

Me.Etiket232.Visible = False

End If

If Me.sifre2 <= 84 Then

Me.sifre3.Visible = True

Me.Etiket233.Visible = True



Else

Me.sifre3.Visible = False

Me.Etiket233.Visible = False

End If

If Me.sifre3 <= 84 Then

Me.sifre4.Visible = True

Me.Etiket234.Visible = True



Else

Me.sifre4.Visible = False

Me.Etiket234.Visible = False

End If

If Me.sifre4 <= 84 Then

Me.Metin225.Visible = True

Me.Etiket228.Visible = True



Else

Me.Metin225.Visible = False

Me.Etiket228.Visible = False

End If

If Me.sifre5 <= 84 Then

Me.sifre6.Visible = True

Me.Etiket227.Visible = True



Else

Me.sifre6.Visible = False

Me.Etiket227.Visible = False

End If

If Me.sifre6 <= 84 Then

Me.sifre7.Visible = True

Me.Etiket229.Visible = True



Else

Me.sifre7.Visible = False

Me.Etiket229.Visible = False

End If

If Me.sifre7 <= 84 Then

Me.sifre8.Visible = True

Me.Etiket230.Visible = True



Else

Me.sifre8.Visible = False

Me.Etiket230.Visible = False

End If

End Sub



Private Sub sifre1_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre2_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre3_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre4_AfterUpdate()

Call Form_Current

End Sub

Private Sub Metin225_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre6_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre7_AfterUpdate()

Call Form_Current

End Sub

Sırasıyla bütün tabloları birbirine bağladım , ilk tabloda puan koşulumu sağlıyorsa ondan sonraki açılmıyor, karşılamıyorsa açılıyor.Toplam 8 tabloma da uyguladım.İlgi alaka ve yardımlarınız için teşekkürler.