ازرار التنقل بين السجلات

[A7MD M7MD]

سلام عليكم

ممكن سؤال

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

ارجوكم انا على اد حالى في الاكسس ارجوكم لو يكون مثال يبقى الف شمر ليكم بلاش شرح بالاكواد مش باقدر افهمها

ولى طلب مثلا عندى 2000 سجل عاوز لما اضغط على زر التالى بالفأرة مرة واحدة بدون ترك الفأرة يتم تعيير السجلات تباعا دون توقف حتى يتم ترك الفأرة

[ابو جودي]

ههههههههههههههه

طلب غريب لكن لنرى كم سيفتح الله علينا بالمحاولة فى التلبية لذاك الطلب الغريب

 

[ابو جودي]

                                      ____    _     __     _    ____
                                     |####`--|#|---|##|---|#|--'##|#|
   _                                 |____,--|#|---|##|---|#|--.__|_|
 _|#)_____________________________________,--’Mohammed_Essam'_=-.
((_____((___________officena___________,--------[JW](___(____(____(_==)        _________
                               .--|##,----o  o  o  o  o  o  o__|/`---,-,-'=========`=+==.
                               |##|_Y__,__.-._,__,  __,-.___/ J \ .----.             |##|
                               |##|              `-.|#|##|#|`===l##\   _\            |##|
                                                    |_|__|_|     \##`-"__,=======.   |##|
                                                                  \__,"          '======'

  ☺  ممنوع النسخ

يمكنك نسخ نموذج ازرار الانتقال الى اى قاعدة ووضعه نمو1ج فرعيا وسيعمل على الفور ان شاء الله

 

navigation buttons.mdb

[athal]

بارك الله فيك استاذ محمد

والحمد لله على سلامتك

[A7MD M7MD]

ممتاز بجد الف شكر ليك

[ابو محمد 316]

السلام عليكم

إضافة الى متفضل به الأخ الكريم

إضافة مثال اخر

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

فقط انسخ النموذج frmNavibuttons  الى برنامجك وضعه في أي نموذج 

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

 

‏‏تجربة - نسخة.rar

تم تعديل أبريل 1, 2019 بواسطه ابو محمد 316

[عبد الله قدور]

السلام عليكم

ضع هذه الاكواد في وحدة نمطية

Function FirstRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acFirst
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If
        
End Function
Function NextRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acNext
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If

End Function

Function prevRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acPrevious
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If

End Function

Function LastRcd(Frm)
If Frm.Dirty = False Then
          On Error GoTo err:
      DoCmd.GoToRecord , "", acLast
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
        End If
Else
MsgBox "تم تغيير محتويات النافذة يرجى الحفظ التغييرات", vbCritical
End If

End Function

ثم في أي نموذج اكسس يمكنك التنقل بين السجلات باستخدام الاكواد التالية

الانتقال الى السجل الاول

Call FirstRcd(Me)

الانتقال الى السجل السابق

Call prevRcd(Me)

الانتقال الى السجل التالي

Call NextRcd(Me)

الانتقال الى السجل الاخير

Call LastRcd(Me)

 

[عبد الله قدور]

وفي حال أردت التنقل بين السجلات بضغط المستمر على زر الماوس

ضع الحدث الذي تريده ضع أي كود اتصال الذي تريده في حدث عند التركيز

[ahmedameen18]

في ٣٠‏/٣‏/٢٠١٩ at 23:42, ابو جودي said:

                                      ____    _     __     _    ____
                                     |####`--|#|---|##|---|#|--'##|#|
   _                                 |____,--|#|---|##|---|#|--.__|_|
 _|#)_____________________________________,--’Mohammed_Essam'_=-.
((_____((___________officena___________,--------[JW](___(____(____(_==)        _________
                               .--|##,----o  o  o  o  o  o  o__|/`---,-,-'=========`=+==.
                               |##|_Y__,__.-._,__,  __,-.___/ J \ .----.             |##|
                               |##|              `-.|#|##|#|`===l##\   _\            |##|
                                                    |_|__|_|     \##`-"__,=======.   |##|
                                                                  \__,"          '======'

  ☺  ممنوع النسخ

يمكنك نسخ نموذج ازرار الانتقال الى اى قاعدة ووضعه نمو1ج فرعيا وسيعمل على الفور ان شاء الله

 

navigation buttons.mdb 832 kB · 86 downloads

جزاك الله كل خير عنا - أبو جودي