ابو البشر

مشاركة مع الاستاذ فادي

بارك الله فيك استاذنا @jjafferr ولكن ماذا عن الحقول ذات القيم المتعددة ... هل يصلح معها هذه الطريقة ؟؟؟

ارفق ملف مصغر الحقول المطلوبة مسح بياناته

اضغط على شيفت ... ثم شغل البرنامج

من باب مشاركة اخي @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