هذا حديث لايتم في صفحة الا بكلمة سر
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If InputBox("فضلا ادخل كلمة السر!", "Password") <> "123" Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm "Ser_01"
End If
End Sub
المطلوب اضافة في حالة عدم صحة كلمة السر المدخلة اعطاء مسج يوحي بذلك.
اضافة الى العودة الى خانة كلمة السر ثانية للمحاولة مرة ثانية.
شاكر للجميع تجاوبهم
On Error Resume Next
10 If InputBox("فضلا ادخل كلمة السر!", "Password") <> "123" Then
If MsgBox("كلمة السر التي أدخلتها خطأ ." & vbCrLf & "هل ترغب في إعادة المحاولة مرة أخرى ؟", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading + vbQuestion, "كلمة السر خطأ") = vbYes Then GoTo 10
DoCmd.CancelEvent
Else
DoCmd.OpenForm "Ser_01"
End If
السلام عليكم
Private Sub Form_Open(Cancel As Integer)
Dim Counter As Byte
On Error Resume Next
Do While True
If InputBox("فضلا ادخل كلمة السر!", "Password") <> "123" Then
Beep
Counter = Counter + 1
If Counter = 3 Then
DoCmd.CancelEvent
Exit Do
End If
Else
Exit Do
End If
Loop
End Sub
تحياتي
تحياتي لكم جميعا على تجاوبكم السريع والمفيد:
ما تفضل به الاخ ابو حمود للاسف لم يعمل معي وذلك لعدم معرفتي ببمكان تركيبة الكود مع الكود السابق.
اما ما تفضل به الاخ ابو هادي فيعمل بشكل جيد ولكن لايعطي البرنامج رسالة تفيد بعدم صحة الرقم السري في حالة ادخالة خطا.
تحياتي لكم جميعا
تمنياتي للاخ ابو هادي ان تضيف رسالة تفيد بعدم صحة الرقم السري.
امسح كل الكود الذي لديك ماعدا
Private Sub Form_Open(Cancel As Integer)
وكذلك اترك :
End Sub
وضع الكود الذي ذكرته في جوابي السابق بينهما
الآن النتيجة 100%
تقبل خالص تحياتي لك
هذا الموضوع مغلق.