مكتبة الموقع - إستخدام أزرار الأسهم للتنقل في النماذج المستمرة كما في أكسل {سلسلة الأدوات المساعدة المخصصة}

[منتصر الانسي]

اعرض الملف

إستخدام أزرار الأسهم للتنقل في النماذج المستمرة كما في أكسل {سلسلة الأدوات المساعدة المخصصة}

---

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

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

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

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

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

إن شاء الله يستفيد منها الجميع 

---

• صاحب الملف
  منتصر الانسي
• تمت الاضافه
  06/22/25
• الاقسام
  قسم الأكسيس

 

[Foksh]

جميل جداً ، 

جزاكم الله كل الخير معلمنا الفاضل على هذه الفكرة الجميلة الشاملة ,,

كنت سابقاً استخدم فكرة بسيطة :-

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Dim newKeyCode As Integer
    Select Case KeyCode
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
        Case vbKeyRight
            newKeyCode = vbKeyLeft
            KeyCode = newKeyCode
        Case vbKeyLeft
            newKeyCode = vbKeyRight
            KeyCode = newKeyCode
    End Select
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

 

لكن بعد التوسع الكبير في العمل بما تقدمتم به من خلال الكلاس ، سأضطر لإعادة النظر بفكرتي المتواضعة 😅 

[منتصر الانسي]

ميزة العمل بالكلاس انه يختصر الكثير من الجهد في كتابة الكود ويقلل من نسبة الأخطاء كونه يكون مركز في مكان واحد

[عمر ضاحى]

استاذي الكريم @منتصر الانسي
اشكرك على هذا العمل الرائع 
وبعد الاطلاع على الكود ما شاء الله ابداع 
ومجهود كبير خلاني افكر فى افكار اخري 😅

 

الف شكر 
 

[منتصر الانسي]

منذ ساعه, عمر ضاحى said:

خلاني افكر فى افكار اخري 😅

وهذا من احد الأسباب التي دفعتني لعمل هذه السلسلة

بالتوفيق إن شاء الله