المختصر في احوال أزرار التنقل

[أبو آدم]

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

هذا تصور عن احوال أزرار التنقل باختصار شديد ....

Private Sub cmdLast_Click()
    Navigate acLast
End Sub

Private Sub cmdNew_Click()
Navigate acNewRec
End Sub

Private Sub cmdNext_Click()
    Navigate acNext
End Sub

Private Sub cmdFirst_Click()
    Navigate acFirst
End Sub
Private Sub cmdPrevious_Click()
    Navigate acPrevious
End Sub

Private Sub Navigate(intWhere As Integer)

    On Error GoTo CannotGo
    DoCmd.GoToRecord , "", intWhere
    Exit Sub

CannotGo:
    Beep

End Sub

 

[طاهر الوليدي]

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

[أبو آدم]

تفضل التطبيق

و الله من وراء القصد

شكرا

Na_NavButton.rar

[طاهر الوليدي]

شكرا جزيلا استاذي الفاضل كتب الله اجرك

[at_aziz]

بارك الله فيك وجزاك الله خير ابا ادام

ونفع بعلمك

وفقك الله

[osama_b]

كود ممتاز بطريقة غير مسبوقة . بارك الله فيك.

[المسافر2006]

اخي ابو ادم

بارك الله فيك وزادك علما

وعلمك ماينفعك

ونفعك بماعلمك

[MAK4]

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