حقول كثيرة واريد اخفائها او اظهارها

الاخ صالح سؤالك غير واضح

ولكن دعني اسئلك هل تريد ان تعمل فورم وبها ازارير بمجرد الضغط عليها يفتح لك نموذج جديد وبه ماتريد

ام ان تريد بنفس النموذج وان اردت ذلك فماعليك الا ان تجعلها مخفيه بالاصل وبضغط زرار يضهرها وذلك من الماكرو

الأخ صالح

يمكنك عمل 3 نماذج الأول به حقول السكان فقط والثاني به خقول السكان والتعليم والثالت به حقول السكان والتعليم والصحة

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

طبعا كل الحقول تأخذ من جدول واحد وذلك لعدم تكرار البيانات

أشرف

مع التحية للاخ بوب عابدوالأخ ashraf

الاخ بوب : اريدان اعمل فورم وبها ازارير بمجرد الضغط عليها يفتح نموذج جديد وبه مااريد

الاخ ashraf:عندي معلومات كثيرة غير السكان والصحة والتعليم تقريباً 15 فئة بمعني 15 نموذج ، فيها تعقيد لو اتعبت نفس جوابك

شاكراً لكما تجاوبكم السريع

الأخ صالح

لو توضح أكثر أو ترسل لي الملف على بريدي لأن طلبك غير واضح :

H_H123@hotmail.com

ولك تحياتي

مع التحية للاخ ابو حمود لقد ارسلت المثال على بريدك

وتقبل تحياتي

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

الأخ صالح محمد

لقد عدلت الملف الذي أرسلته ، وقد أرسلته على بريدك آمل أن يكون قد وصلك .

ولك تحياتي

الأخ ابو حمود

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

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

وتقبل تحيات اخوك .

بسم الله الرحمن الرحيم

الأخ الفاضل / ابوحمود

كيف حالك ..

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

فكل زيارة لهذا المريض للعيادة يحتاج الى تحاليل معينة .. هذه التحاليل تتعلق بنوع مرضة ..

بالتفصيل : لدى

- جدول بيانات اساسية للمرضى : رقم المريض - الاسم - النوع - تاريخ الميلاد - التشخيص - التشخيص ا لفرعى - الصورة

- جدول التحاليل : رقم المريض - تاريخ الزيارة - عدد من الحقول كل حقل يمثل تحليل معين

- جدول المتابعة بالعيادة : مثل جدول التاحاليل و لكن حقوله تحص بيانات عن مشاهدات طبية عن حالة المريض لون بشرتة - حجم الكبد - ... الخ

السؤال عند ادخال بيانات الزيارات المختلفة للمرضى كيف يمكن اظهار التحاليل المناسبة و التى تخص تشخيصة - طبعا معروف ما هى التحاليل المناسبة لكل تشخيص

خالص شكرى و تقديرى

أخـــــBengaــــوك

الأخ benga

حالي طيبة ولله الحمد .

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

H_H123@hotmail.com

ولك تحياتي

الأخ العزيز أيو حمود :

لو أمكن وضع الأمثلة لعامة المشاركين للاستفادة يكون أفضل مثلما تفضلت وذكرت سابقا فى إحدى موضوعاتك .

أشرف

الأخ أشرف

كلامك طيب جدا وهذا هو المطلوب ولكن ما جعلني أعمل ذلك هو أن الموضوع قد لا يستفيد منه أحد لأنه خاص بالأخ صالح محمد وطريقته المطلوبة أنا نفسي غير راض عنها ولكن هذه رغبته -لاتزعل علي يا اخوي ابوصالح- ، وأنت تلاحظ يا أخ أشرف أن بعض الأخوة - لا أخص أحداً- قليل منهم من يوضح مشكلته توضيحا كاملا لاتحتاج بعده للسؤال عن شيء ، ومن جانب آخر فالكسل وضيق الوقت هو الذي يدفعني أكثر لعدم كتابة الرد في المنتدى ، وحيث أن لك رغبة في موضوع الأخ صالح فسأكتب شرح لما هو مطلوب ولما عملته أنا .

الأخ صالح لديه جدول فيه عدد من الحقول وهي :

عدد المدارس

عدد الجامعات

عدد الكليات

عدد المعاهد

عدد المستشفيات

عدد المراكز الصحية

عدد الادارات الحكومية

عدد السكان

عدد المساكن

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

عدد المدارس

عدد الجامعات

عدد الكليات

عدد المعاهد

مرتبطة بالتعليم و

عدد المستشفيات

عدد المراكز الصحية

مرتبطة بالصحة و

عدد الادارات الحكومية

مرتبطة بالإدارات و

عدد السكان

عدد المساكن

مرتبطة بالسكان

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

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

Option Compare Database

Private Sub Form_Load()

Dim FrmName As Form

Set FrmName = Forms![نموذج1]

If FrmName![التعليم] = True Then

[عدد المدارس].Visible = True

[عدد المعاهد].Visible = True

[عدد الجامعات].Visible = True

[عدد الكليات].Visible = True

End If

If FrmName![الصحة] = True Then

[عدد المستشفيات].Visible = True

[عدد المراكز الصحية].Visible = True

If FrmName![التعليم] = False Then

[عدد المدارس].Visible = True

[عدد الجامعات].Visible = True

[عدد المدارس].ControlSource = "عدد المستشفيات"

[عدد الجامعات].ControlSource = "عدد المراكز الصحية"

تسمية3.Caption = تسمية11.Caption

تسمية5.Caption = تسمية13.Caption

[عدد المستشفيات].Visible = False

[عدد المراكز الصحية].Visible = False

End If

End If

If FrmName![الادارات] = True Then

[عدد الادارات الحكومية].Visible = True

' عند اختيار الإدارات والصحة

If FrmName![التعليم] = False And FrmName![الصحة] = True Then

[عدد الادارات الحكومية].Visible = False

[عدد الكليات].Visible = True

[عدد الكليات].ControlSource = "عدد الادارات الحكومية"

تسمية7.Caption = تسمية15.Caption

End If

' عند إختيار التعليم والإدارات

If FrmName![التعليم] = True And FrmName![الصحة] = False Then

[عدد الادارات الحكومية].Visible = False

[عدد المستشفيات].Visible = True

[عدد المستشفيات].ControlSource = "عدد الادارات الحكومية"

تسمية11.Caption = تسمية15.Caption

End If

' عند إختيار الإدارات فقط

If FrmName![التعليم] = False And FrmName![الصحة] = False Then

[عدد المدارس].Visible = True

[عدد المدارس].ControlSource = "عدد الادارات الحكومية"

تسمية3.Caption = تسمية15.Caption

[عدد الادارات الحكومية].Visible = False

End If

End If

If FrmName![السكان] = True Then

[عدد السكان].Visible = True

[عدد المساكن].Visible = True

If FrmName![التعليم] = True And FrmName![الصحة] = True _

And FrmName![الادارات] = False Then

[عدد المساكن].Visible = False

[عدد الادارات الحكومية].Visible = True

[عدد الادارات الحكومية].ControlSource = "عدد المساكن"

تسمية15.Caption = تسمية19.Caption

End If

' عند اختيار التعليم والسكان

If FrmName![التعليم] = True And FrmName![الادارات] = False And _

FrmName![الصحة] = False Then

[عدد السكان].Visible = False

[عدد المساكن].Visible = False

[عدد المستشفيات].Visible = True

[عدد المراكز الصحية].Visible = True

[عدد المستشفيات].ControlSource = "عدد السكان"

[عدد المراكز الصحية].ControlSource = "عدد المساكن"

تسمية11.Caption = تسمية17.Caption

تسمية13.Caption = تسمية19.Caption

End If

' عند إختيار الصحة والسكان

If FrmName![التعليم] = False And FrmName![الادارات] = False And _

FrmName![الصحة] = True Then

[عدد السكان].Visible = False

[عدد المساكن].Visible = False

[عدد الكليات].Visible = True

[عدد المعاهد].Visible = True

[عدد الكليات].ControlSource = "عدد السكان"

[عدد المعاهد].ControlSource = "عدد المساكن"

تسمية7.Caption = تسمية17.Caption

تسمية9.Caption = تسمية19.Caption

End If

' الصحة والإدارات

If FrmName![التعليم] = False And FrmName![الصحة] = True _

And FrmName![الادارات] = True Then

[عدد السكان].Visible = False

[عدد المساكن].Visible = False

[عدد المعاهد].Visible = True

[عدد المستشفيات].Visible = True

[عدد المعاهد].ControlSource = "عدد السكان"

[عدد المستشفيات].ControlSource = "عدد المساكن"

تسمية9.Caption = تسمية17.Caption

تسمية11.Caption = تسمية19.Caption

End If

' عند إختيار الإدارات السكان

If FrmName![التعليم] = False And FrmName![الصحة] = False _

And FrmName![الادارات] = True Then

[عدد السكان].Visible = False

[عدد المساكن].Visible = False

[عدد الجامعات].Visible = True

[عدد الكليات].Visible = True

[عدد الجامعات].ControlSource = "عدد السكان"

[عدد الكليات].ControlSource = "عدد المساكن"

تسمية5.Caption = تسمية17.Caption

تسمية7.Caption = تسمية19.Caption

End If

' السكان فقط

If FrmName![التعليم] = False And FrmName![الصحة] = False _

And FrmName![الادارات] = False Then

[عدد السكان].Visible = False

[عدد المساكن].Visible = False

[عدد المدارس].Visible = True

[عدد الجامعات].Visible = True

[عدد المدارس].ControlSource = "عدد السكان"

[عدد الجامعات].ControlSource = "عدد المساكن"

تسمية3.Caption = تسمية17.Caption

تسمية5.Caption = تسمية19.Caption

End If

End If

End Sub

علما أن النموذج الذي عليه مربعات التدقيق قد سماه هو نموذج1 والنموذج الذي عليه الحقول سميته نموذج العرض .

ووضعت في الوحدة النمطية الخاصة بنموذج1 التالي :

Option Compare Database

Private Sub فتح_النموذج_Click()

If Me![التعليم] = False And Me![الصحة] = False _

And Me![الادارات] = False And Me![السكان] = False Then

MsgBox "اختر احد الخيارات .", vbCritical

Else

DoCmd.OpenForm "نموذج العرض"

End If

End Sub

أخي أشرف

هل يستفيد أحد مما كتبته هنا ؟!

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

ولك تحياتي شاكرا لك تنبيهك وتذكيري .

الأخ benga

ارسلت لك الملف على بريدك .

الأخ أشرف

ما رديت ؟

ولكما تحياتي