[Resolvido]Inserir registro ou localizar existente

Senhores, boa noite

Preciso de uma ajuda para resolver uma questão.

Em um formulário, em um campo chamado txtTag no evento após atualizar coloquei o código abaixo:

If DCount("*", "tblIndMaquinas", "tag='" & Me.txtTag & "'") > 0 Then
DoCmd.ApplyFilter "", "[tag]=[Forms]![frmIndMaquinas]![txtTag]", ""
Exit Sub
Else
DoCmd.RefreshRecord
Me.descMaquina.SetFocus
End If

A ideia seria que após inserir determina informação no campo txtTag a função verifique se o registro existe ou não, onde caso já exista carregue o formulário com as informações cadastradas, e caso não exista considere como um novo registro e direcione o focu para o próximo campo.

Infelizmente não está funcionamento como deveria, quando digito o código no campo txtTag referente a um registro existe, ele localiza o registro, porém ao mesmo tempo cria um novo.


Desde já agradeço.

Boa noite
Pelo código indicado, ele fará apenas uma das 2 situações, não as duas

Oi Alexandre,

Qual seria o código correto para que faça o que preciso?

Tem que ver o que faz o registo novo, apesar de já existir

Vamos lá Alexandre, deixa eu tentar me fazer entender.

A ideia é que ao lançar o código da máquina nesse campo txtTag, se já existir uma máquina cadastrada com o código informado, o formulário é carregado com os demais dados cadastrais da máquina.

Agora, caso não exista a máquina cadastrada com o código informado, simplesmente inicia-se o lançamento de um novo registro salvando o código informado no campo txtTag e passando o foco para o próximo campo a ser preenchido.

mas ele está a criar registo novo, conforme descreveu na primeira mensagem

Sim Alexandre...

Ele está criando um novo registro na tabela e no formulário ele carrega os dados do registro localizado, caso ele exista.

Isso está errado, pois como disse ele deveria apenas carregar os dados do registro encontrado e não ao mesmo tempo criar um novo registro na tabela com o mesmo código do registro encontrado.

Bom dia
Em primeiro lugar tem de se debruçar para eliminar esse erro de duplicação

Alexandre, boa tarde

Infelizmente não consegui solucionar a questão, de forma que o código execute a ação como preciso, dessa forma, optei por fazer uma alteração no projeto, separando as ações de inclusão e localização.

Sendo assim coloco como resolvido o tópico.

De toda forma agradeço.