شرح هذا الكود

[J2006]

وجدت هذا الكود واريد ان اعرف ماذا يقصد ب ((command5))

On Error Resume Next

If InputBox("ENTER PASSWARD ", "PASSWARD REQUIRED") <> "123" Then

On Error GoTo Command5_Click_Err

Beep

MsgBox "INCORRECT PASSWARD", vbOKOnly, "TRY AGAIN"

Command5_Click_Exit:

Exit Sub

Command5_Click_Err:

MsgBox Error$

Resume Command5_Click_Exit

DoCmd.CancelEvent

Else

On Error GoTo Command0_Click_Err

DoCmd.OpenForm "CONTRACT TYPES", acNormal, "", "", , acNormal

Command0_Click_Exit:

Exit Sub

Command0_Click_Err:

MsgBox Error$

Resume Command0_Click_Exit

DoCmd.OpenForm "&Iacute;&ETH;&Yacute; &Egrave;&Ccedil;&aacute;&Otilde;&aelig;&Ecirc;"

End If

ولكم الشكر...........

[osama ababneh]

اخي

Command5 هي اسم لزر امر

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

بالنسبة للكود الموجود ليس كاملا حيث انه توجد تعليمات برمجية لزر امر Command5 وزر امر Command0

[mhb300]

اشكركم اساتذتي الكرام .................لدي توضيح فقط على النقطة هذه

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

استاذي الكريم جرب المرفق ...يمكنك تغيير الرقم السري من خلال النموذج مثلا ...........

تفضلوا المرفق ....................

اخوكم محمد حسين

MHB.rar

[منتصر الانسي]

فكرة جميلة اخي

[منتصر الانسي]

الحقيقة ان فكرة الاخ محمد حسين فكرة جميلة وحلت معضلة ثبات كلمة السر في هذه الحالات ولكن عند مراجعتي لها وجدت ان مايعيبها هو اشتراط ان يكون مصدر البيانات للنموذج هو الجدول tb1 او على الاقل ان يحتوي النموذج على عنصر تحكم يخزن الباسوورد.

وقد سمحت لنفسي بعد اذن الاخ محمد طبعا بوضع تعديل بسيط لتحسين اداء الفكرة .

ارجو ان تنال الاستحسان.

تحياتي,,,

MHB.rar