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


    [Resolvido]Erro ao alterar cadastro

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Erro ao alterar cadastro Empty [Resolvido]Erro ao alterar cadastro

    Mensagem  souzadenilson 15/4/2021, 00:29

    Boa noite.
    Deparei com uma pequena duvida, na qual tentei algumas tentativas e não funcionou.
    No projeto em anexo, aproveitei um código que em outro projeto funcionou, porém além de não salvar os dados na mesma linha, está dando um erro.
    Quando eu seleciono algum cadastro existente e necessito de realizar qualquer alteração dos dados cadastrado, o programa está dando um erro, e o os dados são cadastrados são duplicados.
    Os dados ao serem alterados deveram ser mantidos na mesma linha. Quando utilizo na tabela o campo id_coddiz como numero não esta dando o erro
    Obs: Todos os cadastros iniciam com zero. para os códigos abaixo de 10 (000X) entre 9 e 100 (00XX) entre 99 e 999(0XXX) e a partir de 1000(0XXX)
    Anexos
    [Resolvido]Erro ao alterar cadastro AttachmentProjetoPiloto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (434 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Erro ao alterar cadastro Empty Re: [Resolvido]Erro ao alterar cadastro

    Mensagem  Alexandre Fim 15/4/2021, 00:46

    Ola Denilson,

    Apesar de você não ter mencionado em qual formulário estava dando o erro, mas eu identifiquei o erro no "Frm_Dizimista", no evento "Btn_Alterar_Click()"
    na seguinte instrução:

    Para fazer um select utilizando campos textos, utilize o APÓSTROFO no início e fim do campo:

    - Errado
    strSql = "SELECT * FROM Tab_dizimista WHERE id_nomediz =" & CStr(Me.Id_NomeDiz)

    - Correto
    strSql = "SELECT * FROM Tab_dizimista WHERE id_nomediz ='" & CStr(Me.Id_NomeDiz) &"'"


    Neste mesmo evento, antes do ".Update", vai gerar erro nesta linhs:

    .id.Id_RefEndDiz = Me.Id_RefEndDiz

    mude para:

    .Id_RefEndDiz = Me.Id_RefEndDiz


    É isso.

    Espero ter ajudado

    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Erro ao alterar cadastro Empty Re: [Resolvido]Erro ao alterar cadastro

    Mensagem  souzadenilson 15/4/2021, 01:03

    Obrigado, funcionou perfeitamente
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7950
    Registrado : 05/11/2009

    [Resolvido]Erro ao alterar cadastro Empty Re: [Resolvido]Erro ao alterar cadastro

    Mensagem  Alexandre Neves 16/4/2021, 15:37

    Faltou o "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Erro ao alterar cadastro Empty Re: [Resolvido]Erro ao alterar cadastro

    Mensagem  souzadenilson 22/4/2021, 23:39

    ok

    Conteúdo patrocinado

    [Resolvido]Erro ao alterar cadastro Empty Re: [Resolvido]Erro ao alterar cadastro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 15:12