kha9009lid

عمل جميل الله يعطيك العافية

هذة الوحدة النمطية هي هدية كبرى من استاذنا الفاضل @jjafferr تسهل كتابة معيار التاريخ مهما كانت صيغة كتابته فبدلا من التجريب 15/6 او 15\6 فباستخدامها نحصل على النتيجة من المرة الاولى

لان طلبك كان على اساس معيار رقم الفاتورة وما حددت ان المطلوب معيار رقم الفاتورة وكود العميل على كل حال جرب المرفق Database22.accdb

الشكر لله اخي

مع الاحاطة انك تستخدم تسميات بشكل غير صحيح مثل تاريخ الفاتورة لديك باسم date وهذا خطأ

مرحبا توجد اكثر من طريقة للحصول على النتيجة ولسهولة ايصال المعلومة نتبع دائما الطريقة الاسهل اولا نقوم بعمل مربعي نص غير منظمة في التقرير في المربع الاول نضع التعبير التالي =DSum("[debit]";"daily";"[date]<" & DateFormat([Date])) في المربع الثاني نضع التعبير التالي DSum("[credit]";"daily";"[date]<" & DateFormat([Date])) جرب المرفق New Microsoft Access Database.accdb

تمام عليك كان خطأ في اسماء حقول الاختيار في الكود

الشكر لله سبحانه

اذا كان المطلوب فقط للشهر الحالي ولا نحتاج للاشهر السابقة ممكن عملها بطريقة اسهل DSum(" [Total]";"Invoices";"year([Date of invoice])=" & Year(Date()) & "And Month([Date of invoice])=" & Month(Date())) انظر للمرفق Database78.accdb

استاذة @علياء يسرالدين شوفي الصورة واعملي مثلها الصورة الاولى لتلوين الزر والثاني للخط

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

جميل جدا استاذ صالح ويحفز لافكار اكثر

توجد طريقة بسيطة من خلال اكسس اذا كان الورق بنفس الحجم والتنسيق من خلال اعداد الصفحة في التقرير اختار طباعة بيانات فقط

بعد اذن اخي محمد جرب المرفق مره باستخدام Do والاخرى باستخدام for Database761.accdb

من الواضح ان قاعدة البيانات لديك لم يتم اعدادها بشكل صحيح مهما تغير مكان الموظف سواء بنقل او ترقية او سلخ وظيفة او تحوير فلا يتكرر اسم الموظف ممكن ان تحصل حالات اسماء متشابهه وهذا امر عادي اما تكرار فلا وحتى لو حصل تكرار فيكون محدود جدا وبسبب خطأ من الذي يعمل على البرنامج و يمكن معالجتة بسهولة امر اخر خطأ ان يكون اسم الموظف وجهة العمل في نفس الجدول جدول للموظفين جدول للوظائف جدول لجهات العمل الخ وتربط الجداول بعلاقات حينها لو تغيرت جهة العمل 1000 مرة لن يحصل تكرار اعتقد ان الا جراء الصحيح ان تبدأ في انشاء قاعدة بيانات جديدة تبنى بشكل صحيح

وعليكم السلام ورحمة الله اخي omarahmed1424 البرنامج غير مكتمل مازلت اعمل عليه علما بانة مجاني ولكن بشرط ان تكون الجهه المستخدمة له غير ربحية او تدعم انشطة الاسر المنتجة مع الاحاطة ان في الموقع برنامج متميز مجاني ومفتوح المصدر من اعداد استاذنا الفاضل @ابوآمنة

جزاك الله خير اخي احمد دكتور محمد جزاك الله خير اخي الفاضل فقد كافأت واحسنت الجزاء قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ ) تقبل من اخيك كل الود والتقدير منكم نستفيذ استاذنا جعفر ومنكم نتعلم قبل الاكواد والحلول الجميلة نتعلم التواضع وحسن الخلق اسأل الله ان يكون ما تقدمه في ميزان اعمالك اخي @أحمد الفلاحجى اعجبني مثالك واسمح لى بتعديل بسيط ليكون التحديد والالغاء بامر واحد DoCmd.SetWarnings False If Me.NAll.Caption = "no" Then DoCmd.RunSQL "UPDATE table1 SET table1.[yesNo] = 0;" Me.Requery Me.NAll.Caption = "yes" ElseIf Me.NAll.Caption = "yes" Then DoCmd.RunSQL "UPDATE table1 SET table1.[yesNo] = -1;" Me.Requery Me.NAll.Caption = "no" DoCmd.SetWarnings True End If ولتبسيط الامر نقول اذا كان زر الامر باسم no نفذ استعلام بجعل قيمة خانة الاختيار غير محددة ثم حدث وغير اسم زرالامر الى yes واذا كان زر الامر باسم yes نفذ استعلام لتغيير قيمة خانة الاختيار الى محدد ثم حدث واعد تسمية زر الامر الى no yn.accdb

الحل الاسهل نقوم بنسخ الجدول الموجود به السجلات المكررة نقوم بلصقة في نفس القاعدة ومن الاختيارات التي سوف تظهر لنا نختار البنية فقط نقوم بالدخول على خصائص الجدول الجديد في خانة الاسم في حالتناونجعلة مفتاح اساس لايقبل التكرار نقوم بعمل استعلام الحاق لكافة البيانات نقوم بتشغيل الاستعلام ونتجاهل ايرسالة خطأ بعد انتهاء تنفيذ الاستعلام سوف نجد انالاسماء المكرر حذفت من الجدول الجديد نقوم بحذف البيانات من الجدول القديم ونستبدلها بالبيانات الغير مكررة ويمكن تنفيذ ذلك يدويا او باستعلام دائما وابدا نحتفظ بنسخة احتياطية قبل تنفيذ ماسبق رتبت لك الخطوات للتسهيل مع الشكر لاخي احمد على جهوده

جربي المرفق Test1.accdb DoCmd.SetWarnings False If [خيار12] = True Then DoCmd.RunSQL "UPDATE table1 SET table1.yesno = yes " Me.Requery Else DoCmd.RunSQL "UPDATE table1 SET table1.yesno = no " Me.Requery End If DoCmd.SetWarnings True

جرب الان STOCK.accdb باقي التقارير اجعلها منبثق نعم مشروط نعم ثم في امر فتح التقرير اضف امر تكبير

استاذي جو جربت ملفك جميع النماذج تعمل والتقارير 12 جميعها تعمل !

بالتوفيق اخي والشكر لله سبحانه

عند اخفاء نوافذ اكسس حول جميع النماذج والتقارير الى منبثق ومشروط وسوف تعمل ان شاء الله