طريقتان للتنقل بين السجلات 10 سجلات في كل مرة زيادة ونقصانا كود وماكرو

وعليكم السلام أخي ابوعلاء :)

اذا سمحت لي ، حبيت اشاركك في لوحتك الفنية :)

عملت نموذج مستمر ، واردت السجلات تنزل او تصعد صفحة كاملة (مثل Scroll up down) بحجم النموذج ، وهذه النتيجة:

إضغط على الصورة للحركة:

ولفهم الكود ، رجاء ملاحظة الارقام:

ومقارنتها بهذه الاسطر من الكود:

وهذا هو الكود:

Private Sub cmd_Next_Click()

    Form_Title_Bar_Height = 405
    Form_Navegation_Bar_Height = 405
    
    Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))
End Sub

Private Sub cmd_Pre_Click()

    Form_Title_Bar_Height = 405
    Form_Navegation_Bar_Height = 405
    
    Call MoveScroll(-(Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))
End Sub

Public Sub MoveScroll(Distance As Long)
   
   Me.GoToPage 1, , Distance
End Sub

جعفر

267.move 10 rec up down.accdb.zip

ماشاء الله عليك يا استاذي الغالي / جعفر ...

مبدع حقاً ربنا يبارك لك في علمك وصحتك ويشرفني اكيد اني استمتع باضافاتك الثرية وشرف لي مشاركتي الموضوع ...

تحياتي لك ...

:)

اخى الفاضل ممكن التعديل على 2003

تفضل ، الملف المرفق بصيغة اكسس 2003 :)

جعفر

267.move 10 rec up down.mdb.zip

بارك الله فيك اخى الفاضل وجزاك خيراً وزادك الله من فضله

اخى الفاضل السلام عليكم ورحمة الله

عند التطبيق خلى البرنامج عندى يظهر لى خطأ بالكود مظلل كالنالى: علما بان التموذج المطبق علي مبنى على استعلام

Private Sub cmd_Next_Click()
Form_Title_Bar_Height = 405
    Form_Navegation_Bar_Height = 405
    
    Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))
    End Sub
 

وعليكم السلام :)

FormHeader معناه رأس النموذج ، فهل النموذج اللي انت فيه فيه رأس وذيل :) ،

فبعض المبرمجين لا يستعملون في النموذج إلا قسم التفصيل Detail section ، فيمكنك ان تتحذف - Me.FormHeader.Height  ،

وبعض البرامج تكون الاسماء فيها بالعربي ، فيجب تغيير FormHeader  الى العربية :)

بس في كل الحالات ، ياريت ترسل لي برنامجك ، علشان اصلح في الكود واخليه يشتغل عليه بدون مشاكل :)

جعفر

اخى الفاضل اسف على تعبك

 مسحت Me.FormHeader. من الكود واشتغل ولكن انا عندى الصفوف (8) يعنى المفروض لما اشغ الكود يقف على رقم (9)

ولكنه يقف على رقم (15) اسف على الاطاله وعلى عدم ارسال القاعده لانها تحتوى على بيانات العمل

ممكن ترسل لي هذا النموذج فقط ، بدون اي بيانات او اي شئ آخر لوسمحت :)

يعني اعمل قاعدة بيانات جديدة واستورد فيها هذا النموذج ، ثم ارسله لي ، لوسمحت :)

جعفر

اخى الفاضل جزالك الله خيراً

احمد.rar

السلام عليكم :)

اخي الفاضل ، لك جزيل الشكر على تعاونك :) ، المشكلة كانت (كما توقعت ، فالمسمى كان بالعربي) ، والآن الكود لا ينظر للاسم ، وانما لفهرسة النموذج :)

الكود التالي (المعدل) سيؤدي العمل ان شاء الله :

Private Sub cmd_Next_Click()

    'Next Records
    Call MoveScroll(1)
End Sub

Private Sub cmd_Pre_Click()

    'Previous Records
    Call MoveScroll(-1)

End Sub

Public Sub MoveScroll(n As Long)
On Error GoTo err_MoveScroll

    Dim distance As Long
   
    'Setting Constant Description
    '0 acDetail Form detail section
    '1 acHeader Form header section
    '2 acFooter Form footer section
    '3 acPageHeader Form page header
    '4 acPageFooter Form page footer
   
    Form_Title_Bar_Height = 405
    Form_Navegation_Bar_Height = 405
    Form_Header = Me.Form.Section(acHeader).Height
    Form_Footer = Me.Form.Section(acFooter).Height
    Form_Page_Header = Me.Form.Section(acPageHeader).Height
    Form_Page_Footer = Me.Form.Section(acPageFooter).Height
    Form_Sections = Form_Header + Form_Footer + Form_Page_Header + Form_Page_Footer
    
    distance = (n * (Me.WindowHeight - Form_Sections - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))
   
    Me.GoToPage 1, , distance
   
Exit Sub
err_MoveScroll:

    If Err.Number = 2462 Then
        'ignore, section not available
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

267.move 10 rec up down.mdb.zip

بارك الله لنا فيك اخى الفاضل وزادك من علمه الان الكود اشتغل 100/100

ايش رايكم تجربو

me.recordsetclone.move 10

me.recordsetclone.move -10

تحياتي للجميع