Sayın Atoz112
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.