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

ahmad_mustafa · مايو 4, 2022

السلام عليكم

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

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

**Eng.Qassim** · مايو 5, 2022

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

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

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

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

ahmad_mustafa · مايو 6, 2022

اشكرك Eng.Qassim

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

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

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

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

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

**Eng.Qassim** · مايو 6, 2022

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

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

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

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

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

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

ahmad_mustafa · مايو 8, 2022

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

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

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

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