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

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

رفع

السلام عليكم في قاعدة البيانات المرفقة.. يوجد نموذج ريئسي Emptblx ونموذج فرعي Emptble، أود أن أبحث من خلال النموذج الرئيسي في النموذج الفرعي بإستخدام الفلتر Filter بواسطة الحدث On change، على أن تكون النتائج مطابقة للكلمات او جزء منها. كان لدي مثال يعمل نفس النموذج وحاولت أن أعدل عليه ليعمل على النموذج الفرعي ولكن لم أفلح. أرجو المساعدة مع جزيل الشكر Filter.rar

Up

رفع

السلام عليكم لدي قاعدة بيانات مصممة على الاكسس، قمت بنقلها على sql server وربط الملفات بواسطة ODBC وكانت عملية الربط ناجحة، إلا أنني واجهت بطئ شديد في النماذج التي تحتوي على بحث من خلال الاستعلام داخل النموذج. البحث بواسطة النموذج الرئيسي ونتائج البحث داخل النموذج الفرعي، يكتب الكود داخل استعلام النموذج الفرع كالمثال التالي: Like "*" & [forms]![Menu]![NavigationSubform]![txtSearchJob_IDx] & "*" Or Is Null الملاحظ هو عند تنفيذ ذات الامر في قاعدة البيانات السابقة المربوطة بجداول اكسس، فإن عملية البحث تكون سريعة، وبنفس قاعدة البيانات ولكن عند ربط نفس القاعدة بجداول sql server اواجه بطئ شديد جدا حتى تظهر البيانات، وعند حذف الكود المستخدم للبحث داخل النموذج الفرعي Like "*" & [forms]![Menu]![NavigationSubform]![txtSearchJob_IDx] & "*" Or Is Null فإن البيانات تظهر بصورة سريعة جدا. ما هو الحل؟ مع جزيل الشكر

السلام عليكم قمت بتصميم قاعدة بيانات بإستخدام Navigation menu، وكانت الأمور بخير، وبعد تحويلها إلى accde، وعند الضغط على أزرار القائمة في إطار Navigation menu، تظهر الرسالة المكورة في عنوان الموضوع لمرة واحدة فقط عند تشغيل البرنامج. هل من حل أو طريقة للتخلص من هذه الرسالة المزعجة؟ مع جزيل الشكر

السلام عليكم 1- هل بإلإمكان تعطيل أمر التراجع undo وذلك عند الضغط على زر Esc في لوحة المفاتيح؟ 2- أريد تنفيذ أمر إغلاق النموذج وذلك عند الضغط على زر Esc في لوحة المفاتيح وماهو الكود البرمجي لكلا السؤالين الخيارين؟ مع جزيل الشكر

أنت على حق أستاذ جعفر تم بنجاح شكراً لك

السلام عليكم أشكركم جميعاً على إطروحاتكم وأفكاركم القيمة... لقد حاولت أن أنفذ المثال الذي طرحه الأخ جعفر وذلك من خلال نموذج قائمة والمعروف بـ Navigation form، إلا أنه لم يعمل معي. في الملف المرفق مثال أرجو التعديل عليه إن أمكن ومع جزيل الشكر. Run Button Command-N.rar

السلام عليكم في قاعدة البيانات المرفقة.. أريد عند الضغط على زر B يقوم بتشغيل الأمر في الزر A كما لو إننا ضغطنا على الزر A مباشرة، هذا المثال في مالو كان الزر في نفس النموذج..، وما سيكون الكود فيما لو كان الزر في نموذج آخر؟ مع جزيل الشكر Run Button Command.rar

هذا الحل المنشود... شكراً لكم جميعاً