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]Gravar Dados

    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Gravar Dados Empty [Resolvido]Gravar Dados

    Mensagem  souzadenilson 18/5/2020, 05:29

    Boa noite.
    No formulário abaixo consegui implementar para gravar onde alguns campos são de preenchimento obrigatório.
    Porém ao salvar o registro não está aparecendo na tabela.
    Já coloquei os comandos dentro do botão gravar, e também fiz somente com o módulo dentro do botão gravar.
    Qual será o comando que faltou, para que ao gravar a nova informação grave os dados na tabela, bloquei os campos e limpe as informações.
    Anexos
    [Resolvido]Gravar Dados AttachmentProjeto_Modelo.zip
    Projeto_Modelo
    Você não tem permissão para fazer download dos arquivos anexados.
    (161 Kb) Baixado 7 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3459
    Registrado : 21/04/2011

    [Resolvido]Gravar Dados Empty Re: [Resolvido]Gravar Dados

    Mensagem  Marcelo David 18/5/2020, 13:16

    Bom dia,
    O seu código está limpando os campos antes de salvar.
    Quando você usa Refresh, os dados são imediatamente
    atualizado/sincronizados com a tabela. Veja acompanhe
    o que estava fazendo no seu código:

    O código abaixo, deve permanecer, pois ele apenas desabilita os campos.
    Código:
     Id_Endereco.Enabled = False
        Id_Bairro.Enabled = False
        Id_Cep.Enabled = False
        Id_observa.Enabled = False

    O código abaixo é o que está com problemas de lógica. Acompanhe os comentários:
    Me.Refresh
    Observe, que até agora não salvou o registro e já usa o
    Refresh, que atualiza o formulário com a tabela. Mas como não foi salvo, o registro apenas é
    é "limpo".

    Id_Endereco = ""
    Id_Bairro = ""
    Id_Cep = ""
    Id_observa = ""
    Aqui, você limpa o campo do formulário, mas até agora sem
    sem comando algum para salvar esses dados. São comandos
    desnecessários, pois ao pedir um novo registro, esses campos
    já serão limpos evitando criar um registro em branco.

    Me.Refresh
    Novamente, você atualiza as informações do formulário com a tabela, porém sem salvar o registro.


    O Correto seria assim:
    Apague o código que incluiu abaico do último If e ponha esse:

    Código:
    DoCmd.RunCommand acCmdSaveRecord 'Aqui você salva efetivamente o registro na tabela
    DoCmd.RunCommand acCmdRecordsGoToNew 'Aqui você já posiciona o formulário em um novo registro e já limpa os campos

    Id_Endereco.Enabled = False
    Id_Bairro.Enabled = False
    Id_Cep.Enabled = False
    Id_observa.Enabled = False


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Gravar Dados Marcel11
    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Gravar Dados Empty Re: [Resolvido]Gravar Dados

    Mensagem  souzadenilson 18/5/2020, 23:49

    Boa noite, funcionou perfeitamente
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3459
    Registrado : 21/04/2011

    [Resolvido]Gravar Dados Empty Re: [Resolvido]Gravar Dados

    Mensagem  Marcelo David 19/5/2020, 02:27

    Ótimo que funcionou. O fórum agradece o retorno.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Gravar Dados Marcel11

      Data/hora atual: 6/12/2021, 17:57