I tried few different ways none worked. last attempt was with this code:
Private Sub Combo13_AfterUpdate()
On Error GoTo Combo13_AfterUpdate_Err
DoCmd.SearchForRecord , "", acFirst, "[Number] = " & Str(Nz(Screen.ActiveControl, 0))
DoCmd.Requery ""
Combo13_AfterUpdate_Exit:
Exit...