ابو البشر

من باب مشاركة اخي @Foksh واثراء الموضوع :::: جرب هذا DateDiff("m", date1, date2) * 30 + (Day(date2) - Day(date1))

هل العشرين كوبون لشخص واحد أم للجميع

تفضل ملفك ..... msgpass الرقم السري على شكل نجوم.accdb

راجع هذا الموضوع وبدقة عالية تجد الاجابات بها ....

الحمد لله رب العالمين .................. الموضوع مهم للجميع .... ونحن في انتظار الشرح ... بارك الله فيك

تفضل ................. Private Sub Hb_AfterUpdate() Me.rb = IIf([Hb] >= 10 And [Hb] <= 16, "normal", IIf([Hb] > 16, "up", "down")) End Sub

طيب مشاركة مع الاخوة الافاضل جرب تعديل بسيط لمثالك السابق 2 (1).rar

بل هو مرتبط اخي المنهندس @Eng.Qassim في بداية الموضوع توهمت انت المطلوب هو تسلسل السجلات ... ولكن بعد ان قرأت الموضوع مرة اخرى اتضح لي ان المطلوب تسلسل صفحات حسب المجموعات .... انظر الصور لعلها تغني عن الشرح .... حيث تم استغلال اسم رأس المجموعة وادخالها في متغير للاعتماد عليها في ترقيم الصفحات

وهذه طريقة اخرى لحبيبنا @jjafferr

تفضل ................ 1.accdb

تفضل ....................... 2024.mdb

اعمل تجميع في التقرير .. تجد الارفام متسلسلة من جديد .... او ادرج مرفق للتعديل عليه

اولا شكرا على الهدية ثانيا اسمح لي بإضافة الملف في الموضوع بعد الضغط والاصلاح للملف من خلال الاكسس ... لان ملف الميديا يمكن حذفه بعد فترة من الزمن وسوف يخسر المنتدى هذه الهدية القيمة ..... Ferry Login v1free.accdb

جربت الان على قاعدة وبها كلمة مرور مثل هذه ولم يعمل ..... فهل كلمة المرور التي تقصدها هي هذه ؟؟؟؟

اخي الكريم .. الرقم السري في الدخول على قاعدة البيانات ام الدخول للبرنامج

أسأل الله العظيم رب العرش العظيم ان يشفيك وان يجمع لك بين الاجر والعافية ألف سلامة عليك أستاذ @Foksh

كما ذكر اخي @Foksh هناك ملاحظات :::: من ضمنها انك معتمد على الترقيم التلقائي وهذا خطأ المفروض تعتمد على رقم الطالب مثلا .... على العموم انا اجريت بعض التعديلات شوفها اذا ناسبتك اعتمدها - اختر التاريخ ( يظهر اليوم تلقائيا - ويكتب لجميع الطلاب حاضر ) - قم بتعديل الغائبين والمتاخرين في النموذج - اضغط على اعتماد غياب اليوم ( يتم نقل البيانات الى الجدول الثالث وهو بمثابة الجدول النهائي الذي يحغظ فيه غياب الطلاب خلال السنه برنامج تجريبي.accdb

ما شاء الله تبارك الله .... حاجه عظمة .... بارك الله فيك بشمهندس @Foksh

الكود السابق اخي وباختصار يقوم بانشاء جدول مؤقت باسم year_table في كل مرة يجلب البيانات من استعلام معين حسب جدول السنة ( الاولى - الثانية - الثالثة ) عن طريق select case ثم يقوم بتصدير البيانات لملف الاكسل ... ثم حذف الجدول المؤقت هنا مثال ممتاز لاخونا الاستاذ @ابوخليل مثلا عند no ابحث في مثال اخونا تجدها من ضمن الكلمات المحجوزة الحقول المحسوبة اعني بها في الجدول .... حاول تعملها في الاستعلام او التقرير او النماذج .... والله اعلم

اخي الكريم من وجهة نظري الشخصية ::: لديك بعض الأخطاء منها ::::: * استخدام الكلمات او العبارات المحجوزة للأكسس * تكرار بعض مسميات الحقول في الاستعلامات * الحقول المحسوبة * ايضا ادخال المواد التدريسية لماذا لم تتم بشكل سجلات بدلا من ادخالها افقيا على كل حال ( لو كنت مصر على طريقتك تفضل بعض الحل للمشكلة ) اعمل زر وضع فيه هذه الشيفره Dim sXlsFile As String sXlsFile = CurrentProject.Path & "\ww1.xlsx" DoCmd.SetWarnings False If Not IsNull(Forms!w_moka_mid9!MM) Then Select Case Forms!w_moka_mid9!MM Case Is = "الاولى" DoCmd.RunSQL " SELECT [year-table1].[full-name], [year-table1].[natio-no], [year-table1].exper, [year-table1].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table1] " & _ " WHERE ((Not ([year-table1].EXPR5) Is Null));" Case Is = "الثانية" DoCmd.RunSQL " SELECT [year-table2].[full-name], [year-table2].[natio-no], [year-table2].exper, [year-table2].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table2] " & _ " WHERE ((Not ([year-table2].EXPR5) Is Null));" Case Is = "الثالثة" DoCmd.RunSQL " SELECT [year-table3].[full-name], [year-table3].[natio-no], [year-table3].exper, [year-table3].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table3] " & _ " WHERE ((Not ([year-table3].EXPR5) Is Null));" End Select Call Export_Excel_officena_by_aba_judy(sXlsFile, "SELECT * FROM year_table", 6) DoCmd.DeleteObject acTable, "year_table" Else MsgBox "اختر جداول السنة المطلوب عرض تقريرها", vbCritical, "انتبــــــه" End If DoCmd.SetWarnings True

تم التعديل على الفورم1 ...... جرب واعلمنا Desktop.rar

طيب ممتاز اخي الكريم .... ممكن ان نجعل الملف الاصلي ( قالب اكسل ) ولن يتم التعديل عليه .... على ذلك عند الخروج من الملف بعد التصدير يطالبك بالحفظ على شكل ملف اكسل عادي ( ممكن تحفظه وممكن تخرج بدون حفظ ) ويبقى الملف الاصلي كما هو بدون تعديل ولايقبل التعديل ...اذا ارت الطريقة اعدل في ملفك وتجرب ..

اذا ما هو الداعي لتصديره للاكسل ؟؟؟ حتى نستطيع المساعدة

يعني انت لا تريد حفظ ملف الاكسل ... تريد فقط العرض

كيف لو كانت بهذه الصورة ؟؟؟؟؟؟