ali1 قام بنشر يناير 11, 2004 قام بنشر يناير 11, 2004 (معدل) السلام عليكم جميعا ورحمة الله وبركاته عملت كلمة مرور لنمودج ولكن لما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج واني اخدت التعليمات من وصلة الاخ محمد طاهر وهي: 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 تم تعديل يناير 11, 2004 بواسطه ali1 1
فهد الدوسري قام بنشر يناير 12, 2004 قام بنشر يناير 12, 2004 في الزر الذي يفتح النموذج ضع هذا الحدث (عند النقر) طبعاً If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then DoCmd.CancelEvent MsgBox "خطأ !!!!", 64, "www.officena.net" Else DoCmd.OpenForm "FQupdate" End If ولك تحياتي ..
نشوان قام بنشر يناير 12, 2004 قام بنشر يناير 12, 2004 السلام عليكم يعطيني رسالة خطأ اسم الماكرو غير صحيح أو الماكرو جديد شو اعمل وهل احط السم النموذج مكان ""
ali1 قام بنشر يناير 12, 2004 الكاتب قام بنشر يناير 12, 2004 (معدل) اشكرك اخي الكريم فهد الدوسري هذا هو الدي عملته بالضبط وعندما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" ThenDoCmd.CancelEvent MsgBox "خطأ !!!!", 64, "www.officena.net" Else DoCmd.OpenForm "FQupdate" End If تم تعديل يناير 12, 2004 بواسطه ali1
ali1 قام بنشر يناير 12, 2004 الكاتب قام بنشر يناير 12, 2004 اشكرك اخي الكريم فهد الدوسري هذا هو الدي عملته بالضبط وعندما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" ThenDoCmd.CancelEvent MsgBox "خطأ !!!!", 64, "www.officena.net" Else DoCmd.OpenForm "FQupdate" End If
شاكر الزين قام بنشر يناير 13, 2004 قام بنشر يناير 13, 2004 تفضل يا أخي الكريم ،،،، هذا مثال بنفس الكود الذي وضعه الاخ العزيز / فهد الدوسري ،،،، وهو يعمل بكل كفاءة ,,,,, تفحص المثال جيدا شاكر الزين ali1.zip
ali1 قام بنشر يناير 13, 2004 الكاتب قام بنشر يناير 13, 2004 شكرا للاخوان الكرام شاكر الزين وفهد الدوسري ونشوان لمشاركتهم والاستفاده منهم جعل ربي يكتب لهم صالح الاعمال
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.