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

[Moosak]

 

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

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

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

الشرح :

 

تحميل الملف : 

Dynamic Menus.accdbFetching info...

[د.كاف يار]

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

 

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

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

[محمد سلامة]

تسلم أناملك

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

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

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

[Moosak]

  في 18‏/7‏/2023 at 12:17, محمد سلامة said:

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

Expand  

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

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

[ابو محمد 4]

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

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

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

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

[عمر ضاحى]

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

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

 

[Eng_shukri]

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

New Slide bar.accdbFetching info...

[Moosak]

  في 15‏/7‏/2024 at 13:31, Eng_shukri said:

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

 

Expand  

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

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

[hanan_ms]

شكرا @Eng_shukri 🌹

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

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

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

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

New Slide porgres bar.rarFetching info...

[Eng_shukri]

  في 16‏/7‏/2024 at 07:23, hanan_ms said:

شكرا @Eng_shukri 🌹

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

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

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

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

New Slide porgres bar.rar 201.3 kB · 5 downloads

Expand  

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

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

منكم نتعلم

[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]

  في 16‏/7‏/2024 at 19:54, 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

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

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

Expand  

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

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

 

أيش رايك ؟؟ 🙂 

[hanan_ms]

  في 17‏/7‏/2024 at 06:47, Moosak said:

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

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

 

أيش رايك ؟؟ 🙂 

Expand  

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

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

  في 15‏/7‏/2024 at 14:15, Moosak said:

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

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

Expand  

كأنة خلصة 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

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

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

  في 15‏/7‏/2024 at 14:15, Moosak said:

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

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

Expand  

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

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

استاذ @Moosak