هدية جديدة نموذج خيارات العرض والتشغيل

[طير البحر]

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

dboptions.rar

[Foksh]

عمل رائع تبارك الله ما شاء الله تبارك الرحمن أخي @طير البحر 

بداية لي ملاحظة ، ظهور خطأ كما في الصورة :-

 

ثانياً لدي اقتراح بما أن هناك العديد من الخصائص تحتاج لإعادة تشغيل آكسيس ، هذا الكود :-

Sub RestartAccess()
    Dim batContent As String
    batContent = "@echo off" & vbCrLf & _
                 "ping -n 2 127.0.0.1 > nul" & vbCrLf & _
                 "start """" """ & CurrentProject.FullName & """" & vbCrLf & _
                 "exit"
    Dim batFilePath As String
    batFilePath = CurrentProject.Path & "\Restart.bat"
    Open batFilePath For Output As #1
    Print #1, batContent
    Close #1
    Shell batFilePath, vbHide
    Application.Quit
End Sub

 

أشكرك على الأفكار الشبابية الجميلة 

[طير البحر]

1 hour ago, Foksh said:

عمل رائع تبارك الله ما شاء الله تبارك الرحمن أخي @طير البحر 

بداية لي ملاحظة ، ظهور خطأ كما في الصورة :-

 

ثانياً لدي اقتراح بما أن هناك العديد من الخصائص تحتاج لإعادة تشغيل آكسيس ، هذا الكود :-

Sub RestartAccess()
    Dim batContent As String
    batContent = "@echo off" & vbCrLf & _
                 "ping -n 2 127.0.0.1 > nul" & vbCrLf & _
                 "start """" """ & CurrentProject.FullName & """" & vbCrLf & _
                 "exit"
    Dim batFilePath As String
    batFilePath = CurrentProject.Path & "\Restart.bat"
    Open batFilePath For Output As #1
    Print #1, batContent
    Close #1
    Shell batFilePath, vbHide
    Application.Quit
End Sub

 

أشكرك على الأفكار الشبابية الجميلة 

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

الاخ @Foksh مرفق نسخة معدلة لكن ارجو ضبط موضوع اعادة التشغيلواعادة الارسال

dboptions.rar

تم تعديل April 24 بواسطه طير البحر

[Foksh]

10 دقائق مضت, طير البحر said:

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

 

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

Kill CurrentProject.Path & "\Restart.bat"

🥰🤗🥰

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[SAROOK]

سلمت يداك وبارك الله فيك على هذا المجهود والبرنامج الرائع

[Foksh]

في 24‏/4‏/2024 at 22:37, طير البحر said:

مرفق نسخة معدلة لكن ارجو ضبط موضوع اعادة التشغيلواعادة الارسال

ولا يهمك أخي @طير البحر ، إن شاء الله تعالى 🤗

[Foksh]

اخي الكريم @طير البحر ، أرجو ان تقبل هذه التعديلات التي أجريتها والتي لم تمس الوظائف في مشروعك ، وإنما اعتبرها لمساتي بطريقتي المتواضعة 🤗

اولا تم توظيف كود Restart بحيث يتم تنفيذه اذا تم التعديل على الوظائف التي أشرت إليها بصورة 💡 - باستخدام ميزة الـ Tag - والتي تتطلب إعادة التشغيل للبرنامج وذلك بإضافة وظيفتين في نموذج dboptions واحدة عند الفتح والأخرى يتم استدعائها عند تنفيذ الزر تطبيق .

فإذا لم يتم تغيير اي من هذه الوظائف التي تتطلب إعادة التشغيل فسيتم تطبيق كودك بشكل عادي كالسابق ، أما اذا تم تغيير اي قيمة فسيطلب منك اعادة التشغيل للبرنامج.

 

بالاضافة الى اجراء إضافة بسيطة في مديول myoptions وذلك بتغيير قيمة gogo في الجدول وإعادتها إلى True في حال تم تغييرها الى False قبل تنفيذ إعادة التشغيل للبرنامج وذلك حتى لا يتم التأثير على عموم الكود الخاص بك .

 

الق نظره واخبرني بالنتيجة 🤗 

 

New_Options.accdb

تم تعديل April 26 بواسطه Foksh

[Foksh]

وكملاحظة لم اقم بتعديلها وتركتها لك لاكتشافها 😉 

1. إيقاف قوائم اكسيس ، وإيقاف القوائم المختصرة تعمل بالعكس

2. ستجد بعض رسائل الخطأ قد ظهرت وتحتاج الى تلافيها حسب الكود الخاص بك ، فلم أطلع كثيراً على تسلسل الأحداث في الأكواد بتمعن 

😊

تم تعديل April 26 بواسطه Foksh

[طير البحر]

2 hours ago, Foksh said:

وكملاحظة لم اقم بتعديلها وتركتها لك لاكتشافها 😉 

1. إيقاف قوائم اكسيس ، وإيقاف القوائم المختصرة تعمل بالعكس

2. ستجد بعض رسائل الخطأ قد ظهرت وتحتاج الى تلافيها حسب الكود الخاص بك ، فلم أطلع كثيراً على تسلسل الأحداث في الأكواد بتمعن 

😊

من الجبد ولاثراء تامعرفة ان نعمل معا 
اشكر مجهودك

 

[طير البحر]

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

dboptions.rar

تم تعديل April 26 بواسطه طير البحر

[Foksh]

منذ ساعه, طير البحر said:

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

ما شاء الله عليك أخي @طير البحر ، 

سأستمتع بلمساتك والتعديلات غداً إن شاء الله 🤗

 

بالنسبة لهذا الطلب 

منذ ساعه, طير البحر said:

وكنت اتمنى  استبدال الملف الرئيسي باول البوست

فهو من صلاحيات الأساتذة - لا الحصر - أذكر منهم:-

 @Moosak و @jjafferr و معلمنا الفاضل اعاده الله من سفره سالما غانماً @ابوخليل ... والكثيرين الذين نسعد بوجودهم معنا من إدارة المنتدى 🥰.