jjafferr

شكرا على التوضيح انا مب محاسب ، فصدقني ما اعرف شئ عن برامج المحاسبة وكيفية عملها!! لوسمحت تخبرني: لما انقر على الموجودات ، او الموجودات المتداولة ، في نموذج Tree ، اي جدول ، واي الحقول اللي فيها المعلومات المطلوبة ، يعني كيف توصلت للرقم 108750 ؟ سبب سؤالي هو ، على حسب جوابك اعمل لك البرمجة ان شاء الله جعفر

هل جربت المرفق كما هو؟ جعفر

وبما ان الاستعلام الذي استعملته هنا هو استعلام جدولي ، فاليك نصيحة كلفتني غاليا حتى عرفتها: http://www.officena.net/ib/topic/61853-فلتر-التاريخ-نصف-سنوى/?do=findComment&comment=401042 جعفر

شوف الاستعلامات اللي كنت عاملهم لك هنا: http://www.officena.net/ib/topic/64965-الرصيد-بشرطين-اسم-المحل-اسم-العميل/?do=findComment&comment=423098 جعفر

أخي الفاضل ، الظاهر أن وقتك جدا ثمين وما عندك حتى وقت لتساعدنا علشان نساعدك!!! شكرا

اسحب اطراف الاستعلام فوق/تحت و يمين/يسار ، وراح تطلع لك تفضل الطريقة لإظهار باقي الاستعلام: جعفر

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

احنا نحاول نستغنى عن Dcount, Dsum, Dlookup ، .... قدر الامكان ، لأنها معقدة ، وبطيئة ، وخصوصا اذا كان عندنا بديل من الاستعلام مباشرة جعفر

تفضل تمت العمليه بإستخدام 3 استعلامات ، والنتيجة: جعفر 274.dcount in form.accdb.zip

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

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

السلام عليكم انا لم اتطرق الى النموذج ، وانما عملت 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 جعفر