منع اضافة سجل في النموذج الفرعي في حالة المغادرة

[ماجدجلال]

السلام عليكم ,,

تمكنت و الحمد الله من وضع كود يمنع اضافة سجل جديد في النموذج الفرعي في حالة كانت الاشارة امام مغادرة النزيل ( صح ) طبعا بواسطة خانة اختيار . المشكلة انة عند نقر خانة الاختيار لا يتم تفعيل الكود حتي يتم الانتقال الي سجل اخر العود فيصبح الكود مفعل و يعمل بشكل صحيح ,

مثلا : نزيل نقرت امام عبارة ( مغادرة صح ) ثم انتقلت الي النموذج الفرعي لادخال تاريخ الدخول او وقت الدخول فيتم الكتابة , بينما من المفترض انة بمجرد نقر ( خانة الاختيار ) يتم قفل ( تاريخ الدخول و وقت الدخول ) , ولا يتم ذلك الا بعد الانتقال الي سجل اخر ومن ثم العودة الي نفس السجل لتلاحظ انة لا يتم اضافة سجل جديد ,,,

ارجو المساعدة ,

ملاحظ : الكود لا يعمل الا علي تاريخ الدخول ووقت الدخول في النموذج الفرعي ,,,

وشكرا ,,,

_____________________.zip

[ماجدجلال]

فقط للرفع

[ماجدجلال]

فقط للرفع

[تامر خليفة]

مجرد رأي وقد اكون علي خطأ

جرب
If ss.Value = True Then
Me.GuestD_äãæÐÌ_ÝÑÚí.Enabled = False
Else
Me.GuestD_äãæÐÌ_ÝÑÚí.Enabled = True
End If


وضعه تحت حدث التغيير و فورم لوود

مجرد رأي وقد اكون علي خطأ

جرب
If ss.Value = True Then
Me.GuestD_äãæÐÌ_ÝÑÚí.Enabled = False
Else
Me.GuestD_äãæÐÌ_ÝÑÚí.Enabled = True
End If



وضعه تحت حدث التغيير و فورم لوود

_____________________.zip_____________________.zipوهذا المرفق بعد التعديل

[ماجدجلال]

شكرا لك اخي , مثالك ممتاز ولكن هناك مشكلة , اذا فتحت الملف بعد التعديل علي السجل الاول مثلا وهو في حالة مغادرة رغم ذلك يمكن تعديل البيانات او اضافة بيانات جديدة في النموذج الفرعي ,

ولكي ينجح الكود الذي وضعت لا بد من النقر المزدوج علي خانة الاختيار , اي في حالة المغادرة وكانت الاشارة صحيح الغاء الاشارة ومن ثما اعادة الاشارة حتي يصبح اغلاق النموذج الفرعي قيد التفعيل ,

وهذة هي مشكلتي الان , علي العموم شكرا جزيلا لك ,,,

[تامر خليفة]

لا مشاكل ان شاء الله

تقدر تعمل نفس الكود في حدث تغير اسم العميل عند تغير جميع الحقول في النموذج الرئيسي

وكده نبقي حلينا المشكلة ان شاء الله

والله اعلم

[ماجدجلال]

اخي الغزيز ,,

شكرا لك جربت طريقتك ولكن لم تنجح ,فمثلا السجل الاول في الملف الذي عدلت علية انت , افتح الملف و لاحظ ان العميل الاول ( مغادر ) ومع انة مغادر الا انك تستطيع تعديل البيانات في النموذج الفرعي ,,,

افتح الملف ولاحظ ذلك بنفسك , الكود الذي صممتة ينجح في حالة النقر ( النقر علي خانة الاختيار ) اما عند اغلاق الاكسيس و فتح نفس الملف وايضا للعميل قد غادر الشقق ستجد انة يمكن التعديل ,,

انا اسف ولكن انا واثق من انك ستستطيع مساعدتي , وشكرا لك ,,,,

[تامر خليفة]

اخي العزيز شكرا لثقتك الغالية التي ارجو الله ان اكون كفأ لها والله المستعان

حضرتك ممكن تعمل نفس الكود في الفورم لود

وايضا في التغير علي كل الخانات وعند تحريك الماوس وعند كل حدث لكل الخانات

وكده البرنامج ان شاء الله هيقبل الكود ويتأثر به

والله اعلم

في انتظار تجربتك وتعليقك

وشكرا مرة اخرة لثقتك الغالية

[ماجدجلال]

شكرا لك اخي الغزيز ,

الكود الذي صممتة يعمل علي قفل النموذج الفرعي ,

اذا اردت كود اخري يعمل علي قفل النموذج الرئيسي Guest فماهو شكل الكود ؟

حاولت بنفس الطريقة السابقة ولكنها لم تنجح , ارجو منك المساعدة ,,

وشكرا وجزاك الله كل خير ,,

[تامر خليفة]

اخي الفاضل

الفكرة لن تتغير كثيرا لو كنت تقصد عدم اتاحة التعديل علي النموذج وهي

If ss.Value = True Then

GuestD_äãæÐÌ_ÝÑÚí.Enabled = False

sno.Enabled = False

NAGU.Enabled = False

NORO.Enabled = False

EMNA.Enabled = False

Else

GuestD_äãæÐÌ_ÝÑÚí.Enabled = True

sno.Enabled = True

NAGU.Enabled = True

NORO.Enabled = True

EMNA.Enabled = True

End If

وضعها في حدث فورم لود و التغير لكل مكان

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

في انتظار تجربتك

[تامر خليفة]

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

ليه حضرتك عامله في جدولين

كان الافضل ان يكون في جدول واحد لان الجدول التاني لا يوجد به بيانات ممكن تكرر

وبكده هيكون اسهل في التعامل معاه وفي ادخال البيانات

ده غير ان حضرتك اصلا مش عامل اي علاقات غير علاقة واحدة مع ان المفترض يكون فيه اكتر من علاقة

و في الفورم الرئيسي حضرتك مجمع من اكتر من جدول والاصح انك تجمع من جدول واحد طالما فيه علاقات صحيحة

ممكن حضرتك تحاول مرة تانية في تصميم البرنامج ككل وليس النموذج فقط

ده علي قدر علمي وقد اكون مخطئ

والله اعلم

تم تعديل يناير 25, 2007 بواسطه tamer_kh_5251

[ماجدجلال]

شكرا لك رايح اجرب الكود واعطيك النتيجة ,

وايضا رايح اراجع الجدوال و الروابط , مع ان التجربة الاولية للبرنامج من ناحية ادخال البيانات واخراج النتائج كانت ممتاز وخالية من الاخطاء ,,,

وهذا طبعا لا يمنع من الاخذ بمقترحات و ملاحظات الاساتذة في هذا المجال فربما تظهر المشاكل في المستقبل نتيجة اخطاء في التصميم ,

شكرا لك وجزاك الله كل خير .