درس كيفية عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba 🙂

[Moosak]

 

السلام عليكم ورحمة الله وبركاته 🌹

درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 

النتيجة النهائية :

الشرح :

 

تحميل الملف : 

Dynamic Menus.accdb

[د.كاف يار]

ماشاء الله لا قوة الا بالله عمل في قمة الروعة

 

[سامي الحداد]

ماشاءالله قمة الابداع .

[محمد سلامة]

تسلم أناملك

ماشاءالله قوة الا بالله 

اهم شيء أن لايحدث اهتزاز عند تحريك الماوس أو عند الضغط على زر 

تم تعديل يوليو 18, 2023 بواسطه محمد سلامة

[Moosak]

17 ساعات مضت, محمد سلامة said:

اهم شيء أن لايحدث اهتزاز عند تحريك الماوس أو عند الضغط على زر

شكرا لكم جميعا 🙂🌷

الحمدلله أن الاهتزاز غير ملاحظ ..

[ابو محمد 4]

الله على الجمال

بارك الله فيكم

[حمدى الظابط]

الابداع ليس له حدود وعطاء اسناذ موسى فى المنتدى ليس له حدود تحياتى وتقديرى لمجهودك الراقى الكريم

[عمر ضاحى]

ما شاء الله تبارك الله

ربنا يزيدك علما

 

[Eng_shukri]

أتمنى أن ينال هذا إعجابكم

New Slide bar.accdb

[Moosak]

43 دقائق مضت, Eng_shukri said:

أتمنى أن ينال هذا إعجابكم

 

جميل ما شاء الله 👍🏻🙂

واصل إبداعاتك 😉👌
 

[hanan_ms]

شكرا @Eng_shukri 🌹

انا اعجبني مرفقك ❤️

!كنت بحاجة لبروقرس فيجوال 

  مع نافة حول برنامج متحركة كملة وعدلة وصلحة 😇

واتمنى ان ينال اعجابكم 

New Slide porgres bar.rar

[Eng_shukri]

10 ساعات مضت, hanan_ms said:

شكرا @Eng_shukri 🌹

انا اعجبني مرفقك ❤️

!كنت بحاجة لبروقرس فيجوال 

  مع نافة حول برنامج متحركة كملة وعدلة وصلحة 😇

واتمنى ان ينال اعجابكم 

New Slide porgres bar.rar 201.3 kB · 5 downloads

ماشاء الله تبارك الله 

مجهود جبار وابداع حقيقى

منكم نتعلم

[hanan_ms]

وزاد العلم منكم 

انا من يشكرك @Eng_shukri❤️🌹

على مبادرة والتقديم 

وصحيح ان تجعلها في الدالة 

Function 

اذا كان بروكرس بكل فورم 

=======================

كنت افكر في بروقرس (Access) 

عند نقل وتحريك البيانات 

 والثاني للانترنت في المتفح الويب  

1- ادخل الى موقع مكروسوفت وحمل

Edg  (Access) 

الخاص للاكسس 

https://www.microsoft.com/en-us/edge?ep=593&form=MA13QK&es=40

https://www.microsoft.com/ar-sa/edge/download?form=MA13QK

كنت بعمل بروقرس كيلو بايت للانترنت 

@Eng_shukri

عندك دالة تقرأ كيلو بايت للانترنت😇

في مواضع الحدث للصفحة الويب

[Moosak]

10 ساعات مضت, hanan_ms said:

نت افكر في بروقرس (Access) 

عند نقل وتحريك البيانات 

 والثاني للانترنت في المتفح الويب  

1- ادخل الى موقع مكروسوفت وحمل

Edg  (Access) 

الخاص للاكسس 

https://www.microsoft.com/en-us/edge?ep=593&form=MA13QK&es=40

https://www.microsoft.com/ar-sa/edge/download?form=MA13QK

كنت بعمل بروقرس كيلو بايت للانترنت 

@Eng_shukri

عندك دالة تقرأ كيلو بايت للانترنت😇

في مواضع الحدث للصفحة الويب

أخي @hanan_ms أنت ماهر في تصميم النماذج ولديك خبرة في استخدام عناصر Active x 🙂 

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

 

أيش رايك ؟؟ 🙂 

[hanan_ms]

55 minutes ago, Moosak said:

خي @hanan_ms أنت ماهر في تصميم النماذج ولديك خبرة في استخدام عناصر Active x 🙂 

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

 

أيش رايك ؟؟ 🙂 

 شنو اخي وليش؟!

بس اشكرك على كلامك الطيب صحيح بس اعجبتني فكرة @Eng_shukri

On 7/15/2024 at 5:15 PM, Moosak said:

جميل ما شاء الله 👍🏻🙂

واصل إبداعاتك 😉👌

كأنة خلصة ActiveX 

web ActiveX (X) 

عندي ملاحظة بخصوص الموضوع 

كيفية عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba 🙂

لا يمكن تخصيص الازرار =0 

اشرايك تستعمل جدول بس فيه اسماء النماذج والتقارير  بشرط اذا كان = فورم

DlookUp 

dim Nx as string 

nx = DlookUp

docmd.opneForm nx 

or 

if Ctrl.Name = "NameButton" Then

end if 

======================================

call back_button or with _Click

 For x = Ctrl.Height To 0 Step -100

انت شايف اشلون الباك بس النزول اوك 

حاولة تخصص puss or Time 

  لكل زر عند باك = آخر زر اذا كان صفر يكمل الصعود الزر الي بعده  

ارباك العميل والعب بالاعصاب😂

===============================

استاذ @Moosak❤️🌹

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

فورم واحد للبرنامج للتطقيم مع المميزات

Skin_For_MsAccess

على سبيل المثال اذا كان تقويم فقط ضيف جدول ايام الاجازات الرسمية ادخال يدوي واضافة ايام الاجازة جديده للسنة 

=============================================

On 7/15/2024 at 5:15 PM, Moosak said:

جميل ما شاء الله 👍🏻🙂

واصل إبداعاتك 😉👌

كلامك مشجع خاص من استاذ ماهر 

متحمسه لمواضيعك الجديده 

استاذ @Moosak