kkhalifa1960

تفضل استاذ @RAIANESAMI طلبك حسب ما فهمت بالمرفق. هناك زران الاعلى للمقارنة وجلب المختلف بالليستبوكس والثاني اسفل الليستبوكس للنقل للجدول الثاني . جرب ووافني بالرد . DDFinding Differences-1.rar

على هيئه ماسج أم بالفورم أم ....... وضح من فضلك .

ارسل المرفق لنساعدك !!!!!! .

تفضل استاذ @RAIANESAMI طلبك حسب ما فهمت بالمرفق . ووافني بالرد . DDFinding Differences.rar

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت بالمرفق مع بعض التعديلات والاضافات مجرب ويعمل تمام . ووافني بالرد . Users-1.rar

مشاركةً مع استاذ @Foksh تفضل استاذ سامر محاولتي حسب ما فهمت بالمرفق . ووافني بالرد . Pepsi-1.rar

مشاركةً مع الزملاء الافاضل تفضل اسناذ @dd13901390 المطلوب حسب ما فهمت بالشرح والمرفق التالي . ووافني بالرد . dd13901390.rar

استاذ @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