منتصر الانسي

ملف أكسس مثله مثل أي ملف آخر داخل ويندوز يمكن لأي شخص تعديل إسمه لذا فلا يمكن منع أي مستخدم من تعديل إسمه ولكن يمكننا تقييد تشغيل البرنامج إلا إذا كان بالإسم الذي نريد في المرفق نفس الملف الذي أرسلته جرب فتحه بالإسم gelani وأغلقه وغير إسمه إلى أي بإسم آخر وشاهد النتيجة فهل يناسبك هذا الحل؟ gelani.rar

لا لا هذا كان نتيجة فكرة كنت طبقتها ثم تراجعت عنها ونسيت حذف هذا السطر صراحة أنا غير ملم بالماكرو خصوصاً ماكرو البيانات ولكن السؤال أثار فضولي للبحث فيه

تقصدني أنا صح ؟ 😅 سواء كانت هذه نيتك أم لا فأنا أشكرك لطرح هذا السؤال حتى يخرج لنا الأستاذ @Moosak بهذه التحفة فقد قدم لنا قطعة من الصلصال وما علينا إلا تشكيلها كما نشاء وهذه كانت تجربتي ولكن هذا تطلب مني تعديل دالة CheckProtection لتصبح على النحو التالي Public Function CheckProtection(ByVal tblName As String) As Boolean On Error GoTo ErrHandler Dim tmpPath As String tmpPath = Environ("TEMP") & "\DataMacro_Check_" & tblName & ".xml" ' Export the data macro (acTableDataMacro = 12, hidden member) Application.SaveAsText AC_TABLE_DATA_MACRO, tblName, tmpPath ' Read contents using FSO (Unicode) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(tmpPath) Then Dim ts As Object Set ts = fso.OpenTextFile(tmpPath, 1, False, -1) ' -1 = Unicode Dim result As String result = ts.ReadAll ts.Close On Error Resume Next Kill tmpPath On Error GoTo 0 CheckProtection = True Else Debug.Print "No file was created." CheckProtection = False End If Set fso = Nothing Exit Function ErrHandler: blnIsBlocked = False Debug.Print "No data macro found on '" & tblName & "': " & Err.Description Debug.Print "ERROR: " & Err.Description CheckProtection = False End Function أصبحت نتيجة هذه الدالة من النوع Boolean بدل String لترجع True إذا كان الجدول محمي أو False إذا كان غير محمي وسؤالي للأخ موسى هل سيسبب هذا التغيير أي مشكلة وأنه من الضروري أن يكون ناتج هذه الدالة ذلك النص الطويل؟ الآن عند النقر على الزر الأول سيتم التحقق من وجود الماكرو فإذا لم يجده سينشئه ثم يفتح النموذج If CheckProtection("Tbl_Cust") = False Then ApplyTableProtection "Tbl_Cust" End If DoCmd.OpenForm "frmCust" يمكن أن يكون هذا الكود خلف حدث الإغلاق للنموذج أو أي مكان آخر والعكس في الزر الثاني إذا كان موجود سيزيله ثم يفتح النموذج If CheckProtection("Tbl_Cust") = True Then RemoveTableProtection "Tbl_Cust" End If DoCmd.OpenForm "frmCust" صراحة تعجبني الحلول المبتكرة القابلة للتشكيل وفقاً لطريقة عمل كل شخص برافو أستاذ موسى

تتبع الخطوات التالية وهذا هو محتوى المرفق سنغلق النموذج الشاشة الرئيسية ونفتح نموذج إنشاء الإختصار المسمى frmShortcut يفترض أن تكون النتيجة عندك مطابقة لما جاء في الصور

سبق وقلت لك انت اذا نويت راح تخرج بأفكار يستعصي على أمثالنا أن نفكر بها 😂

مع إحترامي لصاحب الفيديو ولكني أجد أن تخصيص أيقونة أكسس بأيقونة أخرى فهذا لن يحل المشكلة لو أردنا تخصيص الأيقونة لكل تطبيق جرب المرفق ولاحظ النتيجة (بعد إنشاء الإختصار يجب فتح التطبيق بإستخدام الإختصار) كل المطلوب هو إستيراد النموذج frmShortcut إلى اي تطبيق والنقر على الزر (إنشاء الإختصار) ويمكن حذف هذا النموذج بعد ذلك ملاحظة هذا الحل مخصص للعمل في ويندوز 10 فقط تحياتي تجربة.rar

رغم أني أرى أن طريقة عمل الأداة أبسط من تحتاج إلى فيديو لشرحها ولكن إذا كان ولابد فلايوجد أفضل من الأستاذ @Moosak للقيام بالمهمة فهو الوحيد المتمرس في مثل هذا النوع من الفيديوهات

من جمال الفكرة قمت بتنفيذها مباشرة الآن أصبح بالإمكان تصدير الكائنات المطلوبة فقط لعمل الأداة مع التحقق لعدم تصديرها أكثر من مرة

يااارجل أعتقد إنك لو نويت بتخرج بما لم يسبقك إليه أحد

والله كنت أتمنى يكون هذا النموذج من تصميمي فلا أخفيك أنني في البداية كنت قد قمت بتصميم نموذج قريب من هذا بشكل كبير ولكنه كان يعتمد على جدول يحتفظ بالصور داخله ولم تعجبني الفكرة فهذا سيتطلب إستيراد الجدول لتعمل الأداة وبعد البحث في مخزون الأمثلة لدي وجدت أحد الأمثلة الأجنبية الذي كان يتضمن هذا النموذج ولكنه كان يقوم بوظيفة أخرى وبطريقة مختلفة فقمت بإستغلاله والتعديل عليه بما يناسب الهدف المطلوب هنا والحمدلله نجحت الفكرة التي كانت في بالي للطريقة التي أريد تنفيذ العمل بها عند فتح القالب ستجد الملاحظة هذه أسفل النموذج (تختفي الملاحظة عندما تكون Addin ولكنك طرحت فكرة جميلة سأحاول تنفيذها ولكني أرى أن الأفضل أن يتم ذلك عن طريق زر أمر وليس تلقائياً فقد يقوم الشخص بفتحها لمجرد الاطلاع عليها أو فتحها عن طريق الخطأ وليس لاستخدامها

بمبادرة جميلة من الأخ @Foksh والذي تكرم بإضافة الوظيفة التي تسمح بإضافة الأيقونات لعناصر القائمة فله جزيل الشكر وجزاه الله خيراً فقمت بتعديل نموذج بناء صيغة كود إنشاء القائمة المختصرة للسماح بدمج هذه الوظيفة ضمن صيغة الكود كذلك تم إضافة العبارة Case Else في بناء صيغة الأمر لتجاوز أي مشكلة قد تحدث كما ذكر هنا وأخيراً وليس آخراً تم تصحيح الخطأ الذي ذكرة الأخ @Moosak في ملاحظته هذه أرجو أن تنال التعديلات إستحسانكم وفي إنتظار أي ملاحظات أو مقترحات إضافية (فكما ترون فإن لملاحظاتكم القيمة الأثر الكبير في تحسين الأداة) تحياتي للجميع

كلامك صحيح وفي محله ولكني أريد توضيح نقطة هنا من باب العلم بالشئ لا أكثر هذا ليس شرط في كل الحالات ولكنه سيكون كإجراء وقائي حتى نتأكد من أن لا يتم تنفيذ إجراء بغير قصد فمثلاً في المثال الأول في النسخة التوضيحية نلاحظ عدم حصول أي شيئ عند عدم تحديد أي عنصر في القائمة ولو عدنا للكود خلف زر الأمر سنجد عدم وجود عبارة Case Else Dim intResult As Integer intResult = GetOptions("نموذج إدخال البيانات" & _ ";نموذج تعديل البيانات" & _ ";نموذج إستعراض البيانات" & _ ";نموذج تحديد معايير تصفية التقارير") Select Case intResult 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 ولكن في المثال الثاني سنجد أنه سيتم تنفيذ إجراء لم يكن في الحسبان في هذه الحالة سيتطلب منا إضافة عبارة Case Else وعلى رأي المثل الوقاية خير من العلاج إن شاء الله سأقوم يإضافة هذا الأمر ضمن بناء صيغة الأمر بالإضافة إلى معالجة الملاحظة المقدمة من الأخ @Moosak وذلك في النسخة الجديدة التي أقوم فيها بإضافة الهدية القيمة المقدمة منك

ألحمدلله وهذه هي أكبر مكافأة أن أجد أن ما أقدمه من أدوات تجعل العمل أسهل هذا لأن الغرض من زر الأمر هو تجربة كيف سيكون شكل القائمة ولم يتم إستخدام العبارة الشرطية Select case معه وكان الأمر مجرد طلب إظهار مربع الرسالة بالنتيجة مهما كانت ولكن لو تلاحظ فلن تظهر هذه المشكلة في أي مثال من أمثلة النسخة التوضيحية

إضافة أكثر من رائعة أخي @Foksh وبإذن الله سأقوم بدمجها مع الأداة ليتم تحديد الأيقونات من خلال نموذج بناء صيغة الأمر ألف شكر أستاذنا الكبير