السلام عليكم ورحمة الله وبركاتة
الاخوة الاعزاء
ما هي الطريقة التي تجعل مربع التحرير والسرد يقرأ كل اسماء التقارير مثلا الموجودة بالقاعدة .
لنفرض ان هناك اكثر من 30 تقرير في قاعدة واحدة
و اذا وضعنا 30 زر امر لفتح تلك التقارير في نموذج فان مظهر البرنامج يصبح غير مقبول
لذلك خطرت الفكرة بأن نضع اسماء التقارير في مربع تحرير وسرد
فما على المستخدم الا اختيار التقرير من المربع ليفتح له التقرير .
علما بأن عدد التقارير غير ثابت
تحياتي
;)
أخي الكريم
السلام عليكم
جرب الكود التالي
Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllReports s = s & ";" & obj.Name Next Me.RepList.RowSource = mid(s, 2)
تحياتي
أخوك / أبو هاجر
أخي أبو هاجر
بارك الله فيك على مجهودك الكبير في مساعدة الزملاء في هذا المنتدى
و لي إستفسار بسيط
كيف يمكن تغيير الكود لفتح نموذج بدلاً من تقرير و أين يتم وضعه و لك خالص الشكر
أخي الكريم
السلام عليكم
بدلاً من AllReports ضع ALLFORMS
والكود يوضع في حدث عند الفتح للنموذج الذي يحتوي على مربع التحرير والسرد الذي اسمه RepList
تحياتي
السلام عليكم
الاخ العزيز ابو هاجر
جربت الكود في حدث الفتح للنموذج الذي يحتوي على مربع التحرير والسرد
فاعطى رسالة تحذيرية بها اسماء التقارير جميعها ولكن لم يدخل هذه الاسماء الى القائمة المنسدلة .
انظر صورة الرسالة في المرفقات .
تحياتي
أخي الكريم
السلام عليكم
ولكنني جربته وجربنه الآن مرة أخرى فعمل بشكل جيد
يظهر أن المشكلة ليست في الكود بقدر ما هي في النموذج نفسه
لمعرفة المشكلة جرب وضع الكود في حدث عند النقر لزر ما وضع رسالة لتقرأ مصدر الصف قبل وضعه في القائمة حتى تتأكد من أن الكود يعمل بشكل جيد
تحياتي
الأخ محمد طاهر
السلام عليكم
أحسنت حفظك الله فلم أنتبه إلى هذه النقطة وكنت أنوي الإشارة إليها ولكنني نسيتها فذكرك الله بالشهادة
تحياتي
مثال بسيط على قدى بدون كود
الاخوة الاعزاء
بارك الله فيكم وأجزل لكم المثوبة وجمعنا الله واياكم تحت ظله يوم لا ظل إلا ظله
اكرر شكري للجميع
تحياتي
وكل عام وأنتم بخير (f) (f) (f) (f) (f)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
