Emad Fawzy Armanious

أستاذي الفاضل أحمد الفلاحجي شكرا على استجابتك ابحث بكلمة موسوعة كيف يمكن تفيل هذا الكود لانةغير نشط وعند ازالة علامة ' من امام الكود يتغير اللون اللى الاحمر اي هناك خطأ يرجى توضيح كيف يتم تشغيل هذا الكود واين يوضع في الدالة حتى يعمل بشكل صحيح في انتظار رد حضرتك

اين خبراء المنتدي؟

أستاذ / جعفر المحترم السادة الافاضل اعضاء المنتدى المحترمين في الملف المرفق طريقة بحث تم التعديل عليها من قبلكم في مشاركة سابقة ولكن لى طلب لعمل تعديل بسيط فمثلا يوجد اسم مرجع يبدأ بكلمة موسوعة وعند إضافة مرجع اخر يبدأ بنفس الكلمة عند البحث وكتابة كلمة موسوعة كاملة لا تتم الفلترة وعرض كل السجلات المحتوية على كلمة موسوعة فقط 1029.نموذج بحث.rar

هل من حل ؟؟؟؟

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

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

شكرا أبو عبد الله المرفق كان مثال من البرنامج لان البرنامج كبير الحجم ولا يمكن رفعه عند تطبيق الكود على البرنامج الاساسي تظهر رسالة Overflow ولا يتم التنفيذ يرجى توضيح السبب شكرا

شكرا لكل الأستاذة الافاضل الذين تفاعلوا مع طلبى جازاكم الله كل خير توضيح إضافي هناك قيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo تساوى 1 وهناك مجموعة من القيم في الجدول Table 1 في العمود No المطلوب هو عندما تتطابق القيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo مع اي من القيم في الجدول Table 1 في العمود No يظل النموذج المسمى Dashboard وعنندما لا تتطابق القيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo مع اي من القيم في الجدول Table 1 في العمود No يتم فتح النموذج المسمى Copy فوق النموذج المسمى Dashboard مرفق ملف Loop.rar

شكرا ابو الكرم تم التغيير ولكن نفس المشكلة الجدول به عدة صفوف للحقل No منهم قيمة واحدة صحيحة ما اريده هو ان يتم فحص هذه القيمه في كل صفوف الجدول وفي حالة تحقق الشرط يتم فتح النموذج المطلوب Dashbord وفي حالة عدم التحقق يتم فتح نموذ أخر Copy

شكرا استاذ خالد شكرا استاذ محمد عند تنفيذ الكود تم ظهور الرسالة المرفقة وتظليل الجزء التالي من الكود باللون الاصفر x = rs!No.Value

Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb 'حيث Table 1 يحتوى على عمود به القيم التى يراد التأكد من مطابقتها ("Set rs = db.OpenRecordset("Table1 For i = 0 To 2 'حيثNo هو الرقم الموجود في الجدول ويراد التأكد من مطابقته معMe.MNo If rs!No.Value = Me.MNo Then 'حيث Dashbord هو النموذج المراد فتحه في حالة تحقق الشرط "DoCmd.OpenForm "Dashboard Else If rs!No.Value <> Me.MNo Then 'حيث Copyهو النموذج المراد فتحه في حالة عدم تحقق الشرط "DoCmd.OpenForm "Copy End If End If Next i المشكلة انه في حالة تحقق الشرط وعدم تحقق الشرط يتم فتح النموذج Copy يرجى المساعدة في حل ه\ه المشكلة ولكم جزيل الشكر

شكر أخ جعفر

Print multiple Reports.accdb

السلام عليكم أعضاء المنتدى المحترمين عندي قاعدة بيانات فيها جدول يحتوى على على كل أسماء التقارير في قاعدة البيانات وفيه نموذج بيعرض أسماء التقارير بناء على إستعلام يحدد مجموعة من التقارير ومقابل كل سجل في النموذج يوجد Check Box المطلوب هو عمل زر امر به كود يطبع التقارير التي تم إختيارها بناء على ال Check Box على سبيل المثال لو تم اختيار ثلاث تقارير عن الضغط على زر الأمر يطبع الثلاث تقارير المختاره . لو تم إتيار خمس تقارير عن الضغط على زر الأمر يطبع الخمس تقارير المختاره أرجوا المساعده

تواجهنى مشكلة ظهور اللغة العربية برموز غير مفهومه وذلك في رسائل أكسيس وعلى سبيل المثال هناك رسالة عند الخروج من البرنامج وهي "هل تريد الخروج" تظهر بالشكل التالي åá ÊÑíÏ ÇáÎÑæÌ فما الحل لهذه المشكله ولكم جزيل الشكر