السلام عليكم ورحمه الله وبركاته
احبابي الكرام
عندي نموذج وبداخله نموذج فرعي ويوجد به نص بحث
المطلوب عندما ابحث عن سجل اريد كود يعطينا لون ازرق للسجل الحالي
شاكرين احبابي
وضاح
عملت تغيير بسيط على الكود السابق ،
واليك المرفق الجديد
Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown
temp_MYn1 = Me.sfrm_Search!MYn1
Select Case KeyCode
Case vbKeyDown
Me.sfrm_Search!MYn1 = 0
I_went = "Down"
Me.sfrm_Search.Form.RecordsetClone.MoveNext
Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
KeyCode = 0
Case