Moosak

شكرا لجمال روحك أيها النقي 😊🌷 تعمل بكل كفاءة ما شاء الله 😎👌⭐

فقط لدي ملحوظة بسيطة بعد التطبيق العملي .. 🙂 عند حفظ الأداة كإضافة للبرنامج .. وعند تطبيق الأكواد على قاعدة جديدة فإنها لا تعمل بسبب أنها لا تحتوي على الموديولين التابعين لها وهذا سيحوجك إلى استيرادهما من ملف القالب () ويعيدنا إلى نقطة الإنطلاق من البداية 😅 (بمعنى أنني لازلت محتاج يكون هذا الملف موجود جنبي) ! السؤال هو : هل يمكن إدراج الموديولين تلقائيا في القاعدة التي يتم استخدام الأداة فيها ؟

الله .. الله .. الله أحييك أخي منتصر على الإضافات الأخيرة بصراحة شي خيال ما شاء الله تبارك الله .. 😇 وخصوصا نموذج الأيقونات عجيييييب ويختصر للمستخدم عملية البحث .. شي متعوب عليه فعلا .. بارك الله فيك .. سير ياشيخ الله يوفقك دنيا وآخرة يارب 🤲

ما شا الله عليك أخي منتصر .. موسوعة عامرة بالأفكار الرائعة 😊👌🌼 كنت أستخدم القوائم المنسدلة لعمل هذه الخيارات .. والآن سهلت علي الأمر .. جزاك الله عنا كل خير .......................................................... فقط ملاحظة بسيطة .. أنه عند الضغط خارج المجموعة يتم تفعيل الخيار الأول من القائمة .. والأصل أنه يخرج من الدالة ..

🙂👌 الأوفيس :

وعليكم السلام ورحمة الله وبركاته .. 🙂 حسب الظاهر أنه توجد لديك سجلات محذوفة في المنتصف وهذا سبب اختلاف الأرقام .. والعدد الذي يظهر في الأسفل هو رقم ترتيب السجل بين السجلات .. وليس له علاقة برقم السجل في حقل الترقيم التلقائي أو حتى الترقيم اليدوي .. ولو أردت أن تجعلهما متساويين .. ممكن تستخدم هذي الدالة اللي تعطيك أيضا ترتيب السجل بين السجلات حتى لو تم فلترة السجلات على شروط محددة .. *كود RowNum لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم* *شرح الكود:* يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) *الكود:* Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function *طريقة الاستدعاء (الاستخدام):* =RowNum([Form]) تكتب نصا كما هي *مرجع:* #https://www.officena.net/ib/topic/117111-%D9%85%D8%B3%D9%84%D8%B3%D9%84-%D9%84%D9%84%D8%B5%D9%86%D9%81-%D9%81%D9%8A-%D8%A7%D9%84%D9%86%D9%85%D9%88%D8%B0%D8%AC/#comment-705668 *مكتبة الأكواد*

كالعادة حبيبنا ،، أنت نزل البتاع وإحنا نجرب 😁.. والأخطاء أو النواقص بتطلع من نفسها 😇🖐️ وبهذي الطريقة بتكتمل التكة الباقية إن شاء الله .. صعب ندخل معاك عالخط من النهاية بعد ما قطعت شوط طويل من البحث والتجربة 🙃 (اطمن) إحنا بندعيلك بالتوفيق والتيسير 😅🤲

هل يمكن إضافة خيار : (ربط تلقائي للقاعدة الأمامية بالقاعدة الخلفية) ؟ أرسلته لك على الخاص .. وشكلك حليتها بكل سهولة ..

لا لا أخي الحبيب .. التجربة كانت على برنامجي الخاص الأداة بشكلها الحالي كالعروس في خدرها .. وما تزيده فمن كرمك وإحسانك 😊🌼

وعليكم السلام ورحمة الله وبركاته 🙂 إبداع حقيقي بجد ما شاء الله .. >>> يدخل حيز الاعتماد مباشرة بوركت يمناك أبا وسام .. طريقتك في التنفيذ بحد ذاتها مميزة ما شاء الله .. ⭐ بعد التجربة هي كم ملاحظة بسيطة إن شاء الله .. 🖐️ الأولى : هنا اخترت عدم إنشاء أيقونة في قائمة إبدأ .. إلا أنه تأتي منضمن الخيارات عند التنصيب ! >>> الثانية : عندما أختار التحويل إلى Accde تظهر رسالة الخطأ التالية مع تأكدي من عدم وجود أي من الأسباب المذكورة .. >>> الثالثة : في صفحة مشغل أكسس والإخصارات ، هل علي أن أحمل الأكسس رنتايم لكي يضمنه في الحزمة ؟ وهل خيارات وسائط التشغيل مقرونة بوجود الأكسس رن تايم فقط ؟ لأنني أردت تقفيل البرنامج عن طريق الأداة بمنع الشفت وإخفاء الأكس ولكن كل ذالك لم يحصل 😅 .. الرابعة ( وهي مجرد مقترح أو إضافة ) : كانت هناك ميزة في الوينرار عند استخدامه للتحزيم وهي : تشغيل (ملف معين/ملفات معينة) من ضمن الحزمة (قبل / أو بعد ) عملية التنصيب .. وهذه قد تفيد في تشغيل أوامر مخصصة قبل فتح البرنامج أو عرض تعليمات معينة للمستخدم أو .. أو .. وتطبيق هذه راجع إليك طبعا وسلامة راسك 😊

مبدئيا أراها كافية 🙂🖐 فعلا أتفق مع هذا الرأي وقد خطر على بالي أيضا .. 🙂 ومن الأفكار التي خطرت في بالي أيضا هو تحويل الإجرائية OpenCustomOptions إلى دالة Function ترجع القيمة المختارة مباشرة هكذا مثلا : Public Function OpenCustomOptions(ParamArray strOptions()) As Integer Dim DocName As String, OpArg As Variant Dim strCode As String strCode = strOptions(0) Dim i As Integer For i = 1 To UBound(strOptions()) If strOptions(i) <> vbNullString Then strCode = strCode & "," & strOptions(i) Next i OpArg = strCode DocName = "frmCustomOptions" DoCmd.OpenForm DocName, , , , , acDialog, OpArg OpenCustomOptions = intResult End Function وبهذا يمكن إسناد القيمة الراجعة مباشرة إلى الكود أو إلى متغير (أراها أسهل هكذا .. حالها حال الدالة MSGBOx المدمجة) : Private Sub cmd01_Click() Dim Result As Integer Result = OpenCustomOptions("حدد النموذج الذي تريد فتحه" _ , "نموذج إدخال البيانات" _ , "نموذج تعديل البيانات" _ , "نموذج إستعراض البيانات" _ , "نموذج تحديد معايير تصفية التقارير") 'سنستخدم قيمة المتغير الذي سيحتفظ برقم الخيار المطلوب Select Case Result Case Is = 1 DoCmd.OpenForm "frm01" Case Is = 2 DoCmd.OpenForm "frm02" Case Is = 3 DoCmd.OpenForm "frm03" Case Is = 4 DoCmd.OpenForm "frm04" End Select End Sub ولكن انتبهت لاحقا أن النموذج يرجع قيمتين intResult و strResult .. فتراجعت عن الإفصاح عن الفكرة 😅

نعم أخي منتصر ، في بالي عدة مواضع لاستخدام هذه الأداة في تطبيقاتي 🙂 .. هي أقرب للرسائل الخاصة بحيث يمكنك تخصيص الأزرار بشكل أوسع بدل الأزرار المحددة [نعم - لا - إلغاء الأمر] .. والأمثلة التي وضعتها أنت تفتح الكثير من الأفكار 😎👌

شكرا لك أخي منتصر 🙂 وهذه رائعة جديد من روائعك .. 👍 جربتها .. وما عندي أي ملاحظة .. عمل متقن ماشاء الله .. وفقك الله وأحسن الله إليك .. في ميزان حسناتك .. 🌹

وعليكم السلام ورحمة الله وبركاته 🙂 سأعطيك رأيي من الناحية الفنية كوني مصمم جرافيكي وليس كمصمم قواعد بيانات من الناحية البصرية التصميم جميل جدا ماشاء الله .. تصاميم وإخراج روعة .. 👌 حتى محاولة التوفيق بين تصاميم الخلفيات مع الألوان وأدوات الأكسس الأصلية هي محاولات موفقة تبارك الرحمن .. مجرد رأي : فقط في الصورة الأخيرة في النموذج الفرعي لو غيرت نوعية الخط لنفس الخط المكتوب في الأزرار الجانبية (يمين) لكانت أجمل 👍🙂