الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

منع التعديل فى الحقول

مغلق
بدأه محمد طاهر في 25 أكتوبر 2002 · 0 رد · 378 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1

موضوع منقول من المنتدي القديم

الكاتب : سعودي 31

إغلاق حقل واحد في النموذج ..وفتحه !

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

عندما أريد إغلاق جميع حقول النموذج عند الفتح وعدم السماح بالتعديل فيها أو الحذف

أضع في حدث في الحالي وفي حدث بعد التحديث للنموذج هذا الكود

Form.AllowEdits = False

وعندما أريد فتح جميع حقول النموذج بعد إغلاقها والسماح بالتعديل فيها أو الحذف

أضع في حدث عند النقر لزر الأمر هذا الكود

Form.AllowEdits = True

ولكن إذا أردت إغلاق حقل واحد فقط في النموذج فما هو الكود المناسب لذلك ؟

وإذا أردت فتح هذا الحقل بعد إغلاقه فما هو الكود المناسب أيضاً ؟

وللجميع تحياتي

الكاتب: سعودي31 بتاريخ: 9/5/2002 11:28:33 PM

--------------------------------------------------------------------------------

طريقة إغلاق حقل في نموذج ثم فتحه

أخي الكريم/ سعودي

ضع في حدث الحالي للنموذج الكود التالي :

Private Sub Form_Current()Me!أسم الحقل.Enabled = FalseEnd Sub

أنشىء زر على النموذج وضع في حدث عند النقر بداخله الكود التالي :

Me!أسم الحقل.Enabled = True

والله الموفق

--------------------------------------------------------------------------------

مع خالص تحياتي

ابن مسقط

assq@gawab.com

الكاتب: ابن مسقط بتاريخ: 9/6/2002 5:30:19 AM

--------------------------------------------------------------------------------

طريقة أخرى

ضع في حدث الحالي للنموذج الكود التالي :

Private Sub Form_Current()Me!city.Locked = TrueEnd Sub

وفي حدث عند النقر لزر موضوع على نفس النموذج أكتب هذا الكود :

 
Me!city.Locked = False

وأخبرني من فضلك بملاحظاتك على كلا الطريقتين .

--------------------------------------------------------------------------------

مع خالص تحياتي

ابن مسقط

assq@gawab.com

الكاتب: ابن مسقط بتاريخ: 9/6/2002 5:45:51 AM

--------------------------------------------------------------------------------

طريقة أخرى

ضع في حدث الحالي للنموذج الكود التالي :

Private Sub Form_Current()Me!أسم الحقل.Locked = TrueEnd Sub

وفي حدث عند النقر لزر موضوع على نفس النموذج أكتب هذا الكود :

Me!أسم الحقل.Locked = False

وأخبرني من فضلك بملاحظاتك على كلا الطريقتين .

--------------------------------------------------------------------------------

مع خالص تحياتي

ابن مسقط

assq@gawab.com

الكاتب: ابن مسقط بتاريخ: 9/6/2002 5:47:06 AM

--------------------------------------------------------------------------------

الثانية هي ما كنت أبحث عنها

ألف ألف شكر أخوي ابن مسقط

أنا كنت أبحث عن الطريقة الثانية وهي التي تناسبني .

أما الطريقة الأولى فكنت أعرفها من قبل .

أكرر شكري وتقديري لك زادك الله علماً وسعة في الرزق والصحة .. آمين

وتقبل خالص تحيات أخوك : فهد الدوسري

سعودي31

الكاتب: سعودي31

هذا الموضوع مغلق.

مواضيع مشابهة