sweety

لقد قمت بتجربة هذا الكود وظهرت لي رسالة خطأ ورأيت مثال في احدى المواقع الاجنبية للكود التالي ولم تظهر رسالة خطأ ولكن لم يعمل الكود Dim prpNew As Property On Error Resume Next CurrentDb.Properties("AllowFullMenus").Value = true If Err.Number = 3270 Then Set prpNew = CurrentDb.CreateProperty("AllowFullMenus",dbBoolean,true) CurrentDb.Properties.Append prpNew Err.Clear End If للتوضيح: لقد قمت بإزالة Allow full menu من الاعدادات وأريد تفعيله فقط عند استعراض احد التقارير وذلك لتصدير التقرير بصيغة (بي دي اف) او (اكسل) مع جزيل الشكر والتقدير

استاذي العزيز محمد سلامة عتقد بأن الكود الذي طرحته يخفي او يظهر الشريط بالكامل، وأما ALLOW FULL MENU يخفي أو يظهر بعض أحد هذه القوائم، وما أريده هو عند فتح احد التقارير إظهار القائمة المرفقة والتي تمكنني من تصدير التقرير بعدة صيغ كإيميل او اكسل مثلا صورة مرفقة للتوضيح مع جزيل الشكر

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

رفع

السلام عليكم لقد قمت بتحديث برنامج الضغط وزالت مشكلة الخطأ في فك الملف، فشكراً بخصوص الفلتر.. عندما أبدأ في البحث في txtSearch وأنتقل إلى txtID، فإن عملية الفلترة تبدأ من جديد وتتجاهل ماكتبته في txtSearch. أرجو الإضطلاغ على الصورة وعمل اللزم مع جزيل الشكر

لقد حاولت تحميل الملف من جهازين مخلتفين ولكن تظهر لي مشكلة كما في الصورة، وحاولت فك ضغط الملف من احد المواقع وقد اعطاني بأن الملف معطوب كما في الصورة المفرقة ايضاً.

عند تحميل الملف يعطيني بأنه يوجد خطأ وأن الملف معطوب

ماذا لو أردت أن يتم البحث في الحقلين معاً مثال: تخصيص txtSearchID للبحث في ID وتخصيص txtEmpName للبحث في EmpName (فقط) واكتب 1002 في txtSearchID ويبحث، وكذلك أسطيع الدمج في البحث كأن اكتب Moosa في txtEmpName ويظهر لي ناتج بحث الحقلين معاً، وهذا كما لو كان عندي 10 حقول وأن افرد لكل منهم بحث مستقل، ويقوم الفلتر بحصر النتيجة بناءاً على حقول البحث. هل هذا ممكن؟ مع جزيل الشكر

الاستاذ علي الحداد شكراً لك، هذا ما طلبته سلمت يداك

السلام عليكم هل عملية تفعيل الفلتر أو التصفية في النموذج الفرعي عن طريق النموذج الرئيسي ممكنة برمجياً؟ إذا كان الجواب نعم، أرجو التعديل على المثال المرفق في بداية الموضوع أو وضع مثال نستفيد منه. تحياااتي

رفع

الاستاذ محمد التميمي شكراً لك.. أود خاصية البحث تتم عن طريق تفعيل الفلتر Me.FilterOn = True، في المثال المرفق في مشاركتي الكود كان يعمل على نفس النموذج ولكني حاولت أن اطبقه من النموذج الرئيسي داخل النموذج الفرعي ولم أعرف كيفية طبيقه. إن أمكن التعديل على نفس الكود في مشاركتي الأولى أو من خلال كود آخر ولكن يتم البحث بواسطة تفعيل الفلتر Me.FilterOn = True، لأنني عندما قمت بتحويل قاعدة البيانات على SQL Server بدى النظام بطيئ جداً عندما استخدمت نفس فكرة البحث داخل الاستعلام كما في مثالكم. مع جزيل الشكر.

UP

الاستاذ عبداللطيف شكراً على مبادرتك ما أردته هو عملية تصفية سواء بالكلمة كلها او بجزء منها في نموذج مستمر. مع جزيل الشكر

رفع