It appears i worked it out. .Thanks anyway
If CurrentRecord = Recordset.RecordCount And CurrentRecord <> 1 Then
DoCmd.GoToRecord , "", acFirst
Else
On Error GoTo cmdRecordSuccessivo_Click_Err
DoCmd.GoToRecord , "", acNext
cmdRecordSuccessivo_Click_Exit: