Private Sub Report_Current()
Select Case Me.Tbl_Personel
Case EhliyetÖn = -1
ehliyet1c = True
Case EhliyetArka = -1
ehliyet2c = True
Case KimlikÖn = -1
kimlik1c.Visible = True
Case KimlikArka = -1
kimlik2c.Visible = True
Case Else
ehliyet1c = False
ehliyet2c = False
kimlik1c.Visible = False
kimlik2c.Visible = False
End Select
End Sub
Yukarıdaki kodları bir kaç farklı şekilde denedim ama ne yaptıysam beceremedim. Demek ki bulduğumu zannetmişim.
![Çözüldü](images/icons/cozuldu.png)
Sanırım gizleme olayını buldum. Henüz denemedim ama dahaönce metin kutularının gizlenip gösterilmesi olayında kullandığımız "visible=True veya False" olayı vardı onu deneyeceğim ama sayfa düzenini nasıl yapacağım konusunda fikrim yok.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Topraktan hep güzel şeyler biter . (Akşemseddin)
Son Düzenleme: 21/11/2011, 23:34, Düzenleyen: iscinar.