فتح و اغلاق نموذج بناء علي مربع خيارات checkbox

[محمد السليس]

الاخوة الكرام

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

هذا سؤال اتمنى ان احصل على إجابة له :

لدي نموذجين .

الأول نموذج ( مصروفات ) وبه مربع تحرير وسرد يحتوي على خيار ( الصحة).

ولدي نموذج أخر اسمه ( الصحة) .

وأريد ما يلي : إذا تم اختيار الخيار ( الصحة ) من مربع تحرير وسرد الموجود في نموذج ( المصروفات ) ينفتح النموذج الآخر الذي اسمه ( الصحة) ، وفي حال عدم اختيار الخيار ( الصحة ) من قائمة تحرير وسرد ينغلق النموذج ( الصحة ) . علماً بأني اعمل على access xp .

أرجو أن تكون الإجابة مفصلة ولكم جزيل الشكر والامتنان .

[ابو عبدالرحمن]

اعمل زر أمر لفتح نموذج الصحة . وأضف هذا السطر إلى الكود الخاص بفتح النموذج

If Me.com = "الصحة" Then

ضعه في السطر الثاني بعد بعد سطر (on error)

لا تنس وضع end if نهاية كود فتح النموذج وقبل Exit

com هو اسم مربع التحرير والسرد

[محمد السليس]

الاخ العزيز لم استطع تطبيق ما ارسلته أرجو التفصيل اكثر

ولك جزيل الشكر

[ابو عبدالرحمن]

ذكرت أن لديك نموذج اسمه (المصروفات) وهذا النموذج فيه مربع تحرير وسرد . عدل اسم مربع التحرير والسرد إلى com

في نفس نموذج المصروفات ، اعمل زر أمر لفتح نموذج ( الصحة) ، ثم عدل على كود زر الأمر ما ذكرته في الرد السابق .

فعندما تختار الصحة في مربع التحرير والسرد وتضغط زر المر يفتح نموذج الصحة . وإذا اخترت كلمة أخرى لا يفتح نموذج الصحة

[مهند عبادي]

أظن أن الأخ أبو عبد الرحمن يريد هذا الكود :

بفرض أن مربع السرد والتحرير اسمه Com

وأن نموذج الصحة اسمه Health

Private Sub Com_Click()
     If [Com] = "الصحة" then
          DoCmd.openform "Health"
    Else
          DoCmd.Close acForm ,"Health"
    End If
End Sub

[محمد السليس]

الاخوة الاعزاء

الاخ عبادي

السلام عليكم

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

وشكرا .

[lyla]

أخ محمد أفتح خصائص مربع النص ولي سويته أو أضغط بزر الفارة اليمين أو أضغط عليه مرتين . فهمت :lol:

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

Private Sub äÕ28_Click()

هنا......

End Sub

خلاص أطلع وشغل الفورم . بس لا تنسى تغير أسم مربع النص ولي تقول عليه الى أسم Com . بس شوف فيه أمور أساسيه لزم تفهمها أشان لما أحد يعطيك الحل تفهم وش المطلوب . وربنا يوفقك . أختكم في الله

[محمد السليس]

الاخت ليلى شكرا على المداخلة ، ولكن وبعد المحاولات العديدة لم أنجح هذا أولاً ، أما ثانيا قد اشرتي إلى وجوب معرفتي ببعض الأمور أرجو أعطائي بعض هذه الأمور . وأخيرا لو كنت أعرف كيف أرفق نموذج لمشروعي قيد السؤال لبسطت الفكرة لديكم .

[محمد طاهر عرفه]

السلام عليكم

أولا بخصوص المرفقات و عنوان المشاركة الحالي ، يرجي مراجعة قواعد المشاركة بالمنتدي

بخصوص فتح و اغلاق نموذ بناء علي مربع خيارات checkbox فى نموذج آخر

استخدم الكود التالي فى حدث بعد التحديث لمربع النص

Private Sub Check3_AfterUpdate()
 If Me.Check3 = True Then
  DoCmd.OpenForm "Form2"
  Else
  DoCmd.Close acForm, "Form2"
  End If
End Sub

مرفق مثال

OpenClose.rar

[محمد السليس]

الاخ العزيز السلام عليكم

اسف على التأخير ، فلم استطع فتح الملف المرفق ، ثم أني أريد فتح نموذج الصحة من خلال مربع تحرير وسرد بمجرد اختيار ( صحة ) من القائمة ، وليس لدي مربع خيار . وشكرا .

[ابو عبدالرحمن]

أخ محمد طبق الخطوات التالية بدقة :

1- أعد تسمية نموذج الصحة باسم Health

2- في نموذجك الرئيسي ( الذي يحتوي على مربع التحرير والسرد) اذهب لخصائص مربع التحرير والسرد ، وفي تبويب( غير ذلك ) _ خانة الاسم اكتب (com ) كاسم لمربع التحرير والسرد

3- انسخ الكود في رد الأخ مهند العباد

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

5-الآن شغل نموذج الرئيسي وجرب

ملحوظة : انتبه لعدم تكرار السطر الأول والسطر الأخير من الكود لأن البرنامج سيكتبها لك تلقائيا

خذ الموضوع خطوة خطوة ولا تستعجل

تم تعديل أبريل 22, 2004 بواسطه ابو عبدالرحمن

[محمد السليس]

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

لقد طبقت ما قلت بالحرف الواحد ولكن لم تفلح العملية . وأود أن أوضح .

بأني قمت بربط الجدولين ( المصروفات ) وهو الرئيسي الذي يشتمل على مربع تحرير وسرد مع جدول ( الصحة ) . وبناءً عليه قمت ببناء النموذجين .

وسؤال أخير الاخوة الذي أجابوا بعضهم تطرق إلى أنه علي أن إنشاء زر أمر لفتح نموذج الصحة داخل النموذج الرئيسي ( المصروفات ) ولا أدري ما فائدته طالما أني لا أريد أن ينفتح إلى عند تحديد الخيار صحة من مربع التحرير والسرد .

أعلم بأني قد اخذت من وقتكم الثمين ولكن المعلومة ضالت المؤمن . والعالم يهدي إليها بعد الله بصدر رحب .

[ابو عبدالرحمن]

أخي محمد قبل أن اكتب لك الخطوات قمت بتطبيقها ونجحت ، ولكن قد يكون ماتريد غير ما نحاول إصاله لك . لا أدري بالضبط .

بغض النظر عن النموذجين وارتباطهما . من حدث بعد التحديث لمربع التحرير والسرد لابد أن يفتح النموذج الذي اسمه Health

حاول أن تجرب الطريقة بنماذج بدون بيانات . فقد انشا نموذج فيه مربع التحرير والسرد ويكون هو الرئيسي ونموذج آخر باسم Health وطبق الطريقة مرة أخرى .

أما سؤالك عن زر الأمر ، فهو حسب حاجتك هل تريد فتح النموذج بعد تحديث مربع التحرير والسرد مباشرة ، أو بعد ضغط زر الأمر فلا فرق بينهما ويرجع الأمر إلى حاجتك ورغبتك فقط

[محمد السليس]

الأخ أبو عبدا لرحمن ، الإخوة الأعزاء

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

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

[ابو عبدالرحمن]

إذا يبقى عليك ، تطبيقها على قاعدتك بعد ان عرفت الفكرة ، ابحث عن سبب عدم نجاحها مع نماذج .