اهتزاز الصفحة عند تحريك سجل وعدم بقائها في الوسط

[ahmad_mustafa]

السلام عليكم

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

ارجو المساعدة ولكم الشكر

جداول.rar

[Eng.Qassim]

7 ساعات مضت, ahmus said:

يذهب الى اول الصفحة

هو لايذهب الى اول صفحة وانما يذهب لاول سجل في مربع التحرير

والراجل حقه يهتز ..فانت محمله اكثر من طاقته

يجب ان ننتبه الى ان استعلام SELECT لايتم فيه تغيير البيانات ولهذا لاتحتاج الى مربع تحرير 

ثانيا ..في رايي الاختصار في الاكواد مهم جدا حسب عمل الكود ... فللانتقال للاعلى بين السجلات استخدم

If Me.CurrentRecord > 1 Then
DoCmd.GoToRecord , , acPrevious
End If

وللانتقال الى الاسفل نستخدم

If Me.CurrentRecord <= Me.RecordsetClone.RecordCount Then
DoCmd.GoToRecord , , acNext
End If

و صلى الله وبارك..

انظر للمرفق.. عملت نموذج جديد اضافة لنموذجك القديم ولاحظ الفرق

هو (يهز) بس قليل 😄

جداول.rar

[ahmad_mustafa]

اشكرك Eng.Qassim

لكني اريد تحريك الصف لاعلى واسفل  وليس الانتقال  

 

هو لايذهب الى اول صفحة وانما يذهب لاول سجل في مربع التحرير

والراجل حقه يهتز ..فانت محمله اكثر من طاقته

قصدك لا يوجد حل للاهتزاز

تم تعديل مايو 6, 2022 بواسطه ahmus

[Eng.Qassim]

3 ساعات مضت, ahmus said:

قصدك لا يوجد حل للاهتزاز

بصراحة  لم اطلع على البرنامج كاملا..الدالة    refereshعادة ماتعمل اهتزاز

 

3 ساعات مضت, ahmus said:

لكني اريد تحريك الصف لاعلى واسفل  وليس الانتقال

ارجع لكودك  القديم

[ahmad_mustafa]

الدالة    refereshعادة ماتعمل اهتزاز

عند اسبدال الدالة Requery ب refresh لم يتم تحريك الصف بشكل صحيح والاهتزاز مازال فلذلك يبدو ان refresh ليس بقوة Requery 

لكني كنت لو لاحظت اني وضعت الكود Me.Painting = False خفف الاهتزاز لكن بشكل بسيط