Cvp: Formda Tabloya Göre Veri Gösterme - ozanakkaya - 16/02/2011
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.
Cvp: Formda Tabloya Göre Veri Gösterme - exceLLency - 16/02/2011
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.
|