خروج بعد از وارد کردن سه بار رمز اشتباه

[amirzazadeh]

سلام
کدهاتون رو به این شکل اصلاح کنید

Option Compare Database

Public a As Integer

Private Sub Command2_Click()

'Dim a As Integer

Dim p As String



p = Me!pa





If p = "test" Then



DoCmd.OpenForm "f1", acNormal

DoCmd.Close acForm, "pass"

Else



MsgBox " ÑãÒ æÑæÏ ÕÍíÍ äãí ÈÇÔÏ "

         a = a + 1

        

End If



If a = 3 Then

MsgBox "entered pass is not valid for three times!"

DoCmd.Quit

End If

End Sub

همونطور که می بینید متغیر a به صورت public و خارج از عملیات باتن تعریف شده تا در هر اجرا ریست نشه.