عملت تغيير بسيط على الكود السابق ، واليك المرفق الجديد   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