Me.FilterOn = False
Me.CODE.Enabled = True
المشكلة كانت فى السطر التالي .. حيث كان حقل الكود غير ممكن
Me.CODE.SetFocus
DoCmd.FindRecord dd, , , True, , acCurrent
Me.DATE.SetFocus
Me.CODE.Enabled = False
Me.Recordset.MovePrevious
If Me.Recordset.BOF() Then
Me.Recordset.MoveFirst
End If