jjafferr

وعليكم السلام 🙂 المشكلة ليست في هذا السطر ، وانما في تصريح مكتبة الوندوز SetWindowsHookEx جرب واعمل هذا التغيير : #if win64 then public Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr #else public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long #endif

السلام عليكم 🙂 مجرد اقتراح ، وعملته ببرنامج الصور 🙂 بما ان عدد التخصصات قد يزيد ، ولا تتسع له الصفحة ، فاقترح ان يكون تقريرك بالطول ، هكذا (طبعا بتعديل المسميات والارقام 🙂 ) :

هذا الميدان لك ، تفضل 🙂

هممم طيب جرب الآن 🙂 ابدأ الكتابة مباشرة ، وبدون عمل اي شيء آخر ، ثم استخدم الاسهم في اختيار السجل ، وعند الاحتيار انقر على احد الزرين: TAB او ENTER . 1564.مشكلة استخدام السهم في البحث.accdb.zip

وعليكم السلام 🙂 بالفأرة ، هل هذا الذي تريده ؟ جعفر 1564.مشكلة استخدام السهم في البحث.accdb.zip

حياك الله 🙂 اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂

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

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

تفضل يا سيدي 🙂 النموذج والاستعلام هكذا : . وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر: 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