محمود ادريس قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 (معدل) الساده الاعضاء الاعزاء السلام عليكم ورحمة الله وبركاته مشكلة عندما اضغط على زر التالى يتم عرض سجل واحد يعني كل ضغطه على الماوس تنقلني الى السجل التالى . لاكن الذي اريده هو عرض السجلات في النموذج على التوالي وبسرعه عند الضغط على زر التالي . الف شكر للجميع تم تعديل مارس 13, 2015 بواسطه abenjalo
hussein arby قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 اخي الفاضل ارفق البرنامج اليتم حل هذه المشكلة
jjafferr قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 وعليكم السلام ورحمة الله وبركاته اعرض عليك عمل أخي علاء ابوالعلا (الله يعطيه الصحة والعافية ، ورحم الله والديه دنيا وآخرة ان شاء الله ) ، من منتدى الفريق العربي للبرمجة ، بإضافات مني والعمل هو عبارة عن التنقل بين السجلات بعدد معين من السجلات في كل ضغطة زر: المربع رقم 1 هو من عمل أخي علاء ، والمربع رقم 2 من عملي ، مقتبسا فكرة أخي علاء: عملت نموذج مستمر ، واردت السجلات تنزل او تصعد صفحة كاملة (مثل 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.mdb.zip 2
محمود ادريس قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 اتمنى ان يكون قد فهم قصدي المطلوب هو عند الضغط المستمر بالماوس على زر التالي او السابق يتم عرض السجلات جميعها حتى النهاية هذا هو قصدي
jjafferr قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 يعني المرفق اللي وضعته لك في مشاركتي السابقة ما افادك؟ جعفر
jjafferr قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 شكرا على الملفات القيمة حياك الله أخي عبدالفتاح ما تغلى عليكم بس للأسف أخينا abenjalo ما قدر يستفيد منها سأعمل محاولة جديدة ، لعله يفي جعفر
jjafferr قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 سأعمل محاولة جديدة ، لعله يفي آسف ، لم تفلح المحاولة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.