Moosak

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

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

وعليكم السلام ورحمة الله وبركاته 🙂 إبداع حقيقي بجد ما شاء الله .. >>> يدخل حيز الاعتماد مباشرة بوركت يمناك أبا وسام .. طريقتك في التنفيذ بحد ذاتها مميزة ما شاء الله .. ⭐ بعد التجربة هي كم ملاحظة بسيطة إن شاء الله .. 🖐️ الأولى : هنا اخترت عدم إنشاء أيقونة في قائمة إبدأ .. إلا أنه تأتي منضمن الخيارات عند التنصيب ! >>> الثانية : عندما أختار التحويل إلى 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 الناتج بإضافته لملف التنصيب وأخليه يشتغل تلقائيا بدون الحاجة لتدخل المستخدم النهائي حتى

شكرا على التغشيش 😂 .. بس هذا ما كان من ضمن التحدي 😅🖐️ وكما قال العزيز @منتصر الانسي كان التركيز على حل المشكلة الأساسية .. بصراحة خطر في بالي إضافة عدة إجراءات ولكن رأيت أنه أساسا مش جميع عناصر أو مكونات الفاتورة موجودة لذلك تركت الفروع واهتميت بموضوعنا الرئيسي وشي آخر من ضمن النواقص أيضا .. أنه عند إضافة سجل جديد لا يتم الحفظ لأن الحقل [InvoiceID] يطالبك بوضع قيمة بحكم أنه مفتاح أساسي للفاتورة !! 😎 وكذلك عند تغيير القائمة الرئيسية أو الفرعية الأصل أن يتم تفريغ القائمة التالية لأن العناصر تغيرت (أنا عملتها في مشاركاتي ) .. وأفكار وإضافات كثيييييرة غيرها ولكنها مش موضوعنا اليوم .. 😅🖐️ أخي منتصر شكرا للتنبيه لهذه النقطة .. أنت مبدع ما شاء الله عليك .. أما بالنسبة لي أعتقد أنه تم حلها في الفكرة الثانية ✌ ملاحظة : تم تحديث الملفات في مشاركتي السابقة (بعد التسريبات من قاعة التصحيح 😂 )

إضافة قيمة وتطبيق عملي مباشر 😇✌️ وبالفعل تم إضافتها لقائمة المشاركات .. والشكر الجزيل لك باش مهندسنا الحبيب @منتصر الانسي 😊🌼

شكر لك أخي @Foksh لإثارة الحماس مجددا 😊🌼 الحمدلله هذي المرة أتيت مبكرا وهذي المرة لدي مشاركتان .. بفكرتين ✌️ مع إعادة تنسيق للنموذج بشكل عام لعرض الفكرتين بشكل أفضل .. 😎 الفكرة الأولى : القوائم المنسدلة المخفية .. الفكرة متعلقة بمصدر بيانات النموذج الفرعي + قوائم منسدلة مخفية تنبثق تلقائيا بمجرد الضغط على الحقل المطلوب .. الفكرة الثانية : القوائم المنسدلة الموحدة .. هذه الفكرة مختلفة قليلا عن المعتاد ولكنها تحل المشكلة التي تعرض لها التحدي بشكل غير مباشر 🖐 .. الفكرة تكمن في وجود قوائم منسدلة موحدة في رأس النموذج الفرعي وعند اختيار السجل المطلوب تنتقل المعلومات الخاصة به للأعلى ويتم تحرير البيانات في الأعلى فقط مع تلوين السجل المحدد للتركيز على الهدف .. التحدي الرابع- موسى الكلباني 1.accdb ‏‏التحدي الرابع- موسى الكلباني 2.accdb