jjafferr

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 يا ريت تساعدنا في معلومات ومرفق ، حتى نستطيع مساعدتك 🙂 جعفر

الله يسلمك ويعافيك اخوي قاسم 🙂

تفضل يا سيدي 🙂 النموذج والاستعلام هكذا : . وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر: Private Sub cmd_Preview_Click() Dim varItem As Variant Dim myWhere As String myWhere = "" ' Loop through the selected items in the ListBox For Each varItem In Me.lst_XX.ItemsSelected ' Add each selected item to the string myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem ' Remove the trailing comma and space from the string myWhere = Left(myWhere, Len(myWhere) - 2) 'هذه الفقرة الاخيرة بتعطينا المواد التي تم اختيارها بهذا التنسيق: 'الإقتصادية', 'الادارية', 'التربوية' DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in (" & myWhere & ")" 'والامر النهائي يصبح هكذا: 'DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in ('الإقتصادية', 'الادارية', 'التربوية')" End Sub . والنتيجة: جعفر 1563.baseNN.accdb.zip

عفوا ، بس على اي اساس يختار لك الاختيار الاخير ؟ انت عندك ، والاحصاء اصلا غير موجود !!

وعليكم السلام 🙂 اسهل طريقة : 1. عمل نسخة من الاستعلام qry_Section_Gender_Count ، ولنسميه qry_Section_Gender_Count_2 2. في الاستعلام qry_Section_Gender_Count_2 ، نعمل تغيير في المعيار لكي نشير الى الحقل X4 في النموذج ، 3. نجعل الاستعلام qry_Section_Gender_Count_2 مصدر لبيانات التقرير 🙂 . جعفر 1563.baseNN.accdb.zip

نعم ، ولكن اذا وضعت الكود في قسم التفصيل من التقرير ، فالتقرير سوف ينادي الكود بعدد سجلات التقرير ، مما يجعل التقرير بطيء نوعا ما ، وخصوصا اذا استعملت اكثر من امر من عائلة Dlookup , Dsum واخواتها ، لذا تستطيع الرجوع لهذا الرابط لمعرفة كيفية قراءة مجموعة اوامر من عائلة Dlookup , Dsum واخواتها دفعة واحدة: . واذا كانت عندك مجموعة اوامر من عائلة Dlookup , Dsum واخواتها في استعلام ، فيمكنك تفكيكها واعادة عملها كاستعلام مستقل وسريع هكذا : جعفر

تفضل =DSum("[SumOfSumOftotal_retail_sell_vat]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2) =Dsum ("اسم الحقل المطلوب بياناته" , "اسم الاستعلام او الجدول" , "المعيار" )

وعليكم السلام 🙂 خير ان شاء الله

السلام عليكم 🙂 لنا الشرف بالتعامل مع الخبير @دروب مبرمج 🙂 شكرا اخوي ابو ابراهيم ، وشكرا اخوي ابوخليل 🙂 جعفر

وعليكم السلام 🙂 نعم ، قد يوجد هناك حل بتغيير اعدادت الاستعلام الى . واذا استعملت هذا الاستعلام في نموذج ، فيجب تغيير اعدادات النموذج كذلك 🙂 ولكن هناك نقطة جدا مهمة يجب الالتفات لها ، وهي عند حذف سجل ، فستحذف معلومات بقية الجداول المرتبط كذلك !!

بس معادلتي مميزة بهذه الطريقة 😁

تفضل يا سيدي 🙂 . vat_amount $: =DSum("[SumOfSumOfVAT_AMOUNT_$]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2) total vat: =DSum("[SumOfSumOftotal_retail_sell_vat]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2) رجاء الملاحظة ، بدل الرقم 2 في نهاية الكود ، اكتب اسم حقل "رقم فاتورة المبيعات". جعفر 1561.qry to form.accdb.zip

في الواقع ما تعمقت في الموضوع، ودخلت في الاجابة على طول 🙂 جعفر

السلام عليكم 🙂 اي والله اشتقنا لكم 🙂 يجب اخذ اصل البيانات، استعمل هذه المعادلة: =Sum(((Nz([Quantity_of_cartons],0)*Nz([pieces in each caton],0))+Nz([JUST PIECES],0))*Nz([اسعار الجملة بالدولار],0)*[VAT_SALE]/100) او =Sum(((Nz([Quantity_of_cartons];0)*Nz([pieces in each caton];0))+Nz([JUST PIECES];0))*Nz([اسعار الجملة بالدولار];0)*[VAT_SALE]/100) جعقر

هناك برنامج add-on من مايكروسوفت بإسم Save as pdf يمكنك انزاله من هنا : https://filehippo.com/download_2007-microsoft-office-add-in-microsoft-save-as-pdf-or-xps/ ومنه تستطيع ان تحفظ التقرير كـ pdf للاوفيس 2007 فصاعدا 🙂 جعفر

صدقني مو خسارة 🙂 في وجهة نظري ، الاكسس 2010 كان افضل اصدار (طبعا بعد ان تعمل له جميع التحديثات) 🙂

او mid(a, InStrRev(a, "\") +1)

وعليكم السلام 🙂 يحتاج نعطيك وسام "الصبر والمثابرة" على جهدك لإنجاز مطلبك 🙂 وشكرا على الاطراء 🙂 جعفر

صدقني مو خسارة 🙂 تفضل DoCmd.OutputTo acOutputReport, "Report Name", acFormatPDF, "D:\Temp\abc_" & Forms!main!id & ".pdf", False, , , acExportQualityPrint

هكذا =IIf(Len([a7] & "")=0;0;1) + IIf(Len([a8] & "")=0;0;1) + IIf(Len([a9] & "")=0;0;1) + IIf(Len([a10] & "")=0;0;1)

ياريت لو تشوفوا هذه المشاركات حتى اثبت كلامي : . http://arabteam2000-forum.com/index.php?/topic/291451-ربط-النماذج-الفرعيه/&do=findComment&comment=1393167 . .

هممممم والطباعة كذلك كبسة زر 🙂

شكرا جزيلا اخوي قاسم ، هو كما قلت انت ، مع تغيير اسماء الحقول ، وتغيير الفاصلة الى فاصلة منقوطة 🙂

اذن انصحك ان تُنزل طابعة pdf افتراضية (وهناك الكثير منهم بالمجان) ، ثم اطبع التقرير مباشرة لهذه الطابعة

وعليكم السلام 🙂 هاي الملف لما ما كان فيه طريقة مباشرة للتصدير لملف pdf مباشرة ، اما الآن ، فيمكنك استعمال كود كالتالي ، ويصبح ملف pdf جاهز: DoCmd.OutputTo acOutputReport, "Report Name", acFormatPDF, "D:\Temp\abc.pdf", False, , , acExportQualityPrint جعفر