biskra

ما هو جدول الاستعلام مصدر البيانات للنموذج في الصورة الأولى من سؤالك و اسم حقلي التاريخ و تاريخ الفاتورة لأن المرفق خال من البيانات المثال المرفق يتضمن تطبيق للكود exambledata.accdb

جرب المعيار التالي حسب التجربة يقوم بتحدث الحقل الذي فيه رقم ="*" Or "^" Or >="0"

في الاستعلام مصدر البيانات، هذا مجرد مثال عليك بالتعديل على جدول الاستعلام

جوابا عن الجزء الأول من السؤال بواسطة استعلام تحديث MZtab.accdb

سؤال فضولي ما سبب تكرار الحقل T10 في الكود

SELECT Sum([المدفوع]) AS Expr1 FROM الجدول WHERE (((الجدول.تاريخ الفوترة)>=Date())); استبدل الحقول و الجدول حسب التسميات الموجودة عندك في الجدول

على الرابط التالي تجد الكود و الشرح نسخ بيانات آخر سجل

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

في المثال المرفق تجد المبدأ للتعامل مع الزر الذي تريد إخفاؤه/إظهاره بشرط التشيك بوكس Button(1).zip

جرب الكود التالي لزر أمر معاينة التقرير بعد تنفيد الفرز المطلوب جرب الكود التالي If Me.Filter = "" Then MsgBox "الرجاء تحديد معيير الفرز" Else DoCmd.OpenReport "تقرير مساحات Amount", acViewReport, , Me.Filter End If

أظن أنه من الأحسن أن تجرب ما تم اقتراحه من حلول و موافاتنا بخلاصة التجربة حتى يكون للموضوع فائدة و يفيد الجميع.

قم بعملية نسخ للنموذج الموجود عندك، بعدها قم بإزالة النموذج الأصلي من البرنامج، بعد الإزالة أعد تسمية النسخة بالإسم الأصلي للنموذج، بعدها قم بفتح النموج و عدل على كود زر الأمر الخاص بالطباعة Private Sub Command23_Click() DoCmd.OutputTo acOutputReport, "Employee", acFormatPDF, CurrentProject.Path & "\" & "Test&.pdf", False 'DoCmd ' هذا السطر خطأ وجوده غير ضروري End Sub و جرب ربما يحل المشكل بالنسبة لك، المهم طبقت نفس الطريقة لأن نفس الرسالة كانت تظهر عندي و حاليا البرنامج يشتغل عادي

تفضل بعد التعديل Test&.pdf Employee(1).accdb

بناء على طلبك تم إعادة رفع الملف رغم أن الملف المرفوع سابقا قمت بتنزيله و تجربته لا توجد به أي مشكلة، ربما رسالة التنبيه الخاصة بالأكسس و هي تتعلق بدرجة الأمان على كل لك ما طلبت موفق إن شاء الله. Employee.rar

جرب الملف Test&.pdf Employee.accdb

شرح جميل و مفيد بارك الله فيك و زادك علما نافعا إن شاء الله.

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

تفضل بالملف بعد التعديل يرجي تعبئة حقول Nass في الجداول b4 b5 b6 ببيانات مشكلة و من ثم شغل الاستعلامات ارشيف2.rar

لم أتمكن من فتح الملف الرجاء حفظه بصيغة office 2013

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

في البداية جربت الطريقة التي شرحتها و كانت دائما النتيجة بالجنيه، شوية تحايل بواسطة أداة مرفوعة في المنتدى Converter Arabic and Unicode تعرفت على صيغة Unicode للجنيه بحثت عنها في و عوضتها بالدينار الجزائري في السطرين التاليين Resultat = Resultat & T2 & " " + ChrW(1583) + ChrW(1610) + ChrW(1606) + ChrW(1575) + ChrW(1585) + ChrW(32) + ChrW(1580) & ChrW(1586) + ChrW(1575) + ChrW(1585) + ChrW(1610) Else If Resultat <> "" Then Resultat = Resultat & " " + ChrW(1583) + ChrW(1610) + ChrW(1606) + ChrW(1575) + ChrW(1585) + ChrW(32) + ChrW(1580) & ChrW(1586) + ChrW(1575) + ChrW(1585) + ChrW(1610) هكذا تم الوصول الى النتيجة.

وجدت صعوبة في العثور على حركات التشكيل للكلمات، مجرد محاولة ممكن تفيدك في المطلوب، في الجدول هناك حقلان، واحد لن يتغير txt_name_test و هذا بغرض المقارنة فقط مع الحقل txt_name الذي بعد تشغيل التحديث سوف يمسح التشكيل حسب الكود. jتم التعديل بإضافة الكود المقترح من الأخ ناقل، و عليه هناك طريقتين للتحديث إزالة التشكيل من الكلمات.rar

تفضل هذه محاولة convert nacer.rar

سبق للأخ و أن طرح الموضوع و أرفق ملف في مشاركة سابقة https://www.officena.net/ib/topic/107858-اختلاف-القيم-عند-طباعة-التقرير-عنه-في-عرض-المعاينة/?tab=comments#comment-651977

تم تعديل الكود في حدث الحالي للنموذج Private Sub Form_Current() Me.TypBr.Locked = Me.Appro Me.DatRetIn.Locked = Me.Appro Me.DatBr.Locked = Me.Appro Me.Dour.Locked = Me.Appro Me.DatDay.Locked = Me.Appro Me.DatRet.Locked = Me.Appro End Sub الاجازات.rar