ابو البشر

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

الترتيب كما تريد .... ليس هناك مشكلة والا وضح مطلوبك

طيب تستطيع عملها ام اعدله لك بارك الله فيك

تفضل .......................... ‏‏‏‏saad_A.accdb

3-4 هذه الفترة ... اليست الفترة تعني من الساعة الثالثة الى الرابعة ... ام ماذا تعني الفترة ... نورنا

طريقتين ايهما تريد ...... الطريقة الاولى ::::: طباعة يوم بيوم الطريقة الثانية :::::: طباعة ورقة واحدة لايام الاختبار ليسهل على موزيع الملاحظة العدل بين المعلين

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

اداة مفيدة ... بارك الله فيك ... هديه مقبولة

هذه هي المكتبة المطلوبة

وعليكم السلام Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim Q As Integer Dim sh As Object Dim folder As Object Dim FolderPath As String Dim FilePath As String stDocName = "tbl_Teacher_" & [Year_name] Q = DCount("*", "tbl_Teacher") If Q > 0 Then ' اختيار مجلد Set sh = CreateObject("Shell.Application") Set folder = sh.BrowseForFolder(0, "اختر مجلد حفظ الملف", 0) ' لو إلغاء If folder Is Nothing Then Exit Sub FolderPath = folder.Items().Item().Path FilePath = FolderPath & "\" & stDocName & ".xls" ' 🔥 التحقق من وجود الملف If Dir(FilePath) <> "" Then If MsgBox("الملف موجود بالفعل:" & vbCrLf & FilePath & vbCrLf & vbCrLf & _ "هل تريد استبداله؟", _ vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد") = vbNo Then Exit Sub End If End If ' التصدير DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", FilePath, False MsgBox "تم حفظ الملف بنجاح في:" & vbCrLf & FilePath, vbInformation + vbMsgBoxRight, "تم" Else MsgBox "لا يوجد سجلات لتصديرها", vbExclamation + vbMsgBoxRight, "تنبيه" End If Exit_cm_ToExcel_Click: Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description Resume Exit_cm_ToExcel_Click End Sub

جرب هذا Dim result As VbMsgBoxResult result = MsgBox("ماذا تريد ان تفعل اضغط Yes لفتح النموذج NO لفتح التقرير Cancel للتراجع" & vbCrLf & vbCrLf & "الحمدلله", _ vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") If result = vbYes Then DoCmd.OpenForm "22" ElseIf result = vbNo Then DoCmd.OpenReport "33", acViewPreview ElseIf result = vbCancel Then Exit Sub ' 👈 هنا يخرج بدون أي إجراء End If

البرنامج ممتاز ... ولكن عند تشغيلة يظهر بهذه الصورة زاحفا نحو اليسار الى الاسفل يبدو بسبب هذا الكود عند الفتح Private Sub Form_Current() Me.Form.InsideHeight = 9000 Me.Form.InsideWidth = 17000 CenterFormOnScreen "frm-UserLogon" End Sub

أسأل الله العظيم رب العرش العظيم أن يشفيك ووالدتك ويشافيكما عاجلاً غير آجل شفاءً لا يغادر سقماً

هذا ما قصدته بالضبط ... انشاء برنامج خاص بالمبرمج يتم من خلالة عمليات توليد ارقام التفعيل

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