jjafferr

الظاهر ان الامر Docmd.Printout يطبع النموذج/التقرير اللي في الامام ، ولما كان التقرير مخفي ، فالتقرير هو اللي اصبح ظاهر ، فطبعه طيب ، هذه حيلة استخدمها بعض الاوقات: بعض الاوقات لما اريد اعمل شئ وما اريد المستخدم يشوفه ، فاطلب من اكسس ان: يوقف صورة الشاشة ، يعمل المطلوب (بينما المستخدم يشاهد الشاشة التي لم تتجدد ، يقوم البرنامج بعمل المطلوب) ، يعطينا الشاشة الجديدة جرب هذه الطريقة: Application.Echo False DoCmd.OpenReport "medicine", acViewPreview, , , acHidden DoCmd.PrintOut , , , Me.t3 DoCmd.Close acReport, "medicine" Aplication.Echo True جعفر

الحمدلله في الأمر docmd.printout اعتقد نقدر نخبره بإسم التقرير ، فعليه لن يأخذ من النموذج. جرب وشوف جعفر

الحمدلله انك توصلت إلى حل بين الحلول جعفر

واذا ما اردت المستخدم يشوف التقرير ، اخفيه DoCmd.OpenReport "medicine", acViewPreview, , , acHidden DoCmd.PrintOut , , , , Me.t3 DoCmd.Close acReport, "medicine" جعفر

وعليكم السلام احذف الكود اللي عندك ، وجرب هذا الكود: DoCmd.OpenReport "medicine", acViewPreview DoCmd.PrintOut , , , , Me.t3 DoCmd.Close acReport, "medicine" جعفر

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

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

أخي حسين الأن مالنا شغل في الاستعلام ، والشغل كله في تصفية النموذج بس اضف ActiveX مال CodeBar ، لأني اضطررت ان ازيله جعفر 272.BARCODE.accdb.zip

تفضل يا سيدي الاستعلام . والنموذج . ولا ، لا يمكن حذف روكرز لأنه فاضي وجعفر 271.مشكلة الصفر وباقى المحلات.accdb.zip

شكرا على التوضيح انا مب محاسب ، فصدقني ما اعرف شئ عن برامج المحاسبة وكيفية عملها!! لوسمحت تخبرني: لما انقر على الموجودات ، او الموجودات المتداولة ، في نموذج 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 واذا ما ضبط ، فانا محتاج للنموذج وبدون اي شئ آخر جعفر