كيفية فرز السجل قبل الأخير

تفضل أخى

ABC.rar

شكراً لك أخي أبو يوسف على سرعة الاهتمام وسرعة الرد

وهذا هو المطلوب من السؤال

ولك مني جزيل الشكر والإمتنان

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

الأخ العزيز أبو يوسف لقد حاولت تطبيق ماتكرمت به علينا من حل على فورم آخر لدي ولكنني لم أفلح في ذلك

لذلك أرجو التكرم وشرح كيفية عمل الكود

مع خالص الشكر

أخى الكريم

هذا هو الكود المستخدم

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

Private Sub Form_Current()

ثم نقوم بتعريف مجموعة السجلات الخاصة بالنموذج الفرعى

Dim rs As Recordset
Set rs = Me.subfrm.Form.RecordsetClone

و لأنه من المحتمل ألا تكون هناك سجلات فى النموذج الفرعى وضعنا هذا السطر حتى لا يحدث خطأ

On Error GoTo norec

ثم نذهب الى السجل الاخير

rs.MoveLast

ثم نتحرك الى السجل قبل الاخير ( ذلك بالطبع اذا كان عدد السجلات أكبر من واحد )

If rs.RecordCount > 1 Then rs.MovePrevious

هنا نأخذ البيانات المطلوبة من السجل

Me.txtdate = rs![التاريخ]

هذا السطر لتخطى الكود التالى

GoTo exitsub

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

norec:
Me.txtdate = ""

عند الانتهاء نقوم بغلق مجموعة السجلات و الخروج

exitsub:
rs.Close
Set rs = Nothing
End Sub

بارك الله فيك أستاذنا/ أبو يوسف ، زادك الله علما ..

بارك الله فيك يا استاذ أبو يوسف معلومات مفيدة جزيت خيرا