kkhalifa1960

استاذ @Hazem Hussien ممكن ترسل طلبك بمشاركة جديدة مرفق بها المرفق الذي تريد مع الطلب بأنك تريد ان يعمل على ..... اذكر نوع الويندوس والاوفيس و (64 بت) . وسواء كنت أنا أو أحد الزملاء سيلبي طلبك كما يرى .

هذا لأن الشرط على الحقول الثلاثة في (التنسيق الشرطي) هو DCount("*";"Table1";"[الجنس] = '" & [الجنس] & "' AND [الاسم] = '" & [الاسم] & "' AND [الوظيفة] = '" & [الوظيفة] & "'")>1 فإذا تريد التغيير من ( الاسم ) الى ( Emp_Name) أو تريد التغيير من ( الجنس ) الى ( Emp_Gemder) تريد التغيير من ( الوظيفة ) الى ( Emp_Job) أو الثلاثة معاً غير اسماء الحقول الثلاثة بالفورم والجدول كما سيق فيصبح كما بـــ Report2 بالمرفق التالي . send4-2.rar

تفضل استاذ @Noon Ali محاولتي حسب مافهمت التعديل بالمرفق حسب طلبك . ووافني بالرد . databasebalance-111.rar

استاذ @Hazem Hussien وهل تعليقات السادة المشرفين ورواد المنتدى لا تكفي بأن البرنامج يعمل عموماً يعمل معي على ويندوس وأوفيس 2010 32 بت .

تفضل استاذ @Noon Ali محاولتي حسب مافهمت بالمرفق . ووافني بالرد . databasebalance_3-1.rar

تفضل استاذ @اشرف السيد يوسف طلبك حسب مافهمت بالمثال تطابق 3 حقول بالسجل . اليك المرفق بعد التعديل . ووافني بالرد . send4-1.rar

على افترض أن لدينا 100 معلم منهم 8 بلجنة التصحيح ولدينا 12 لجنة امتحان ولدينا 8 مواد بــ 8 ايام امتحانات اليكم التوزيع مع مراعاة العدالة في كل شئ ... واصدار تقريران الاول التوزيع حسب كل مادة امتحان كل مادة بصفحة .... والثاني للاحصائيات فقط اذهب لنهايته ستحصل على جدول بالاحصائيات .. ولكم مني كل الاحترام والتقدير . توزيع المراقبين على اللجان.rar

تفضل استاذ @2saad طلبك حسب مافهمت بالشرح والمرفق . ووافني بالرد . DDGetNOTest .rar

تفضل استاذ @moho58 طلبك حسب مافهمت . ووافني بالرد . BASE_P-1.rar

تفضل استاذ @alloui79 المرفق بعد التعديل بطلبك حسب مافهمت بالاستعلام 2 . ووافني بالرد . Database9-3.rar

تفضل استاذ @alloui79 المرفق بعد التعديل بطلبك حسب مافهمت بالاستعلام 2 . ووافني بالرد . Database9-2.rar

انت تريد ملف 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