با سلام
دوستان عزیز چرا این کد بعد از سه بار وارد کردن رمز اشتباه جواب نمی دهد
If counter > 3 Then
MsgBox "شما بیشتر از ۳ تلاش ناموفق داشته اید بنابراین از برنامه خارج می شوید "
DoCmd.CloseDatabase
End If
با سلام
دوستان عزیز چرا این کد بعد از سه بار وارد کردن رمز اشتباه جواب نمی دهد
If counter > 3 Then
MsgBox "شما بیشتر از ۳ تلاش ناموفق داشته اید بنابراین از برنامه خارج می شوید "
DoCmd.CloseDatabase
End If
سلام
لطفا کدهاتون رو به صورت کامل بارگذاری کنید.
سلام ، ممنون از پاسخگویی شما ، برای فایل زیر می خواهم اجرا شود
سلام
کدهاتون رو به این شکل اصلاح کنید
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 و خارج از عملیات باتن تعریف شده تا در هر اجرا ریست نشه.
با سلام وعرض ادب ، ممنون وسپاسگزارم که محبت و راهنمایی فرمودید مطالب بسیار ارزشمندی ارائه نمودید با آرزوی سلامتی وتندرستی برای همه شما عزیزان بزرگوار