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.
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.