هذه قائمة إقترحتها على أخي فهد منذ فترة لمثاله "مثال يضم عدة أمثلة" .
آمل تقبلها هدية خالصة .. تحتاج إلى تجربة ومراجعة وقابلة للتطوير .
تحياتي .
قائمة هدية لأخ فهد الدوسري
مغلق
أخوي واستاذي أبو هادي الهدية مقبولة
وكلمة شكرا لا تفيك حقك فجزاك الله خيرا وبارك فيك وزادك من علمه
===
هل من الممكن التكرم بعمل تعديل على النموذج ليقبل أكثر من ثلاثة أزرة أو إخباري عن الطريقة .. لأني أحتاج تقريباً إلى تسعة أزرة وقد حاولت ذلك ولكن لم أفلح لقلة خبرتي كما تعلم:o
وتقبل تحياتي
أشكرك أخي على قبول الهدية .. هذا كرم منك .
أخي ضع أي عدد من الأزرة وغير قيمة الثابت بحسب العدد المطلوب :
Const Items = 11 فـ Items هذا الثابت هو الذي يحمل عدد الأزرة .
كذلك لا تنسى أن تكون أسماء الأزرة تسلسلية يعني الزر الحادي عشر يكون اسمه Command11 .
هذا كل شيء .
أنا عملت المثال ليفتح نماذج فقط ، فإذا أحببت تعديله ليفتح تقارير أو استعلامات .. الخ فيمكنني تعديله .
أخوك أبو هادي .
مشكور على سرعة الرد
وفتح التقارير والاستعلامات هذا كرم منك وجميل لن أنساه
أخوي أبو هادي حاولت التعديل في الرقم فلم أحصل على ما أريد
وضعت الرقم 4 فأصبحت الأزرار تبدأ بالنموذج الثاني وتجاهل النموذج الأول نهائياً .. فما الحل مع شديد الأسف على إزعاجك بكثرة الأسئلة
معك حق .. لقد وجدت الخطأ
بدل
FItem = ((Nz(Me.PageNo) + 1) * Items) - 2
إلى
FItem = ((Nz(Me.PageNo) - 1) * Items) - (Items - 1)
وهو مكرر مرتين في حدث Click لزراري PageNext & PagePrevious .
وأنا آسف على ازعاجك .
تحياتي
نسخة معدلة تحتوي على نوع الـ Object وطريقة الفتح
ممكن تطويره لاحقا بإضافة للقراءة فقط أو للتعديل أو للإضافة ..
تحياتي
يتقدم العضو ويبحث ثم يقرر فيجد الحل المقنع والمفيد لذا العضو الفعال والمعطاء لهذا المنتدى أمثالك يا أبو هادي ، مع شكر وتقدير وإلى مزيد من العطاء والتقدم
أن شاء الله
تحياتي .
لا يزال الموضوع معلق بانتظار ردك أخي فهد .
أخي فهد هذا تعديل أخير ونهائي يحتوي على تسعة أزرة أوامر ويحتوي على كل الخيارات الخاصة بالفتح .
تحياتي
عاجز عن شكرك استاذي أبو هادي
الله يعطيك العافية ويبارك لك في صحتك
أخوي أبو هادي بعد أن طبقت المثال على البرنامج المرفق تخلصت من ثمانية نماذج بسبب هذه الطريقة وكذلك تخلصت من الماكروات جزاك الله خيراً
ولكن هناك مشكلة ربما تكون بسيطة عندك وصعبة عندي وهي حاول أن تفتح أي استعلام من الاستعلامات سوف يفتح على وضع التصميم وهذه ليست المشكلة
المشكلة أغلق الاستعلام ثم أنظر إلى شكل التقرير الذي عليه الأزرة .. يختلف وضعه ولا يكون في الوسط هل لذلك حل ؟ غير وضعية المنبثق
أخي فهد للأسف لم أستطع فتح الملف ، ربما يكون هناك خطأ في الضغط .. حاول تضغطه من جديد .
مع ملا حظة أنك تستطيع التحكم بطريقة الفتح .. حاول التبديل في الخيارات الموجودة في الجدول .
تحياتي
أخي فهد حاول التبديل في اختيارات الفتح View و datamode للاستعلامات .
وحاول التعديل في هذين الإجراءين :
Private Sub Form_Activate() DoCmd.Maximize End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize Call CmdNextPage_Click End Sub
تحياتي .
أخي فهد .. لقد قمت بإضافة التالي :
1 - الذهاب إلى رقم الصفحة مباشرة .
2 - تقسيم الأمثلة كما السابق ( نماذج ، تقارير .. الخ ) .
مع ملاحظة وجود وحدة نمطية خاصة بالمثال لا تنسى تصديرها للبرنامج .
تحياتي .
مبدع يا أستاذ أبو هادي
ألف شكر لك على جهودك
الله يحفظك لشبابك ويبارك في صحتك
هذا الموضوع مغلق.