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

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

قام بنشر

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

وتقبل الله منكم صالح الأعمال..

الأساتذة الكرماء رعاكم الله لدي قائمة منسدلة من نموذج فرعي أرغب في إذا تم اختيار كلمة تدبر أن تختفي سجلات من النموذج الفرعي الآخر وتظهر سجلات وإذا تم اختيار غير ذلك يتم العكس..

طبقت على ذلك قاعدة If لكن بعد إدخال البيانات تظهر رسالة مشلكة ..

آمل التكرم بالتوجيه والتسديد رعاكم الله مرفق المثال وهذا الكود الذي تم وضعه 

 

If FNX = "تدبر" Then

Forms![majal1]![fnx2]![hekma].Visible = True
Forms![majal1]![fnx2]![addz].Visible = True
Forms![majal1]![fnx2]![beanx].Visible = False
Forms![majal1]![fnx2]![nobeanx].Visible = False

Else

Forms![majal1]![fnx2]![hekma].Visible = False
Forms![majal1]![fnx2]![addz].Visible = False
Forms![majal1]![fnx2]![beanx].Visible = True
Forms![majal1]![fnx2]![nobeanx].Visible = True

End If

 

مثال ربط قائمة منسدلة.rar

  • Like 1
قام بنشر
11 ساعات مضت, حامل المسك said:

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

وتقبل الله منكم صالح الأعمال..

الأساتذة الكرماء رعاكم الله لدي قائمة منسدلة من نموذج فرعي أرغب في إذا تم اختيار كلمة تدبر أن تختفي سجلات من النموذج الفرعي الآخر وتظهر سجلات وإذا تم اختيار غير ذلك يتم العكس..

طبقت على ذلك قاعدة If لكن بعد إدخال البيانات تظهر رسالة مشلكة ..

آمل التكرم بالتوجيه والتسديد رعاكم الله مرفق المثال وهذا الكود الذي تم وضعه 

 


If FNX = "تدبر" Then

Forms![majal1]![fnx2]![hekma].Visible = True
Forms![majal1]![fnx2]![addz].Visible = True
Forms![majal1]![fnx2]![beanx].Visible = False
Forms![majal1]![fnx2]![nobeanx].Visible = False

Else

Forms![majal1]![fnx2]![hekma].Visible = False
Forms![majal1]![fnx2]![addz].Visible = False
Forms![majal1]![fnx2]![beanx].Visible = True
Forms![majal1]![fnx2]![nobeanx].Visible = True

End If

 

مثال ربط قائمة منسدلة.rar 43.97 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

اجعل جميع ما سبق مثل هيك

 Forms![majal1]![FNX2].Form![hekma].Visible = True

ورح تزبط معك 

قام بنشر
17 ساعات مضت, حامل المسك said:

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

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

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

If FNX = "تدبر" Then

Me![hekma].Visible = True
Me![addz].Visible = True
Me![beanx].Visible = False
Me![nobeanx].Visible = False

Else

Me![hekma].Visible = False
Me![addz].Visible = False
Me![beanx].Visible = True
Me![nobeanx].Visible = True

End If

::بالتوفيق::

قام بنشر
22 دقائق مضت, حامل المسك said:

تم التعديل يا أبا محمد .. ولا زالت المشكلة قائمة

image.png.adac484fd9b0ff02a8052ab64418ae92.png

كما تلاحظ بالصورة تم تنفيذ الكود

قام بنشر

حياك الله يا غالي وسلمت ..

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

في حال العودة للسجل والأول والتعديل عليه تظهر هذه المشكلة ..

فما الحل؟

قام بنشر
3 دقائق مضت, حامل المسك said:

لو اخترنا تدبر في السجل الأول ثم أدخلنا بيانات ثم انتقلنا للسجل الآخر واخترنا حكم مثلا وأدخلنا بيانات ..

وضح اكثر ولو كان بالصور يكون أفضل

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

 

أسأل الله في هذه العشر المباركات أن يبارك لك في أهلك ومالك وولدك ويرزقك من حيث لا تحتسب..

حدث إشكال وقمت بحذف الكود من النموذج الثاني في حدث الحالي..

فعمل معي بالشكل الصحيح..

جاري التجربة

 

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

Forms![majal1]![fnx2]![noza].SetFocus
 في الكود السابق هل يشترط في noza أن يكون مفتاح أساسي وإذا كان ذلك فهل يشترط أن يكون رقما..

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

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

ممتاز وقمت بإضافة كود بعد التحديث في القائمة المنسدلة FNX

   Me.Parent![FNX2].Requery

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

ربي يوفقك لكل خير يا غالي ..

 

تم تعديل بواسطه حامل المسك
قام بنشر (معدل)

تم التطبيق على البرنامج الأصل وعمل 100% بحمد الله

يجف حبر الحروف عن التعبير بالشكر والتقدير .. لكن لكم منا الدعاء ..

جميلكم محفوظ.. وعمل المعروف يدوم ويدوم.. كتب الله لكم ذلك في ميزان الحسنات..

تم تعديل بواسطه حامل المسك
  • Like 1

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