نجوم المشاركات

جرب المرفق تلوين السجل1.accdb

يظهر ان الاسماء تنقص الكثير لذلك اقترح هذا الكود (يقوم ايضاً بترتيب الاسماء ابجداً اذ اردت ذلك) واذا اردت ان تكون الترتيب حسب الورود في الجدول احذف السطر Sort . Option Explicit Sub Give_data() Dim i%: i = 2 Dim col As Object Range("H5", Range("H4").End(4)).ClearContents Set col = CreateObject("System.Collections.Arraylist") With col Do Until Range("b" & i) = vbNullString If Not (Range("b" & i) Like "*#*") And _ Not .Contains(Range("b" & i).Value) Then _ .Add Range("b" & i).Value i = i + 1 Loop .Sort Range("H5").Resize(.Count - 1) = Application.Transpose(.Toarray) Range("I5") = .Count - 1 .Clear End With Set col = Nothing End Sub الملف مرفق Book101_salim.xlsm

جرب المرفق واعذرني كتبته على عجالة مرهق ومشغول مع العيد abc2.accdb

انظر لهذا الملف لعله يفى بالغرض Book101.xlsx

صحيح وحتى الكود الذي عملته انت له لن يفتح التقرير بسبب عدم وجود مشغل

اخي kaser906 الكود اللي عملته هو لازم تحدد حفظ التقرير واللي انا عملته هو يفتح بدون تحديد حفظ التقرير ولك مني جزيل الشكر كلما كثرت الافكار كلما كانت الفاقده اكثر

اخي ابو ياسين المرفق والكود الذي وضعته له سليم مشكلته ليس لديه برنامج على جهاز الحاسب لتشغيل ملفات pdf

في خدمتكم استاذ ازهر

الأستاذ @kha9009lid فعلا ابداع ما شاء الله عليك

من قال لا اعلم فقد افتى ولكن معلوماتي و تجربتي ان نموذج ورقة بيانات محدود جدا ومقيد ولا يقبل الكثير من التعديلات التي يمكن ان نجريها على النماذج الاخرى ومع ذلك له مميزات ايضا

والله مبدع دائما استاذ/ @kha9009lid الله يجعله في ميزان حسناتك ويزدك من علمه

جرب هذا الماكرو Option Explicit Sub del_last_4() Dim cel As Range For Each cel In Range("F5", Range("M4").End(4)) If IsNumeric(cel) And _ cel <= 4 Then cel = vbNullString Next End Sub

ماشاء الله تبارك الله مبدع جدا جدا جدا .. كم عانيتُ من ذلك؟ وكم هو سهل الآن .. والحمد لله.. بارك الله فيك ووفقك..

السلام عليكم اولا اعتدر عن ارفاق ملف العمل اشكرك استادي سليم تم المطلوب بنجاح جزاك الله خيرا

أخي الكريم حلك سليم لأنك اخترت التقويم الهجري حسب الطلب التنبيه للاخ ابوفهد لانه قام باختيار مربع نص ليعيد التاريخ لتقويم أم القرى حسب ما فهمت من اعداداته ::بالتوفيق::

جرب المرفق If Me.c = "x" Then Me.def![f] = Me.def![d] - Me.def![e] ElseIf Me.c = "z" Then Me.def![f] = Me.def![e] + Me.def![d] End If abc.accdb

انتبه من هذه الطريقة فسوف تدخلك في متاهات مستقبلا فمربع النص قبل تاريخ 30 بينما في التاريخ الهجري لا يوجد هذا التاريخ فعند تحديث التاريخ الميلادي سيحدث التاريخ الهجري مباشرة الى 1/3 ::بالتوفيق::

اذا كان المطلوب تغيير مصدر السجل للنموذج الفرعي للاستفادة منه لاكثر من جدول كما اشار اخي د. كاف يار يمكن الاطلاع على المثال المرفق لدينا جدول1 للموظف وجدول للدورات الداخلية وجدول اخر للدورات الخارجية ونمودجين رئيسي لجدول الموظف ونموذج فرعي لجدولي الدورات ويتم استبدال مصدر السجل عن طريق الكود If Me.أمر9.Caption = "داخلية" Then Me.جدول3.Form.RecordSource = "جدول3" Me.جدول3![الدورة_تسمية].Caption = "دورة داخلية" Me.أمر9.Caption = "خارجية" ElseIf Me.أمر9.Caption = "خارجية" Then Me.جدول3.Form.RecordSource = "جدول2" Me.جدول3![الدورة_تسمية].Caption = "دورة خارجية" Me.أمر9.Caption = "داخلية" End If Database71.accdb

تفضل .... تحويل التاريخ11.accdb

ما هو انت اذا حذفت الدرجة تتغيير النتيجة لتصبح ناجحاً لان المعادلة تطلب تنفيذ هذا الشيء

الأحبة المبتدئين في برمجة الاكسس طريقة اضافة الاسماء وحذفها وتعديلها أتمنى لكم الفائدة نتمنى من الاخوة الخبراء اثراء الموضوع بأفكار مختلفة للفائدة lesson1.accdb

كلك ذووق اخي خالد نعلم انك لا تقصر وتقتطع من وقتك وجهدك لخدمة الأعضاء جزاك الله خيرا

جهود مبارك وكرم كبير منك يا ابا اشرف حبينا الموقع وخصصنا جزء كبير من وقتنا له لوجودك وانت وامثالك

اخي الكريم انشئ قائمة تحرير و سرد و ضع اسماء الجداول بداخلها في حدث عند التغيير ضع الآتي [اسم النموذج الفرعي].SourceObject = "Table" & "." & [اسم مربع التحرير و السرد]

متصفح جوجل كروم يستطيع فتح ملفات PDF اذا لا يتوفر بالجهاز برنامج خاص

دائماً وأبداً يجب ارفاق ملف للعمل عليه حيث انك لم تفعل هذا اليك هذا النموذج عما تريد الكود Option Explicit Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim arr, x 'اكتب في هذه المصفوفة اسماء الشيات التي يمنع حذفها arr = Array("Sheet2", "Sheet4", "Sheet6") x = IsError(Application.Match(ActiveSheet.Name, arr, 0)) If Not x Then ThisWorkbook.Protect Else ThisWorkbook.Unprotect End If End Sub الملف مرفق PREVENT_DEL_SHEETS.xlsm

اظن هذا ه طلبك DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, CurrentProject.Path & ".PDF", True

ليس لديك مشغل لملفات ال PDF نزل تطبيق وقم بتثبيته وبعد ذلك سيعمل معاك

مجموع الوارد ناقص الصادر في جدول العمليات بشرط التسلسل يساوي او اقل من رقم التسلسل هذا حسب فهمي

تم رفع الملف على جوجل درايف https://drive.google.com/file/d/1kTGn5vW38la9fFHHHZW3B2Dq4sOYPO-1/view?usp=sharing

انظر الصورة اخي الكريم ربما تفيدك

السلام عليكم ورحمة الله بإضافة دالة شرطية تم عمل المطلوب... بن علية حاجي MMM.xls