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

[طير البحر]

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

dboptions.rarFetching info...

[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

 

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

[طير البحر]

  في 24‏/4‏/2024 at 17:54, 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

 

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

Expand  

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

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

dboptions.rarFetching info...

تم تعديل أبريل 24, 2024 بواسطه طير البحر

[Foksh]

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

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

 

Expand  

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

Kill CurrentProject.Path & "\Restart.bat"

🥰🤗🥰

[abouelhassan]

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

[SAROOK]

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

[Foksh]

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

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

Expand  

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

[Foksh]

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

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

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

 

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

 

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

 

New_Options.accdbFetching info...

تم تعديل أبريل 26, 2024 بواسطه Foksh

[Foksh]

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

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

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

😊

تم تعديل أبريل 26, 2024 بواسطه Foksh

[طير البحر]

  في 26‏/4‏/2024 at 10:03, Foksh said:

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

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

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

😊

Expand  

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

 

[طير البحر]

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

dboptions.rarFetching info...

تم تعديل أبريل 26, 2024 بواسطه طير البحر

[Foksh]

  في 26‏/4‏/2024 at 19:55, طير البحر said:

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

Expand  

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

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

 

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

  في 26‏/4‏/2024 at 19:55, طير البحر said:

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

Expand  

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

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