MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Alterar dados e manter na mesma linha

    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 14/8/2021, 19:09

    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.
    Anexos
    [Resolvido]Alterar dados e manter na mesma linha AttachmentProjeto_Liturgia3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (297 Kb) Baixado 10 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 14/8/2021, 21:02

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 14/8/2021, 21:06

    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



    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 15/8/2021, 21:08

    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.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 19/8/2021, 03:04

    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






    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 19/8/2021, 03:24

    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.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 19/8/2021, 03:57

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 1/9/2021, 02:11

    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
    Anexos
    [Resolvido]Alterar dados e manter na mesma linha AttachmentLiturgia Ver1.0.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (356 Kb) Baixado 1 vez(es)
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 10/9/2021, 02:33

    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
    Anexos
    [Resolvido]Alterar dados e manter na mesma linha AttachmentProjeto_Liturgia3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (519 Kb) Baixado 9 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 11/9/2021, 04:55

    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.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 11/9/2021, 23:03

    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
    Anexos
    [Resolvido]Alterar dados e manter na mesma linha AttachmentPrint Formulario.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 0 vez(es)
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 12/9/2021, 23:52

    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 13/9/2021, 00:29

    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
    Anexos
    [Resolvido]Alterar dados e manter na mesma linha AttachmentProjeto_Liturgia3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (336 Kb) Baixado 3 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    robertonl gosta desta mensagem

    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  robertonl 13/9/2021, 00:43

    Boa noite, e obrigado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Alterar dados e manter na mesma linha Empty Re: [Resolvido]Alterar dados e manter na mesma linha

    Mensagem  crysostomo 13/9/2021, 00:47

    Agradecemos o retorno.
    Sucesso


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 18/9/2021, 17:39