موضوع منقول من المنتدي القديم
الكاتب: sultan
مربع السرد والتحرير في أكسس2000
أريد إنشاء مربع سرد وتحرير في نموذج به أسماء شهور السنة وأريد عند النقر على إحداها أن يفتح الجدول الخاص بذلك الشهر فما هو الكود المطلوب لها
أرجو عدم إهمال الرد على سؤالي وذلك لحاجة العمل
وشكراً جزيلاً لكم
--------------------------------------------------------------------------------
الكاتب: sultan بتاريخ: 8/25/2002 11:22:00 PM
--------------------------------------------------------------------------------
الكود
هناك عدة طرق لذلك :
إذا كانت أسماء الجداول هي نفسها أسماء الأشهر بمعنى أن الجدول الخاص بشهر محرم اسمه محرم فضع الكود التالي في حدث عند النقر لقائمة في الوحدة النمطية :
DoCmd.OpenTable [اسم القائمة]
لاحظ أن القائمة هنا يجب أن لاتحوي سوى أسماء الأشهر فقط .
أما إذا كانت الجداول مختلفة يعني ليست بأسماء الأشهر فاكتب الكود التالي :
Select Case [اسم القائمة]Case "محرم"DoCmd.OpenTable "اسم الجدول الخاص بشهر محرم"Case "صفر"DoCmd.OpenTable "اسم الجدول الخاص بشهر صفر"Case "ربيع الأول"DoCmd.OpenTable "اسم الجدول الخاص بشهر ربيع الأول"End Select...
آمل أن يلبي الكود حاجتك .
ولك تحياتي
--------------------------------------------------------------------------------
الكاتب: ابوحمود.
