Dim MyRecord As String
MyRecord = CurrentRecord() -1



DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE FROM Nominati WHERE IDNomina = " & Me![IDNomina]
DoCmd.RunSQL "DELETE FROM Nomine WHERE IDNomina = " & Me![IDNomina]

DoCmd.SetWarnings True


Docmd.Requery

DoCmd.GoToRecord , , acGoTo, MyRecord

prova così, in pratica utiliziamo la variabile MyRecord per memorizzare il record corrente (es. il 25 di 30), passiamo al tuo codice per cancellare, facciamo un requery e poi indichiamo al database di tornare al record memorizzato - 1 (ovvero al 24 di 30).
dovrebbe funzionare fammi sapere