فتح التقارير عن طريق قائمة منسدلة ComboBox

[Mr Hack]

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

المطلوب طريقة عمل قائمة في الاكسس تحقق ارتباطات لنماذج اخرى اوتقارير
على العموم المطلوب موضح في المثال على الرايط التالي

http://www.geocities.com/zead80/zead.zip تم تعديل فبراير 4, 2005 بواسطه Mr Hack

[امير عاطف]

يمكنك عمل ذلك عن طريق جملة Select Case

حيث تضع الكود التالي لحدث After Apdate للكمبو بوكس

Select Case Me.Combo_Name
       Case Is = "Open Report t1"
       DoCmd.OpenReport "t1", acViewPreview
      '
      '
      '
End Select

[Mr Hack]

تسلم عزيزي أمير بس يا ليت تحط مثال مرفق

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

يا ريت تعجل بالمثال

تم تعديل فبراير 5, 2005 بواسطه Mr Hack

[امير عاطف]

تفضل

test.zip