Ti spiego... il codice originale è così formato

If Right(Me.[001], 5) <> "_" & Me.[Numero_cd] Then
Me.[001] = Me.[001] & "_" & Me.[Numero_cd]
End If

dove [Numero cd] varia a seconda del record selezionato.
Diciamo che l'asterisco io lo userei perchè potrei trovare scritto _0001 oppure _0002... _00_0001... _000_0010 etc etc