تحريك السجلات لاعلى واسفل بعجله الماوس

[النجاشي]

السلام عليكم احبتي

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

تحياتي احبتي

[ابو البشر]

جرب هذا الكود وأعلمنا بالنتيجة

.......

If (Count < 0) And (Me.CurrentRecord > 1) Then
DoCmd.GoToRecord , , acPrevious
ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then
DoCmd.GoToRecord , , acNext
End if

[النجاشي]

  في 19‏/12‏/2019 at 21:13, ابو البشر said:

جرب هذا الكود وأعلمنا بالنتيجة

.......

If (Count < 0) And (Me.CurrentRecord > 1) Then
DoCmd.GoToRecord , , acPrevious
ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then
DoCmd.GoToRecord , , acNext
End if

Expand  

استاذي الفاضل ممكن شرح مختصر او مثال مختصر لذالك كوني لا اجيد اللغه الانجليزيه

تحياتي اليك

[أبوبسمله]

  في 19‏/12‏/2019 at 20:39, النجاشي said:

السلام عليكم احبتي

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

تحياتي احبتي

Expand  

اخى العزيز كيف حالك

مشاركه مع اخى العزيز @ابو البشر

هل ممكن مثال من عندك لما تقصده

اخى العزيز @ابو البشر ممكن ترفق مثال لنا بالكود

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

[النجاشي]

  في 19‏/12‏/2019 at 21:38, أحمد الفلاحجى said:

اخى العزيز كيف حالك

مشاركه مع اخى العزيز @ابو البشر

هل ممكن مثال من عندك لما تقصده

اخى العزيز @ابو البشر ممكن ترفق مثال لنا بالكود

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

Expand  

الحمدلله بخير 

لكن ضروف العمل لم تسمح لي الدخول كثيرا للمنتدي

اليك المثال يالحبيب

مثال.rarFetching info...

[أبوبسمله]

الحمدلله على كل حال

ربنا يعينك ويوفقك

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

ولكن علشان تتحرك معك اضغط كليك شمال حتى يصبح التركيز عليها فقط وحرك عجله الماوس ستعمل معك

ان كان غير ذلك فوضح اكثر وان شاء الله نشوف حل معك اخى

تقبل تحياتى

طبتم واهتديتم

[النجاشي]

  في 19‏/12‏/2019 at 23:08, أحمد الفلاحجى said:

الحمدلله على كل حال

ربنا يعينك ويوفقك

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

ولكن علشان تتحرك معك اضغط كليك شمال حتى يصبح التركيز عليها فقط وحرك عجله الماوس ستعمل معك

ان كان غير ذلك فوضح اكثر وان شاء الله نشوف حل معك اخى

تقبل تحياتى

طبتم واهتديتم

Expand  

نعم هو يعمل ولكن ما اقصده في سهم اسود نهايه السجل لم يتحرك لاعلا واسفل والدليل شوف التظليل للسجل لم يتماشي مع السجلات فاذا ضبط السهم الاسود راح يتماشا مع التظليل

[أبوبسمله]

استخدمت كود اخى @ابو البشر

فى حدث عند تحريك القرص للنموذج الفرعى واشتغل تمام

جزاه الله خيرا

 

 

 

مثال2019.rarFetching info...

[النجاشي]

  في 19‏/12‏/2019 at 23:27, أحمد الفلاحجى said:

استخدمت كود اخى @ابو البشر

فى حدث عند تحريك القرص للنموذج الفرعى واشتغل تمام

جزاه الله خيرا

 

 

 

مثال2019.rar 327.03 kB · 12 تنزيلات

Expand  

بارك الله فيك وفي استاذنا الفاضل نعم هو المطلوب الله يبارك فيك كنت احط الكود في النموذج الرئيسي ههههههه 

تحياتي اليكم يالحبايب