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 .. فتراجعت عن الإفصاح عن الفكرة 😅

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

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

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

هذي أراها أسلم 🙂☝ موفق عزيزنا في كل مشاريعك 🌹

نعم واضحة 👍🏻🙂 .. شكرا لك 🌷 طيب .. في حال أنه تم اختيار الموافقة على إعادة الضبط .. ما هي الطريقة الأسهل والأسرع لإعادة توثيق مواقع البرامج القديمة ؟ وخصوصا أنها لا تحتوي على أداتكم الرائعة ؟ 🙂 تلميح : هل يمكن اختيار عدة مواقع ومن ثم توثيقها جميعا مرة واحدة ؟ بدون ضبط لملفات الأكسس .. فقط المواقع .. أو ربما تطبيق نفس الاعدادات على جملة من البرامج السابقة مرة واحدة ؟ 🙂

أخي العزيز @Foksh عندي فقط إضافة بسيطة 🙂 وهي عبارة عن ملاحظة أو تنبيه وربما تجعل لها إطار معين : ينبغي الانتباه عند الضغط على الزر [استعادة إعدادات أكسس الافتراضية] أنه يقوم بحذف جميع المواقع الموثقة والمعتمدة سابقا .. وهذا قد يحدث خلخلة في جميع البرامج السابقة المنصبة في الجهاز .. 🥴 وهذه العملية قد تأخذ وقتا لإعادة توثيق المواقع السابقة مجددا .. لعلك تعمل شيء ينبه لهذا قبل التطبيق .. أو تعمل باكأب للمواقع السابقة 😅🖐

وعليكم السلام ورحمة الله وبركاته 🙂 🌹 وهذه رائعة أخرى من روائعك المتميزة 😊🖐 حقيقة عملت تجربة سريعة لتوثيق نفس البرنامج ولتوثيق برنامج آخر وكلها عملت بنجاح ، ولا غلطة ما شاء الله .. غفر الله لك ولوالديك ، وجعلها الله في موازين حسناتك ، ونفع الله بك الأمة 🙂 وأنا أفكر أن أستفيد من ملف ال bat الناتج بإضافته لملف التنصيب وأخليه يشتغل تلقائيا بدون الحاجة لتدخل المستخدم النهائي حتى