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

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário

    avatar
    lucianoricardorochasouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/04/2023

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Empty [Resolvido]Atualizar campo de tabela com campo criado em Formulário

    Mensagem  lucianoricardorochasouza Sáb 08 Abr 2023, 21:26

    Estou tentando atualizar uma tabela com um dado criado no formulário.
    O sistema é bastante simples, sou iniciante.
    Trata-se de um sisteminha de armazenamento de compras em supermercado.
    Consta apenas de duas tabelas.

    Uma delas contem a compra onde registro só os campos:

    data (a data da compra) precisa digitar é a chave
    qtde de itens (esse campo é criado pelo formulário - contém a qtde de registros da 2a tabela, de itens da compra
    valor (esse campo é criado pelo formulário - contém a soma dos valores dos itens por suas quantidades
    imposto (esse campo é digitado)
    percentual do imposto (esse campo é criado, mas desnecessário).

    a 2a tabela contém os itens comprados,
    contém os campos
    data (obtido da digitação do campo do formulário)
    descrição do item (esse campo pode ser digitado ou obtido em tabela
    qtde (esse campo é digitado)
    valor unitário (esse campo é digitado)

    Ao encerrar a compra clicando no botão "Salvar a Compra" o sistema cria os registros nas duas tabelas, mas não atualiza o valor da compra na tabela principal. Esse campo deveria ser atualizado com o campo criado no formulário.

    Estou usando as instruções:

    Private Sub SalvarCompra_Click()

    On Error GoTo Err_bt_NovoRegistro

       Me.Refresh
       
     '  Dim db As DAO.Database
       'Set db = CurrentDb()
       CurrentDb.Execute "UPDATE tb_compras SET total = '" & Me.TotVal & "' WHERE data = " & Me.data & ""
       
       DoCmd.GoToRecord , , acNewRec
       Forms!frm_compras!data.SetFocus
    Exit_bt_NovoRegistro:
       Exit Sub

    Err_bt_NovoRegistro:
       MsgBox Err.Description
       Resume Exit_bt_NovoRegistro
       
    End Sub

    Mas infelizmente dá erro de sintaxe e não atualiza.
    Segue o sisteminha zipado

    Arlei S Liberato gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Empty Re: [Resolvido]Atualizar campo de tabela com campo criado em Formulário

    Mensagem  Alexandre Fim Seg 10 Abr 2023, 12:07

    Bom dia Luciano,

    Não veio o arquivo zipado, mas tente isso:

    CurrentDb.Execute "UPDATE tb_compras SET total = '" & Me.TotVal & "' WHERE data = #" & Format(Me.Data, "mm/dd/yyyy") & "#"

    Att,

    Alexandre Fim


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

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Setinf11
    Sistemas e Tecnologia Ltda

    lucianoricardorochasouza gosta desta mensagem

    avatar
    lucianoricardorochasouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/04/2023

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Empty eureka !!!

    Mensagem  lucianoricardorochasouza Seg 10 Abr 2023, 14:52

    Maravilha. Deu certo.
    Aproveitando sua boa vontade peço uma outra explicação sobre a linha de comando que me passou.
    Você colocou o # antes e depois do campo com format.
    Isso você fez por ser um campo DATE ou em toda pesquisa terei que fazer isso?

    Sobre o arquivo zipado, não sei como nem porque não foi. Devo ter errado alguma coisa.
    Esta é minha segunda vez que uso o sistema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Empty Re: [Resolvido]Atualizar campo de tabela com campo criado em Formulário

    Mensagem  JPaulo Seg 10 Abr 2023, 15:01

    Veja a mensagem Nº2 deste tópico:

    https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao


    Também deve utilizar a sala de tutoriais (Apostilas), só assim você vai crescer em conhecimento para os seus trabalhos;

    https://www.maximoaccess.com/f2-repositorio-de-tutoriais-apostilas


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Folder_announce_new Instruções SQL como utilizar...

    lucianoricardorochasouza gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Atualizar campo de tabela com campo criado em Formulário Empty Re: [Resolvido]Atualizar campo de tabela com campo criado em Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 20 maio 2024, 13:24