Yapış olduğunuz örneği uyguladım ama başarısız oldum,galiba bir yerde hata yapıyorum,hem Güncelleştirme sonrası hemde Tıklandığında olayı hata uyarısı veriyor uyguladığım Kod aynen şu şekilde,
Private Sub RaporCerceve_Click()
If Me.OnayHesaplar = -1 Then
Me.Açılan_Kutu0.Visible = False
Me.OnayListeler.Visible = False
Me.Etiket1.Visible = False
Else
Me.Açılan_Kutu0.Visible = True
Me.OnayListeler.Visible = True
Me.Etiket1.Visible = True
End If
End Sub
Private Sub RaporCerceve_Click()
If Me.OnayListeler = -1 Then
Me.ilktarih.Visible = False
Me.Sontarih.Visible = False
Me.OnayHesaplar.Visible = False
Me.Etiket76.Visible = False
Else
Me.ilktarih.Visible = True
Me.Sontarih.Visible = True
Me.OnayHesaplar.Visible = True
Me.Etiket76.Visible = True
End If
End Sub
Saygılarımla.