kkhalifa1960

انت تريد ملف PDF يكون قالب وهذ مايصير ممكن يصير بالاكسل والوورد .... والله أعلم ................ !!!!!

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . اليك الكود بعد التعديل . MergMic_KH_3.rar

تفضل استاذ @RAIANESAMI مرفق حسب مافهمت . ووافني بالرد . PDF Report.rar

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . اليك المرفق بعد التعديل . ووافني بالرد . MergMic_KH.rar

استاذ @محمد119900 أما اذا احتجت طلبك بشغل أكسس يوجد زر جديد بالفورم (MultiColumnTable) اسمه (CreateMultiColumnTable) بيسوي طلبط كما فهمت . تفضل التعديل . باركود نهائي مرتب المواد والشعب والطلاب (3).rar

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . Private Sub أمر3_Click() On Error GoTo met ' تصدير التقرير إلى ملف Excel Dim exportPath As String exportPath = CurrentProject.Path & "\Report_Export.xlsx" DoCmd.OutputTo acOutputReport, "Report1", acFormatXLSX, exportPath, False, , , acExportQualityPrint ' فتح ملف Excel وتنفيذ دمج الخلايا Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(exportPath) ' جعل Excel مرئيًا للمستخدم xlApp.Visible = True ' تنفيذ عملية دمج الخلايا With xlBook.Worksheets(1) .Range("A:B").WrapText = True .Range("A:B").HorizontalAlignment = -4108 ' xlCenter .Range("A:B").Merge End With ' حفظ الملف دون إغلاقه xlBook.Save ' تحرير الذاكرة (لن نغلق Excel هنا ليبقى مفتوحًا) Set xlBook = Nothing Set xlApp = Nothing MsgBox "تم تصدير الملف بنجاح ودمج الخلايا A/B، تم فتح ملف Excel للعرض" Exit Sub met: MsgBox "حدث خطأ: " & Err.Description ' التأكد من إغلاق Excel في حالة الخطأ If Not xlApp Is Nothing Then xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End If End Sub

اسمحوا لي بالمشارك وسامحوني لأني بعين واحدة طشاش وممنوع عليا التركيز لحين اجراء العملية 7 ... اليكم مرفق يمكن يفيد . DKhalifaTest.rar

استاذ @محمد119900 أما اذا احتجت طلبك بشغل أكسس يوجد زر جديد بالفورم (MultiColumnTable) اسمه (CreateMultiColumnTable) بيسوي طلبط كما فهمت . باركود نهائي مرتب المواد والشعب والطلاب (2).rar

بنفس محرر أكواد الفورم . أما اذا تريد أن يستدعى من أي مكان أخر يمكن تحويله الى وحدة نمطية عامة كما بـــ (FrmMain1). واليك المرفق الجديد وبه النموذجان . ووافني بالرد . Filter-2.rar

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت. بالشرح والمرفق. ولو تريد الغاء الزر موضح بالشرح . ووافني بالرد . Filter-1.rar

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت . ووافني بالرد . Filter.rar

طالع هذا الفيديو https://www.youtube.com/watch?v=QVCeb5XsGqQ

نريد أن نساعدك لكن طلبك غير مفهوم انت كل اللى مسويه جداول ولها نماذج !!!!!!!!!! وضح طبك بالتفصيل ولا تبخل ..

اضف ماسج وتحديث بنهاية كود الحذف . Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _ & vbCrLf _ & [Nr] & " " & vbCrLf _ & [Name_T] & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight, "تحذيـــر") = vbYes Then Me.Recordset.Delete Me.Recordset.MoveNext End If MsgBox "تم حذف السجل بنجاح", vbExclamation Me.Requery Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub

يعمل بشكل طبيعي .... طالع .