اليك هذا Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If Me.CurrentRecord < RC Then DoCmd.GoToRecord , , acNext End If  
    • Thanks
    • Like
    3