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

عرض السجلات في النموذج بسرعه عند الضغط على زر التالي


الردود الموصى بها

الساده الاعضاء الاعزاء

السلام عليكم ورحمة الله وبركاته

مشكلة عندما اضغط على زر التالى يتم عرض سجل واحد يعني كل ضغطه على الماوس تنقلني الى السجل التالى . لاكن الذي اريده هو

عرض السجلات في النموذج على التوالي وبسرعه عند الضغط على زر التالي .

 

الف شكر للجميع

تم تعديل بواسطه abenjalo
رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته

 

اعرض عليك عمل أخي علاء ابوالعلا (الله يعطيه الصحة والعافية ، ورحم الله والديه دنيا وآخرة ان شاء الله :smile: ) ، من منتدى الفريق العربي للبرمجة ، بإضافات مني  :smile:

 

والعمل هو عبارة عن التنقل بين السجلات بعدد معين من السجلات في كل ضغطة زر:

 

المربع رقم 1 هو من عمل أخي علاء ، والمربع رقم 2 من عملي ، مقتبسا فكرة أخي علاء:

post-142414-0-67438400-1426235934_thumb.

 

 

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

 

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

post-142414-0-82075000-1426235930_thumb.

 

 

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

post-142414-0-32993300-1426235932_thumb.

 

 

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

post-142414-0-79463400-1426235933_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 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.mdb.zip

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information