وضع معيار في الاستعلام بناء على قيم مربعات تدقيق

مرة أخرى الأخ fahadam السلام عليكم

النموذج أقصد نموذج الأستعلام يعمل بشكل جيد بس اذا وضعت خاصية التحرير no أي عدم السماح بالتحرير في هذا النموذج فأنا عملية الأستعلام تتوقف :( :(

وعليكم السلام الاخت lyla

ممكن اجاوبك بسؤال

لماذا تريدين وضع خاصية التحرير الى no ؟

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

تحية طيبه

اختي لم تذكري اسم نافذة النموذج الذي تريدين وضع خاصية التحرير به الى no

انا وضعت خاصية التحرير no في النماذج:

السجلات المطلوبة

السجلات المطلوبة1

ولم تحدث مشاكل لاظهار السجلات

اذا كنت تقصدين وضع خاصية التحرير الى no في نموذج (نافذة الأستعلام) فهذا يؤدي الى عدم تمكين المستخدم من استخدام عناصر التحكم الموجودة في النموذج وبالتالي لاتوجد فائدة من ذالك النموذج.

نعم نافذة الأستعلام لأني أنا أريد الوحدة التي تريد الأستفسار أو الأستعلام ممكن تشوف وتطلع بس ماتستطيع أن تغير في المعلومات عرفت قصدي وليه لأني أريد وضعه على النت المحليه في المعهد وللجميع

حولي قاعدة البيانات الى mde ولن يستطيع احد تغيير النماذج

ولكن انتبهي انه يمكن تغيير المعلومات من الجداول ايضا.

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

لكي تجعلي النموذج للقراءة

في خاصية " في الحالي " الخاصة بالنموذج أكتبي الكود التالي :

Me . AllowEdits = False

ضع مربع نص وسميه مثلاً Passowrd وفي خاصية حدث بعد التحديث أكتب الكود التالي:

If Passowrd = " أي كلمة سر تريدين " then
Me . AllowEdits = True
Else
Me . AllowEdits = False
End if

وذلك لمن يكتب كلمة السر الحقيقية يسمح له بالحذف ولإضافة والتعديل ومن لم يعرفها تضل بيانات النموذج للقراءة فقط0

ولكي تعيدين النموذج للقراءة بعد الحذف أو الإضافة أو التعديل ضعي زر أمر على النموذج وفي خاصية عند النقر أكتبي الكود التالي

Me . AllowEdits = False

أما بالنسبة لحماية الجداول من الحذف والتعديل فقد تفضل الأخ الفاضل / ابو حمود مشكورا بوضع أكواد لإخفاء الجداول بحيث لا يمكن إظهارها إلا بواسطة كود أخر وقد أستفدت كثيراً من هذه الطريقة حيث أعتبرها أشد قوة في حماية البيانات وقد استخدمت تلك الطريقة في وضع جدول لكلمات السر الخاصة بقاعدة البيانات ابحثي في المنتدى سوف تلك الأكواد

شكرا أخوي فهاد على الموضوع .

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

سؤال آخر وليس في الموضوع وش معنى 5060 وسامحني هلى

اللاقفه.

====================================

لحظة ::: الضاهر لقيت مثل هذا الموضوع وهو خاصية ألغاء مفتاح الشفت وهناك كود كتبه الأخ مفرج ويقول يوضع في ماكرو عن طريق التشغيل الآلي autoexec بس كيف يكتب الماكرو . الماكرو فيه قوائم كثيره وش أختار و وين ألصق هذا الكود .

http://arabteam.nicmatic.com/vb/showthread...%CC%CF%C7%E6%E1

الأخ عضو شرف كتبت الكود بحذافيره

Private Sub Form_Current()

Me.AllowEdits = False

End Sub

=============================

Private Sub password_AfterUpdate()

If Text47 = "123" Then

Me.AllowEdits = True

Else

Me.AllowEdits = False

End If

End Sub

=============================

Private Sub Command49_Click()

Me.AllowEdits = True

End Sub

===============================

بس أصبح الفورم مايستعرض السجلات والسبب الأمر هذا

Me.AllowEdits = False

لأنه أول مايعمل يتوقف العرض قهمت قصدي أحنا نبيه يستعرض بس مايعدل فيه

أنا بقيت أحطه في خاصية التحرير بس مش ممكن لأن مافيها مجال لكتابة الكود بس نعم/لا

أما بقية الكود الخاص بالرقم السري مافيه مشكلة .. هل فهمت المشكلة وشي (أول مايعمل الفورم يلاقي هذا في وجه Me.AllowEdits = False ) فكيف تبيه اذا يستعرض . الله يعينك

يا اخت ليلى

هذا الأمر ليس له علاقة بإخفاء السجلات فهو يقوم بمنع الحذف والتعديل والإضافه فقط

استبدلي كلمة Text47 الموجودة في الكود باسم Passowrd وإذا لم تعمل أرسل لي قاعدة البيانات على البريد التالي Mrsalnet@Ajeeb.com وسوف التأكد منذلك وأرفق بها كود إخفاء واظهار الجداول

الأخ العزيز fahadam الكريم

لقد أرسلت لي قاعدة البيانات في البريد student.mdb ومع الأسف أني ضيعتها من جهازي ولم أعد أجدها في البريد . فهل تتكرم بأرسالها او وضع لها للنك على النت . مع جزيل الشكر