اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

وشكرا ,,,

_____________________.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

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

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

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

قام بنشر (معدل)

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

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

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

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

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

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

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

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

والله اعلم

تم تعديل بواسطه tamer_kh_5251
قام بنشر

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information