• 0
alaaaboulela

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

سؤال

السلام عليكم

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

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

لذا اثرت ان يستفيد من الطريقة باقي الزملاء ...

move 10 rec up down.rar

تم تعديل بواسطه alaaaboulela
3

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

14 إجابة على هذا السؤال .

  • 0

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

 

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

 

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

 

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

post-273849-0-19143200-1410794131_thumb.

 

 

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

post-273849-0-48257300-1410794184_thumb.

 

 

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

post-273849-0-17966400-1410794238_thumb.

 

 

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

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 SubPrivate 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 SubPublic Sub MoveScroll(Distance As Long)      Me.GoToPage 1, , DistanceEnd Sub

جعفر

267.move 10 rec up down.accdb.zip

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

تحياتي لك ...

تم تعديل بواسطه alaaaboulela
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

 

جعفر

267.move 10 rec up down.mdb.zip

تم تعديل بواسطه jjafferr
2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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
 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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

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

 

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

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

احمد.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

Private Sub cmd_Next_Click()    'Next Records    Call MoveScroll(1)End SubPrivate Sub cmd_Pre_Click()    'Previous Records    Call MoveScroll(-1)End SubPublic 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 Suberr_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

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
ايش رايكم تجربوme.recordsetclone.move 10me.recordsetclone.move -10

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

تم تعديل بواسطه ramhan
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .