السلام عليكم جميعا ورحمة الله وبركاته
عملت كلمة مرور لنمودج ولكن لما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج واني اخدت التعليمات من وصلة الاخ محمد طاهر وهي:
http://www.officena.net/ib/index.php?showtopic=1118
وهذا لكود الدي عملته لتجدون لي ما هو الخطأ عندي وجزاكم الله خير والله يوفقكم
Private Sub CmdUpdate_Click()
On Error GoTo Err_CmdUpdate_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FQupdate"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_CmdUpdate_Click:
Me.Requery
If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then
DoCmd.CancelEvent
MsgBox "خطأ !!!!", 64, "www.officena.net"
Else
DoCmd.OpenForm "FQupdate"
End If
Exit Sub
Err_CmdUpdate_Click:
MsgBox Err.Description
Resume Exit_CmdUpdate_Click
End Sub