[Resolvido]Erro de duplicidade ao cadastrar cliente

Boa noite!

Estou usando o seguinte código para cadastro de clientes:
Private Sub Salva_Click()
Dim Id As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("TBLCLIENTES")
Id = DMax("[IDCLI]", "TBLCLIENTES")
If CPIDCLI = 0 Then
rs.AddNew
rs.Fields("IDCLI") =( Id )+ 1
CPIDCLI = rs.Fields("IDCLI")
rs.Update
rs.Close
End If
Set rs = Nothing
o problema é que esta gerando o codigo mas ao tentar inseiri um novo registro o acees ad erro dizendo que o codigo gerado gerou duplicidae
onde está errado ?

Boa noite,

Pelo que pude ler no seu codigo, você esta dando indicação de somar +1 ao seu ID, se já existir algum ID= ele da erro porque a sua tabela deve estar com registos ID sem duplicação.
Mas como tou no Telemovel, não consigo ver correto.
Poste aqui seu BD para realmente ver onde se encontra seu erro.

Abraço...

Não se deve abrir tópicos de dúvidas
em salas de repositório.

Movido paea a sala apropriada.

Tenta dessa forma:

With rs
.AddNew
!ID_MV = Nz(DMax("ID_MV", "tb_movimento"), 0) + 1
!MA_MV = Format(DE_MV, "mmm/yyyy")
!DE_MV = Format(DE_MV, "dd/mm/yyyy")
!UG_MV = UG_MV
!RC_MV = strUserName
.Update
.Close
ListaMovimento.Requery

ExclMsg "Movimento Cadastrado com sucesso!"

End With



Abraços

Bom dia!
Em primeiro lugar gostaria de me desculpar com Sr. Marcelo Davi ,postar minha duvida no lugar errado.
Resolvi o problema, na verdade não sabia que usar um código para gerar um ID exclusivo não funcionava em formulários acoplados.
Eu estava a executar o código, num formulário que tinha como RoWSorce a propiá tabela de clientes.

Agradeço a todos que colaboraram para que o problema fosse resolvido.