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


4 participantes

    [Resolvido]Atualizar campo de um formulário (dúvida simples)

    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 6/12/2018, 13:44

    Olá a todos, gostaria de tirar uma dúvida simples que estou quebrando a cabeça aqui faz alguns dias
    tenho um formulário que quando clico em salvar ele faz um calculo (=Nz([txtTotalProdutos])-Nz([DESCONTO])) porem ele demora uns milésimos de segundo para fazer esse calculo porem gostaria que esse resultado salvasse em outro campo (valor total) que é onde vai ficar salvo na tabela, coloquei via vba o código apos clicar no botão salvar (TOTAL_LIQUIDO.Value = txtTotalPagar.Value) porem quando clico em salvar da primeira vez ele não salva o resultado, só quando eu clico de novo (depois que o sistema já fez o calculo) tentei de tudo que é jeito e nenhuma opção dá certo Sad

    obg desde já a quem puder me auxiliar, estou a horas trabalhando tentando resolver isso


    Última edição por alozs em 11/12/2018, 12:15, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 6/12/2018, 14:15

    Olá Alonso,

    Se compreendi bem a questão, será ter no seu formulário também o campo que vai receber o valor calculado (para guardar, pode ser invisivel)
    Depois no seu botão será:

    Código:
    NomeDoSeuCampo = =Nz([txtTotalProdutos])-Nz([DESCONTO]))

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 6/12/2018, 14:24

    olá ahteixeira, tentei colocar mais acontece a mesma coisa, preciso clicar 2x no botão salvar, o campo em questão que vai receber o valor é "TOTAL_LIQUIDO" está como invisível sim
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 6/12/2018, 14:39

    Olá,

    Tente assim:

    Código:
    txtTotalPaga =Nz([txtTotalProdutos])-Nz([DESCONTO])
    DoEvents
    TOTAL_LIQUIDO = txtTotalPaga

    Caso não resolva, mostre o código que está a usar

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 6/12/2018, 15:17

    funcionou mais ficou da mesma forma, preciso clicar 2x no botão salvar
    segue o codigo
    Código:
    Private Sub btnSalvar_Click()
        If IsNull(Me!CLIENTE) Then
        MsgBox "Preencha o campo CLIENTE!"
        DoCmd.CancelEvent
        CLIENTE.SetFocus
    Else
       
        If IsNull(Me!cbtec) Then
        MsgBox "Preencha o campo MÊCANICO!"
        DoCmd.CancelEvent
        cbtec.SetFocus
    Else
       
        If IsNull(Me!cbplaca) Then
        MsgBox "Preencha o campo PLACA!"
        DoCmd.CancelEvent
        cbplaca.SetFocus
    Else
       
        If IsNull(Me!Status) Then
        MsgBox "Preencha o campo STATUS!"
        DoCmd.CancelEvent
        Status.SetFocus
    Else
       
        If IsNull(Me!DATA_SERVICO) Then
        MsgBox "Preencha o campo DATA ENTRADA!"
        DoCmd.CancelEvent
        DATA_SERVICO.SetFocus
    Else

       
        CLIENTE.Enabled = False
        cbtec.Enabled = False
        cbplaca.Enabled = False
        cbveiculo.Enabled = False
        Status.Enabled = False
        DATA_SERVICO.Enabled = False
        DATA_SAIDA.Enabled = False
        PROBLEMA.Enabled = False
        OBRA.Enabled = False
        Obs.Enabled = False
        Anexo.Enabled = False
        FRM_SERVICOS_SUB.Enabled = False
        txtTotalProdutos.Enabled = False
        'TOTAL_OBRA.Enabled = False
        Desconto.Enabled = False
        'cbpgto.Enabled = False
        txtTotalPagar.Enabled = False
        btnpgto.Enabled = False
       
        btnapagar.Enabled = True
        btnEditar.Enabled = True
        btnNovo.Enabled = True
        btnSalvar.Enabled = False
        btnLocalizar.Enabled = True
        btnImprimir.Enabled = True

        'TOTAL_LIQUIDO.Value = txtTotalPagar.Value
       
        txtTotalPagar = Nz([txtTotalProdutos]) - Nz([Desconto])
        DoEvents
        TOTAL_LIQUIDO = txtTotalPagar
       
        'If Me.Status = "Faturado" Then
        'vendaliquidocaixa.Value = txtTotalPagar.Value
        'descontocaixa.Value = Desconto.Value
        'vendabrutocaixa.Value = txtTotalProdutos.Value
        'End If
       
        'If Me.Status = "Aberto" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Orçamento" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Em Andamento" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Cancelado" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Finalizado" Then
        'vendaliquidocaixa.Value = txtTotalPagar.Value
        'Else
        'End If
       
        Me.Refresh
        End If
        End If
        End If
        End If
        End If
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 6/12/2018, 17:32

    Olá Alonso,

    Estou no celular, mas esses IFs para validar campo talvez seja melhor fechar com exit sub.

    Vou exemplificar para o primeiro IF

    Código:

    If IsNull(Me!CLIENTE) Then
        MsgBox "Preencha o campo CLIENTE!"
        DoCmd.CancelEvent
        CLIENTE.SetFocus
        exit sub
    End if

    Altere e teste

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 6/12/2018, 19:50

    nada ainda Sad
    alterei tudo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 7/12/2018, 14:25

    Olá, teste assim:

    Código:
    Private Sub btnSalvar_Click()
       
        If IsNull(Me!Cliente) Then
            MsgBox "Preencha o campo CLIENTE!"
            DoCmd.CancelEvent
            Cliente.SetFocus
        End If
       
        If IsNull(Me!cbtec) Then
            MsgBox "Preencha o campo MÊCANICO!"
            DoCmd.CancelEvent
            cbtec.SetFocus
        End If
       
        If IsNull(Me!cbplaca) Then
            MsgBox "Preencha o campo PLACA!"
            DoCmd.CancelEvent
            cbplaca.SetFocus
        End If
       
        If IsNull(Me!Status) Then
            MsgBox "Preencha o campo STATUS!"
            DoCmd.CancelEvent
            Status.SetFocus
        End If
       
        If IsNull(Me!DATA_SERVICO) Then
            MsgBox "Preencha o campo DATA ENTRADA!"
            DoCmd.CancelEvent
            DATA_SERVICO.SetFocus
        End If

       
        Cliente.Enabled = False
        cbtec.Enabled = False
        cbplaca.Enabled = False
        cbveiculo.Enabled = False
        Status.Enabled = False
        DATA_SERVICO.Enabled = False
        DATA_SAIDA.Enabled = False
        PROBLEMA.Enabled = False
        OBRA.Enabled = False
        Obs.Enabled = False
        Anexo.Enabled = False
        FRM_SERVICOS_SUB.Enabled = False
        txtTotalProdutos.Enabled = False
        'TOTAL_OBRA.Enabled = False
        Desconto.Enabled = False
        'cbpgto.Enabled = False
        txtTotalPagar.Enabled = False
        btnpgto.Enabled = False
       
        btnapagar.Enabled = True
        btnEditar.Enabled = True
        btnNovo.Enabled = True
        btnSalvar.Enabled = False
        btnLocalizar.Enabled = True
        btnImprimir.Enabled = True

        'TOTAL_LIQUIDO.Value = txtTotalPagar.Value
       
        txtTotalPagar = Nz([txtTotalProdutos]) - Nz([Desconto])
        DoEvents
        TOTAL_LIQUIDO = txtTotalPagar
       
        'If Me.Status = "Faturado" Then
        'vendaliquidocaixa.Value = txtTotalPagar.Value
        'descontocaixa.Value = Desconto.Value
        'vendabrutocaixa.Value = txtTotalProdutos.Value
        'End If
       
        'If Me.Status = "Aberto" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Orçamento" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Em Andamento" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Cancelado" Then
        'vendaliquidocaixa.Value = 0
        'descontocaixa.Value = 0
        'vendabrutocaixa.Value = 0
        'ElseIf Me.Status = "Finalizado" Then
        'vendaliquidocaixa.Value = txtTotalPagar.Value
        'Else
        'End If
       
        Me.Refresh

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 7/12/2018, 15:07

    não deu, fiz o upload dele para analisar, o formulário que estou tentando fazer as alterações é o FRM_SERVICOS

    1drv.ms/u/s!AjHA5Kkr0JYviTHH9f__C-7trOFI
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 7/12/2018, 17:38

    Olá, estou no celular.

    Não deu, ou foi preciso dois clicks?

    Quando estiver com PC verifico.

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 7/12/2018, 18:32

    ainda precisa dar 2 clicks
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 7/12/2018, 20:47

    Alvaro, com sua licença, novamente, e buscando sanar o problema do Alonso..

    No evento "após atualizar" do seu campo desconto, cole
    Código:
    Me!TOTAL_LIQUIDO = Nz(Me!txtTotalProdutos, 0) - Nz(Me!Desconto, 0)
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 7/12/2018, 21:19

    que problema cabeludo...kkkk
    obg IvanJr. pela ajuda, mais ainda não deu certo, preciso apertar 2x no botão salvar para atualizar o campo só está faltando isso pra avançar para etapa final do projeto  Neutral
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 7/12/2018, 22:04

    dropbox.com/s/7rrmbaik7nq4fct/servi%C3%A7os%20v8.zip?dl=1

    Aguardo retorno
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Alvaro Teixeira 8/12/2018, 11:24

    Ola a todos,

    Ivan não é preciso pedir licença, estamos aqui todos em prol do Access.
    E na verdade ainda nem estive com PC para ver.

    Ficamos aguardar retorno do colega Alonso.

    Abraço
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 8/12/2018, 16:41

    olá ivan obg pela ajuda mais na realidade o problema está no campo (total_liquido) ele só atualiza quando eu salvo 2x
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Assis 8/12/2018, 18:02

    Boa noite
    Teste e retorne


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 8/12/2018, 19:06

    Acho que o problema que você está tendo não é o campo que não atualiza, mas sim o fato de você não conseguir inserir informações no subformulário que fica bloqueado enquanto não se clica em "editar". O Assis deixou desbloqueado, se isso não resolver, então não sei o que resolverá.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Assis 8/12/2018, 19:10

    Ivan

    Cheguei a mesma conclusão, e alterei os códigos do botão novo OS com o de editar OS


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 8/12/2018, 19:16

    Perspicácia, meu amigo. (risos)

    Obrigado por contribuir e certamente resolver.
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 9/12/2018, 22:36

    olá a todos, muito obrigado pela ajuda, infelizmente não deu certo também, esse valor do campo "total_liquido" irá ficar salvo em uma tabela para conseguir gerar relatórios a partir dela, acredito que consegui resolver o problema, precisaria saber só de um comando que ao alterar os dados do subformulário no campo "quantidade" ele dê um "enter" para próxima coluna, fazendo isso automaticamente ele atualiza todos os campos e o calculo fica correto no campo "total_liquido", alguém poderia me auxiliar na criação dessa ação em vba ou uma macro para dar o "enter"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 9/12/2018, 22:48

    Amigo, diga exatamente (o passo a passo detalhado de) como você está fazendo e o que você quer que aconteça. Quais botões devem ser clicados, como está acontecendo e o que deveria acontecer. Acho que só assim chegaremos a solução. Pois... Eu abri o arquivo, adicionei informações ao subformulário e o total foi calculado normalmente. Adicionei valor ao desconto e também foi calculado o total líquido "de boa". Salvei e fui na tabela e lá estava o valor correto. Suponho que com o colega Assis também foi assim.
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 10/12/2018, 13:23

    olá ivan, provavelmente é da forma que está fazendo que está dando certo (altera a quantidade, dá um enter depois salva), se vc alterar a quantidade do produto no subformulário e clicar direto em salvar vai ver que o campo total_liquido não vai calcular corretamente, precisa clicar em editar novamente e depois salvar para salvar o calculo correto.

    deste modo pensei em inserir um comando "enter" ao alterar a quantidade, fazendo isso já resolve
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 10/12/2018, 15:32

    Bom, amigo... vamos lá... a última linha do seu botão salvar é
    Código:
    DoCmd.GoToRecord , , acNewRec

    isto é, manda o usuário para um novo registro. Remova está linha pois para um novo registro já existe o botão "Nova OS".

    Só assim o usuário permanecerá no registro atual e poderá conferir o total calculado.
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 10/12/2018, 15:55

    não tem não ivanjr, isso quem colocou foi o assis, dá uma olhada no primeiro arquivo que enviei, não tem esse código nao
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 10/12/2018, 17:37

    Faça os acréscimos abaixo no seu botão salvar. É "tiro e queda".

    Código:
    Private Sub btnSalvar_Click()

        Dim rs As DAO.Recordset
        
        If IsNull(Me!CLIENTE) Then
            MsgBox "Preencha o campo CLIENTE!"
            DoCmd.CancelEvent
            CLIENTE.SetFocus
        End If
        
        ...
        btnImprimir.Enabled = True
        
        Set rs = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
        If rs.RecordCount > 0 Then
            Me!TOTAL_LIQUIDO.Value = 0
            rs.MoveFirst
            While Not rs.EOF
                Me!TOTAL_LIQUIDO.Value = Me!TOTAL_LIQUIDO.Value + rs!subtotal_venda.Value
                rs.MoveNext
            Wend
        End If
        rs.Close: Set rs = Nothing
        
        TOTAL_LIQUIDO = TOTAL_LIQUIDO - Desconto
        
        'If Me.Status = "Faturado" Then
        ...
        
        Me.Refresh

    End Sub
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 10/12/2018, 17:57

    ivanjr acho que consegui resolver aqui também de uma outra forma, lembra quando falei do enter, oque eu fiz, eu acrescentei esse código no campo "quantidade" na condição ao alterar

    Código:
        DoCmd.GoToRecord , , acNewRec
        ID_PRODUTO.SetFocus

    deu certo também  bounce bounce
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 10/12/2018, 19:13

    Tentou adicionar quantidades de mais de um dígito? 10? 100?
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 10/12/2018, 19:58

    dessa forma não deu certo mesmo, inclui 10 e deu erro, vou seguir o codigo que me passou acima
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 10/12/2018, 20:02

    agora foi!!!!!  cheers

    pode me orientar oque foi feito, essa parte de db, rs, ainda não estudei muito
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 10/12/2018, 20:45

    Graças ao seu passo a passo, pude ver que você estava saindo do campo quantidade "direto" para o botão salvar. Assim o registro que você estava inserindo acabava por não ser registrado uma vez que ainda nem teve a oportunidade de ser salvo para ser calculado. Com isso, ao invés de o botão salvar contar com a boa vontade do valor ser calculado, o comando passa a ser o de "ir buscar o valor pelas orelhas".

    'abrindo uma cópia do conjunto de registros do subformulário na memória do VBA em um objeto chamado "rs", ou melhor
    'crio uma pasta de trabalho para um funcionário fiscal
    Código:
    Set rs = Me!FRM_SERVICOS_SUB.Form.RecordsetClone

    'se esse conjunto de registros contiver registros então, ou melhor
    'se a pasta contiver papéis a serem avaliados então
    Código:
    If rs.RecordCount > 0 Then

    'zera o valor do total líquido para uma nova contagem
    Código:
    Me!TOTAL_LIQUIDO.Value = 0

    'movendo o ponteiro para o primeiro registro, ou melhor
    'dizendo para o fiscal que ele comece do começo
    Código:
    rs.MoveFirst

    'dizendo para o fiscal fazer os comandos mais abaixo enquanto não chegar ao último registro
    Código:
    While Not rs.EOF

    'o total líquido deve ser o que o total líquido já tem mais o subtotal do registro que o fiscal tá olhando
    Código:
    Me!TOTAL_LIQUIDO.Value = Me!TOTAL_LIQUIDO.Value + rs!subtotal_venda.Value
               
    'mudando os olhos do "fiscal" para o próximo registro
    Código:
    rs.MoveNext

    'aqui acaba os comandos que o "fiscal" deve executar enquanto não chegar ao último registro
    Código:
    Wend

    'fim do ponto de condição pra saber se o conjunto de registros tem registro
    Código:
    End If

    'pra evitar que a empresa de "fiscais" tenha funcionários malucos, digo que chegando o fim do expediente então
    'tranquem suas salas
    Código:
    rs.Close

    'e esqueçam o assunto
    Código:
    Set rs = Nothing

    Eu não costumo deixar meus usuários interagirem direto com subformulários que exibam listas, prefiro assim
    [Resolvido]Atualizar campo de um formulário (dúvida simples) 11110
    [Resolvido]Atualizar campo de um formulário (dúvida simples) 22210
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 11/12/2018, 12:14

    ivanjr Deus te abençõe amigo, muito obrigado por se disponibilizar a me ajudar, faz pouco tempo que estou mexendo com access meu conhecimento ainda é pouco, tens alguma indicação de livro ou material em vídeo de preferência que ensina essa parte que me mostrou acima?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 11/12/2018, 13:53

    Um colega do fórum tem um canal no youtube ensinando
    youtu.be/pvxWXjAXhos
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  alozs 12/12/2018, 13:37

    muito obrigado ivanjr pelo canal, já me inscrevi e já estou aprendendo sobre o recordset!

    se tiver outros canais pode mandar tb..rs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  DamascenoJr. 12/12/2018, 14:45

    Mandei diversos em mensagem privada. Confira


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]Atualizar campo de um formulário (dúvida simples) Empty Re: [Resolvido]Atualizar campo de um formulário (dúvida simples)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:35