[Resolvido]Alterar dados e manter na mesma linha

Boa tarde
No projeto em que estou trabalhando, deparei com um pequeno erro. Ao selecionar o registro e se precisar alterar informação , os dados são alterados, porem ao inves de manter na mesma linha, ele está duplicando a informação.

Boa tarde colega.
Você enviou todo o projeto.
Deixei aqui somente a parte que você quer alterar ou identifique para nós para facilitar.

Segue o codigo

Código:


Private Sub Btn_Alterar_Click()
     
      'If IsNull(Data_EscalaLeitores) Or Data_EscalaLeitores.Value = "" Then
        'MsgBox "CAMPO Endereco de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
        'Id_Codcad.SetFocus
        'Id_Endereco.BackColor = 255
        'Exit Sub
    'End If
    strSql = "SELECT * FROM Tab_EscalaLeitores WHERE Escala_PriLeitura='" & CStr(Me.Escala_PriLeitura) & "'"
    Set rstdizimista = CurrentDb.OpenRecordset(strSql)
        With rstdizimista
            .Edit
            .Data_EscalaLeitores = Me.Data_EscalaLeitores
            .Escala_PriLeitura = Me.Escala_PriLeitura
            .Escala_SegLeitura = Me.Escala_SegLeitura
            .Escala_Preces = Me.Escala_Preces
            .Primeiro_Ministro = Me.Primeiro_Ministro
            .Segundo_Ministro = Me.Segundo_Ministro
            .Update
        End With
    Set rstendereco = Nothing
   
    'DB.Execute "update Tab_EscalaLeitores set Nome_cad WHERE Data_EscalaLeitores"' & Me.Id_NomeDiz & "'"
       
    MsgBox "Escala alterada com sucesso!"
    Me.Lst_Escalas.Requery
    'DoCmd.RunCommand acCmdRecordsGoToNew
    'Bloqueia_Dizimista
End Sub





Boa tarde. Não vi erro, pode acontecer de sua tabela está vinculada se caso não for fico acompanhado o tópico
Um sugestão, toda tabela tem que ter Id, já que a sua não tem altera os campos  por data e não por nome.

Boa noite.
Conforme orientações realizei a inclusão do campo ID.
Em parte funcionou, porém quando realizo esta alteração a informação fica duplicada

Código:



Private Sub Btn_Alterar_Click()
      If IsNull(Id_EscalaLeitores) Or Id_EscalaLeitores.Value = "" Then
        MsgBox "CAMPO Endereco de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
        'Id_Codcad.SetFocus
        'Id_Endereco.BackColor = 255
        Exit Sub
    End If
    strSql = "SELECT * FROM Tab_EscalaLeitores WHERE Id_EscalaLeitores =" & CLng(Me.Id_EscalaLeitores) ' & "'"
    ' strSql = "SELECT * FROM Tab_responsavel WHERE id_Codresp =" & CLng(Me.Id_CodResp)
    Set rstdizimista = CurrentDb.OpenRecordset(strSql)
        With rstdizimista
            .Edit
            .Id_EscalaLeitores = Me.Id_EscalaLeitores
            .Data_EscalaLeitores = Me.Data_EscalaLeitores
            .Escala_PriLeitura = Me.Escala_PriLeitura
            .Escala_SegLeitura = Me.Escala_SegLeitura
            .Escala_Preces = Me.Escala_Preces
            .Primeiro_Ministro = Me.Primeiro_Ministro
            .Segundo_Ministro = Me.Segundo_Ministro
           
            .Update
        End With
    Set rstendereco = Nothing
   
    'DB.Execute "update Tab_EscalaLeitores set Nome_cad WHERE id_nomediz" & Me.Id_NomeDiz & "'"
       
    MsgBox "Escala alterada com sucesso!"
    Me.Lst_Escalas.Requery
    'DoCmd.RunCommand acCmdRecordsGoToNew
    'Bloqueia_Dizimista
End Sub






Meu amigo no seu projeto anexado nenhuma tabela tem Id_EscalaLeitores e não há relacionamento, vou  ver aqui se da para mexer com data.

Desculpe, eu fiz na minha e esqueci de anexar o novo arquivo no forum

Desculpe pela demora, eu ainda estava realizar alguns testes mais não foi como esperado.
Implementei um código para sequencia, e ao selecionar o registro desejado, altero o(s) nome(s) desejados, e ele dá uma mensagem de erro, e quando vou na tabela o numero do registro fica duplicado e fica os dados antigos com os novos.
Ex: O registro escolhido foi o 11, e quando a pessoa que realizou a 1ª leitura eu alterei o nome  de Lia para Denise, o correto na tabela teria que ficar os dados da segunda linha do exemplo e ele duplicou

Id_Seq Data Escala 1ª Leitura 2ª Leitura Preces Ministro Ministro
11        04/09/2021 Lia           Talita Artur   Ednea Lurdinha
11        04/09/2021 Denise   Talita Artur   Ednea Lurdinha

Boa noite.
Em parte consegui fazer com que os dados fossem alterados e mantidos na mesma linha, porém ó não consegui descobrir porque ao alterar o registro é duplicado.
Segue o arquivo com a nova correção

Boa noite amigo, não sei porque o botão alterar está dando problema, mas se você selecionar e salvar de novo o sistema alterar normal na mesma linha e não duplica os nome.

Boa noite.


Para alterar algum registro desejado, eu clico no botão selecionar, ele desbloqueia a caixa de listagem, eu escolho qual a escala se precisar fazer a alteração e depois de trocar algum dos nomes eu clico em alterar, o sistema me informa que foi feita a alteração, porém quando vai para a tabelaas informações ficam duplicadas, com os dados antigos e os dados novos.
Realizei um teste e o registro foi duplicado

Boa noite.
A principio consegui resolver.
No designe da tabela alterei para duplicação não autorizada,
Se alguém tiver outra sugestão para alterar no projeto, ideias serão bem recebidas.

Boa noite, está funcionando certim.
Eu retirei o comando Ao carregar as escalas e está funcionando a alteração certim e só clicar duas vezes no nome para o preenchimento.
Ali estava carregando duas vezes, deixando no atual a escala e carregando outra escala

Boa noite, e obrigado

Agradecemos o retorno.
Sucesso