Evitar el cambio de registro no autonumérico

Buenas tengo este código para dar el numero de registro en la BD y evitar que sea autonumérico:

Private Sub UBICACION_Click()
Me.ID = 1 + Nz(DMax("[ID]", "[GRUPO APOYO]"), 0)
Me.Refresh
End Sub

Ahora lo que pasa es que estando el un registro cada vez que pulso el botón UBICACIÓN me genera un numero de registro siguiente al máximo.

Lo que quiero es que si ID ya tiene asignado un numero el botón no haga nada o pida confirmación para actualizar el numero

Gracias