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

[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]

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