رقم سري للنمودج

[ali1]

السلام عليكم جميعا ورحمة الله وبركاته

عملت كلمة مرور لنمودج ولكن لما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج واني اخدت التعليمات من وصلة الاخ محمد طاهر وهي:

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

[فهد الدوسري]

في الزر الذي يفتح النموذج ضع هذا الحدث (عند النقر) طبعاً

If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then
DoCmd.CancelEvent
MsgBox "خطأ !!!!", 64, "www.officena.net"
Else
DoCmd.OpenForm "FQupdate"
End If

ولك تحياتي ..

[نشوان]

السلام عليكم

يعطيني رسالة خطأ

اسم الماكرو غير صحيح أو الماكرو جديد

شو اعمل

وهل احط السم النموذج مكان ""

[ali1]

اشكرك اخي الكريم فهد الدوسري

هذا هو الدي عملته بالضبط وعندما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج

If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then

DoCmd.CancelEvent

MsgBox "خطأ !!!!", 64, "www.officena.net"

Else

DoCmd.OpenForm "FQupdate"

End If

تم تعديل يناير 12, 2004 بواسطه ali1

[ali1]

اشكرك اخي الكريم فهد الدوسري

هذا هو الدي عملته بالضبط وعندما افتح النمودج يطلب مني كلمة المرور ولكن لما اضغط اوكي او اضع كلمة مرور خطأ يفتح معي النمودج

If InputBox("ادخل كلمة السر ", "www.officena.net") <> "mustafa" Then

DoCmd.CancelEvent

MsgBox "خطأ !!!!", 64, "www.officena.net"

Else

DoCmd.OpenForm "FQupdate"

End If

[فهد الدوسري]

لم أفهم !!

هل نفع الكود معك أم لا ؟

[شاكر الزين]

تفضل يا أخي الكريم ،،،، هذا مثال بنفس الكود الذي وضعه الاخ العزيز / فهد الدوسري ،،،، وهو يعمل بكل كفاءة ,,,,, تفحص المثال جيدا

شاكر الزين

ali1.zip

[ali1]

شكرا للاخوان الكرام شاكر الزين وفهد الدوسري ونشوان لمشاركتهم والاستفاده منهم جعل ربي يكتب لهم صالح الاعمال