em um cliente, tenho 4 maquinas começando a cadastrar os produtos, ao mesmo tempo, e as vezes, qdo coincide de dar enter ao mesmo tempo, como estou dando um moveMax no recordset, e somando mais, as vezes gera o mesmo numero, mas ai, dou um mensagem avisando o usuário, para clicar no botão gravar novamente, e fica tudo certo. Teria como automatizar esta rotina ??

Você pode interceptar o erro e ínserir o código de numeração no tratamento dele:

 

On error goto TrataErro

(...)

seu código de cadastro

(...)

TrataErro:

If Err.Number = Erro de Duplicação Then

rst!Codigo=rst!Codigo+1

rst.Update

End If

(...)