Ir para conteúdo
Fórum Script Brasil
  • 0

Salvar alteração na tabela access


souzadenilson

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
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

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...