Formun Açıldığında olayına

Private Sub Report_Open(Cancel As Integer)

With Forms.frm_Isci

 ehliyet1c.Visible = .Onay575

 ehliyet2c.Visible = .Onay577

 kimlik1c.Visible = .Onay589

 kimlik2c.Visible = .Onay591

 

 If .Onay575 + .Onay577 = 0 Then

 kimlik1c.Top = 0

 kimlik2c.Top = 0

 End If

 

End With

End Sub

Yazıldığında işlem tamam oluyormuş.

1. Mesajdaki örnneği güncelleyecektim ancak daha önce sayfanın altında bulunan eklentiyi güncelle butonunu bulamadım.