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


3 participantes

    Botão atualiza insere dados duplicados na tabela

    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    Botão atualiza insere dados duplicados na tabela Empty Botão atualiza insere dados duplicados na tabela

    Mensagem  Ccanastra 26/10/2022, 23:14

    A duvida é simples (eu acho)!

    Quando clico em salvar, ou tiro o foco do último campo (são os eventos para salvar os dados na tabela), as informações são enviadas em duplicidade para tabela, ou seja, gera duas informações iguais, sendo certo que preciso que apenas uma seja gerada, por vez.

    Formulário: frm_prn_a_receber

    Tabela: tbl_prn_a_receber

    Alguns campos são calculados e, por isso, desabilitados no formulário. É necessário preencher todos os campos à esquerda, para que os da direita sejam devidamente preenchidos e fiquem não acessíveis.

    Segue o DB para análise e ajuda.

    Grato!
    Anexos
    Botão atualiza insere dados duplicados na tabela AttachmentDuvida_Clauber.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (485 Kb) Baixado 4 vez(es)


    Última edição por Ccanastra em 27/10/2022, 00:23, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Botão atualiza insere dados duplicados na tabela Empty Re: Botão atualiza insere dados duplicados na tabela

    Mensagem  crysostomo 27/10/2022, 00:08

    O Db Não foi anexo


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    Botão atualiza insere dados duplicados na tabela Empty Faltou o "enviar"!

    Mensagem  Ccanastra 27/10/2022, 00:21

    Editei a mensagem, para atualizar o envio!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Botão atualiza insere dados duplicados na tabela Empty Re: Botão atualiza insere dados duplicados na tabela

    Mensagem  crysostomo 27/10/2022, 03:46

    Aqui esta sendo executado corretamente.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    Botão atualiza insere dados duplicados na tabela Empty Outra dúvida

    Mensagem  Ccanastra 28/10/2022, 23:04

    Amigo Crysostomo,

    grato pela sua atenção!

    Aqui, comigo, ocorre o seguinte (creio q vc tenha visto o VBA):

    Quando atualizo o campo (tab), ele executa o

    Call salvar_click

    Ocorre que, além de jogar informação duplicada na tabela, ele não limpa os campos, como deveria, abrindo um novo registro (DoCmd.GoToRecord , , acNewRec)

    Veja os comandos:

    Private Sub cbo_via_de_pagamento_LostFocus()

       Call salvar_Click

    End Sub

    e

    Private Sub salvar_Click()

    Dim Msg As String
    On Error Resume Next

    Dim rst1 As Recordset
    Dim Sel1 As String


    If IsNull(Me.cbo_plataforma_de_venda) Then
       MsgBox "Atenção! Escolha a plataforma de venda!", vbInformation, "Atenção!"
       Exit Sub
    End If

    If IsNull(Me.data_da_venda_text_box) Then
       MsgBox "Atenção! Preencha a data da venda!", vbInformation, "Atenção!"
       Exit Sub
    End If

    If IsNull(Me.valor_total_do_pedido_text_box) Then
       MsgBox "Atenção! Preencha o valor da venda!", vbInformation, "Atenção!"
       Exit Sub
    End If

    If IsNull(Me.cbo_via_de_pagamento) Then
       MsgBox "Atenção! Escolha a via de pagamento!", vbInformation, "Atenção!"
       Exit Sub
    End If

       Msg = "Deseja Efetuar o Cadastro?"
       If MsgBox(Msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then
           

           Sel1 = "SELECT * from tbl_prn_a_receber"
           Set rst1 = CurrentDb.OpenRecordset(Sel1)
               
               rst1.AddNew
                   rst1![Plataforma_de_Vendas] = cbo_plataforma_de_venda
                   rst1![Data_da_venda] = data_da_venda_text_box
                   rst1![Valor_dos_itens] = valor_total_do_pedido_text_box
                   rst1![Taxa_de_entrega] = taxa_de_entrega_text_box
                   rst1![Desconto_do_restaurante] = desconto_do_restaurante_text_box
                   rst1![Incentivos_da_plataforma] = incentivos_ifood_text_box
                   rst1![Via_de_Pagamento] = cbo_via_de_pagamento
                   rst1![Data_do_repasse] = data_do_repasse_text_box
                   rst1![valor_do_repasse] = valor_do_repasse_text_box
                   rst1![comissão] = comissão_text_box
                   rst1![taxa_de_transação] = taxa_de_transação_text_box
       
               rst1.Update
               rst1.Close
           
                         
           MsgBox "Registro Adicionado Com Sucesso!", , "Atenção!"
           
           Exit Sub
       End If
     
           DoCmd.GoToRecord , , acNewRec
           Me.[cbo_plataforma_de_venda].SetFocus
     
    End Sub




    Se puder me ajudar, fiz uma alteração no VBA, mas nada foi alterado quanto ao resultado.

    Verifique nesse arquivo novo se, ao adicionar um registro, ele não adicionará as IDs 129 e 130, na tabela tbl_prn_a_receber.

    Mais uma vez, grato pela ajuda!
    Anexos
    Botão atualiza insere dados duplicados na tabela AttachmentDuvida_Clauber_22_10_28.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (484 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Botão atualiza insere dados duplicados na tabela Empty Re: Botão atualiza insere dados duplicados na tabela

    Mensagem  Alexandre Fim 28/10/2022, 23:53

    Olá Clauger,

    Baixei seu exemplo e tomei a liberdade de realizar algumas modificações para sanar o problema e deixar a rotina mais segura.
    Assim que eu terminar eu disponibilizo para sua avaliação.
    OBS: Estou colocando os comentários no código para vc entender o que cada rotina realiza.

    É isso.

    Valeu

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Botão atualiza insere dados duplicados na tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    Botão atualiza insere dados duplicados na tabela Empty Re: Botão atualiza insere dados duplicados na tabela

    Mensagem  Ccanastra 29/10/2022, 03:06

    Obrigado, Alexandre!!!!


    Conteúdo patrocinado


    Botão atualiza insere dados duplicados na tabela Empty Re: Botão atualiza insere dados duplicados na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 15:27