jjafferr

وعليكم السلام ما الارقام المفروض ان تظهر في مثالك اعلاه؟ جعفر

السلام عليكم أخي رجاء تعبئة برنامجك ببيانات مميزه ، ثم اخباري: اي نموذج استعمل اين انقر ما النتيجة التي تريدها (وتعطيني مثال او مثالين بعملية الجمع مع ارقام من قاعدة البيانات حتى استطيع المقارنة) جعفر

السلام عليكم انا لم اتطرق الى النموذج ، وانما عملت 3 استعلامات ، وعندما تضيف اي شئ للجدول ، فتلقائيا ترى نتيجته في الاستعلام ، ولا داعي لعمل حقل خاص له في الاستعلام هل قصدك اذا النتيجة = 0 مثل الصورة التاليه فلا تريد اسم محل "روكرز" يظهر في التقرير ، هكذا: جعفر 271.مشكلة الصفر وباقى المحلات.accdb.zip

السلام عليكم أخي حسين في الواقع اول مشاركة لي في هذا الموضوع كان الجواب التفصيل: بما انه في النموذج يوجد عندك عدة حقول ، ولكن البحث يتم في حقل واحد ، فانا جعلت البحث يتم في جميع الحقول (البحث يكون أبطأ) ، فاصبح جزء البحث هو (وكذلك الكود طرحته في احد مشاركاتي السابقة): ([ITEM_CODE] & ' ' & [ITEM_NAME2] & ' ' & [ITEM_BARCODE] & ' ' & [SMALL_UNIT_PRICE] & ' ' & [SUPP_CODE] & ' ' & [FACTOR]) Like IIf(Len([Forms]![form8]![t1] & "")=0,"SomeThingThatCannotBeMatched","*" & [Forms]![form8]![t1] & "*") بس لازم تغير في كود زر البحث كذلك ، فاصبح: Private Sub أمر12_Click() 'Me.t1 = "" Me.Requery 'Me.t1.SetFocus End Sub Private Sub t1_DblClick(Cancel As Integer) Me.t1 = "" Me.Requery End Sub لاحظ ، عملت لك كود النقر المزدوج في حقل t1 حتى يخلي لك الحقل رجاء تحذف الجدول tabol1 ، فلقد اضطررت ان اعمله جعفر 272.BARCODE.accdb.zip

يجب ان نخبر النموذج بأن يعمل تصفية بهذا الكود: if len([Forms]![form8]![t1] & "")<>0 then me.filter= [رقم الصنف] & ' ' & [اسم الصنف] & ' ' & [باركود الصنف] & ' ' & [السعر] Like '*' & [Forms]![form8]![t1] & '*' endif me.filteron=true جعفر

انت قلت لأخونا ابوخليل ان الكود عمل معاك ، فانا كتبت التغيير المطلوب فقط ، ولم اتطرق لباقي الكود (كما فعل أخونا ابوخليل) والآن الى الكود المتكامل: الذي فهمته هو ، انك تأخذ البيانات من الاستعلام ، وتريد البحث في اصل الحقول الاربع اعلاه ، فالكود يصبح: if len([Forms]![form8]![t1] & "")<>0 then [رقم الصنف] & ' ' & [اسم الصنف] & ' ' & [باركود الصنف] & ' ' & [السعر] Like '*' & [Forms]![form8]![t1] & '*' endif واذا ما ضبط ، فانا محتاج للنموذج وبدون اي شئ آخر جعفر

المسألة في الدائرة الحمراء وهي المادة 3 ، تأكد انها دولة فيها الحروف التي في برنامجك ، العربية في حالتنا ، وعدم اختيار المربع في الرقم 4 : ثم تعيد تشغيل الكمبيوتر 🙂

. هذا معناه انك ما اتبعت خطوات ابو محمد 100% في تغيير لغة الكمبيوتر لأن نظام اللغة في الكمبيوتر عندك غير عن النظام اللي عملت البرنامج عليه ، وانت ما اخبرت كمبيوترك كيفية التصرف مع الحروف الغير Unicode !! في رابط ابو محمد ، انظر المادة رقم 3 . لهذا السبب الاكسس ما يفهم الكلمات اللي بالعربي (واللي هي Unicode) ، لهذا فهو لا يعرف كيف يتعامل معها ، وعليه يعطيك الخطأ الحل في اتباع خطوات ابو محمد 100% ، وخصوصا المادة رقم 3 جعفر

آه ما قرأت الموضوع بالكامل ، كنت اعتقد انه في الاستعلام كل اللي نريد نعمله هو: اذا الحقل t1 في النموذج فارغ ، فابحث عن شئ غير موجود (او لا تبحث اصلا) ، واذا الحقل غير فارغ ، فاستخدم كود اخونا ابو خليل. الكود: if len([Forms]![form8]![t1] & "")=0 then Like "SomeThingThatCannotBeMatched" else Like "*" & [Forms]![form8]![t1] & "*" endif او if len([Forms]![form8]![t1] & "")<>0 then Like "*" & [Forms]![form8]![t1] & "*" endif جعفر

السلام عليكم يا أخوي حسين ، مب كل صغيرة وندوخ فيها راس اخونا العود ابوخليل الله يحفظه ، احنا ندّخره للشدائد جرب كود اخوي ابوخليل المعدل: Like IIf(len([Forms]![form8]![t1] &"")=0,"SomeThingThatCannotBeMatched","*" & [Forms]![form8]![t1] & "*") وعليكم السلام ورحمة الله وبركاته ، وحيا الله من يانا جعفر

السلام عليكم مثل ما قال أخي ابو محمد . يعني اعدادات اللغة على الكمبيوتر الذي عملت عليه البرنامج ، يختلف عن اعدادات الكمبيوتر الحالي ، وابو محمد اخبرك عن تغيير اللغة الى العربية ، بينما يمكن البرنامج يكون معمول على اللغة الانجليزية ، وهو الان لا يقبل حروف Unicode. وبعدين يا م_حسنين ، ترفق لنا البرنامج والكود مغلق بكلمة سرية ، يعني كيف تريدنا نساعدك افتح البرنامج في وضع التصميم ، وافتح النموذج f ، واحذف الكائنات اللي اسمها بالعربي (يعني جميع الكلمات اللي بالـ Unicode) ، واللي كاتب فيها عربي ، ضبط الكود علشان ما يعمل اي شئ مع الكائنات اللي حذفتها ، احفظ النموذج ، وجرب تفتحه واذا لأي سبب ضيّعتك في شرحي ، احذف النموج f ، احفظ البرنامج ، وجرب تفتحه جعفر

كده وخلاص جعفر

حياك الله أخي علاء كلك خير وبركة جعفر

. صحيح انه يمكن استخدام كود مثل ما تفضلت به ، ولكن رأيي كان من وجهة نظر صحة قواعد البيانات ، فالافضل دمج الجداول في جدول واحد ، والتمييز بين السجلات عن طريق حقل "رقم الجدول" مثلا ، والسؤال التالي سيكون عن عمل مجموعة استعلامات وتقارير للجداول المختلفة ، ناهيك عن فرصة لزيادة الجداول بدون داعي جعفر

وعليكم السلام الكود اللي انا وضعته هو ترجمه حرفيه للكود اللي انت وضعته ، ولكن اذا اردنا ان نأخذ من الكود المقدار المفيد ، فيمكن اختصار الكود الى: Fail = 0 If [eslam] < 50 Then Fail = 1 If [arab] < 50 Then Fail = Fail + 1 If [engl] < 50 Then Fail = Fail + 1 If [comp] < 50 Then Fail = Fail + 1 If [Math] < 50 Then Fail = Fail + 1 جعفر

جميعاً إن شاء الله أخي حسين جعفر

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

. انا اعتذر منك أستاذ علي على عدم الرد ، فلم الحظه الا قبل قليل الكود يجب ان يكون في وحدة نمطية مستقلة خارج النموذج. . شكرا جزيلا على التأكيد جعفر

. انا الذي سافتح موضوع مستقل ، ولكن لو سمحت ترفق برنامجك هنا ، حتى استخدمه كمثال مع برنامج الاخ عادل جعفر

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

السلام عليكم ورحمة الله وبركاته هذا الرابط يحتوي على الكثير من الدوال والتي تم تضبيطها للعمل على الاكسس 32بت و 64بت: http://www.jkp-ads.com/articles/apideclarations.asp فقط ابحث عن الدالة ، واعمل نسخ/لصق للكود وهذا رابط آخر فقط لدوال 64بت (المعدّلة من 32بت): http://www.utteraccess.com/wiki/index.php/Category:API جعفر

وعليكم السلام تفضل ، مع الشرح . . جعفر 269.مطلوب دمج عدة اعمدة فى عمود.mdb.zip