Değerli Üstadlarım Benim Login Sayfasındaki Sayaç kodum çalışmıyor bir türlü bulamadım yardımcı olursanız çok sevinirim Acces Ailesinde olmaktan çok mutluyum.....

aşağıdaki gibi dener misiniz?

Private Sub BtnTamam_Click()

kullaniciadiD = Me.Kullanici

yetkiD = Kullanici.Column(3)

If Me.Sifre = Me.Kullanici.Column(2) Then

    MsgBox "Programa Hoşgeldiniz"

    Form_Login.Visible = False

    DoCmd.OpenForm "TblKullanicigiris Sorgu"

Else

    If sayac = 2 Then

        MsgBox "Hatalı Giriş Sebebiyle Program Kapatılacaktır" & Chr(13) & "UYARI"

        DoCmd.Quit

    Else

        sayac = sayac + 1

        MsgBox ("Hatalı Giriş Yaptınız Lütfen Geçerli bir şifre Giriniz" & Chr(13) & "DİKKAT")

        Me.Sifre.SetFocus

    End If

End If

End Sub

Olumsuz kodun yazılış sırasında bir farklılık var erkenden kapanış uyarısı veriyor bu şekilde

kaç defa uyaracaktı

3 kez

benim yazdığımda kaç kez uyarıyor?
If sayac = 2 Then buradaki 2 değerini değiştirerek dener misiniz?