Salvar alteração na tabela access

[souzadenilson]

Boa noite.

Estou trabalhando em uma pequena aplicação do access, e caso eu necessite alterar a informação , localizo o registro desejado e o mesmo é carregado.

Realizando a alteração e quando clico no botão alterar o registro está sendo duplicado. (A ideia é a linha onde se encontra o registro) os dados sejam alterados e não duplicados.

Quando altera o sistema informa que os dados foram alterados com sucesso.

[Alyson Ronnan Martins]

Teria como olhar seu projeto "sem dados" para ver como esta usando a função atualizar/editar?

[Antonio_Heleno]

Em 26/01/2021 em 23:54, souzadenilson disse:

Boa noite.

Estou trabalhando em uma pequena aplicação do access, e caso eu necessite alterar a informação , localizo o registro desejado e o mesmo é carregado.

Realizando a alteração e quando clico no botão alterar o registro está sendo duplicado. (A ideia é a linha onde se encontra o registro) os dados sejam alterados e não duplicados.

Quando altera o sistema informa que os dados foram alterados com sucesso.

Olã amigo , Coloca este codigo no evento do Campo que você não que a duplicidade.

Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.txt_nome.Value
StLinkCriteria = "txt_nome='" & Busca & "'"
If DCount("txt_nome", "Nome da Tabela", StLinkCriteria) > 0 Then
Me.Undo
MsgBox "Aqui Amensagem que vai aparecer:.." _
& Busca & " JÁ EXISTE." _
& vbCr & vbCr & "ESCOLHA OUTRO NOME.", vbInformation _
, "DUPLICIDADE"
rsc.FindFirst StLinkCriteria
End If
Set rsc = Nothing

Agora, Antonio_Heleno disse:

1 minuto atrás, Antonio_Heleno disse:

Olã amigo , Coloca este codigo no evento do Campo que você não que a duplicidade.

Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.txt_nome.Value
StLinkCriteria = "txt_nome='" & Busca & "'"
If DCount("txt_nome", "Nome da Tabela", StLinkCriteria) > 0 Then
Me.Undo
MsgBox "Aqui Amensagem que vai aparecer:.." _
& Busca & " JÁ EXISTE." _
& vbCr & vbCr & "ESCOLHA OUTRO NOME.", vbInformation _
, "DUPLICIDADE"
rsc.FindFirst StLinkCriteria
End If
Set rsc = Nothing

No evento antes de atualizar