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.

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.