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

[majid44]

با سلام
دوستان عزیز چرا این کد بعد از سه بار وارد کردن رمز اشتباه جواب نمی دهد

If counter > 3 Then


MsgBox "شما بیشتر از ۳ تلاش ناموفق داشته اید بنابراین از برنامه خارج می شوید "


DoCmd.CloseDatabase


End If

[amirzazadeh]

سلام
لطفا کدهاتون رو به صورت کامل بارگذاری کنید.

[majid44]

سلام ، ممنون از پاسخگویی شما ، برای فایل زیر می خواهم اجرا شود

[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 و خارج از عملیات باتن تعریف شده تا در هر اجرا ریست نشه.

[Shahramdindoust]

با سلام
دوستان عزیز چرا این کد بعد از سه بار وارد کردن رمز اشتباه جواب نمی دهد

If counter > 3 Then


MsgBox "شما بیشتر از ۳ تلاش ناموفق داشته اید بنابراین از برنامه خارج می شوید "


DoCmd.CloseDatabase


End If

هنوز برنامه شما را ندیدم اما چرا بجای
DoCmd.CloseDatabase
از کد
DoCmd.Quit
استفاده نمی کنید؟

[Shahramdindoust]

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

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 و خارج از عملیات باتن تعریف شده تا در هر اجرا ریست نشه.

بله همینه احسنت به استاد رضازاده

[majid44]

با سلام وعرض ادب ، ممنون وسپاسگزارم که محبت و راهنمایی فرمودید مطالب بسیار ارزشمندی ارائه نمودید با آرزوی سلامتی وتندرستی برای همه شما عزیزان بزرگوار