MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 6/12/2018, 19:50

    nada ainda Sad
    alterei tudo
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 7/12/2018, 18:32

    ainda precisa dar 2 clicks
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 7/12/2018, 22:04

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

    Aguardo retorno
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6181
    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  ahteixeira em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3875
    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 em 8/12/2018, 18:02

    Boa noite
    Teste e retorne
    Anexos
    [Resolvido]Atualizar campo de um formulário (dúvida simples) Attachmentserviços v8 Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 16 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3875
    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 em 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 ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 8/12/2018, 19:16

    Perspicácia, meu amigo. (risos)

    Obrigado por contribuir e certamente resolver.
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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"
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 10/12/2018, 19:13

    Tentou adicionar quantidades de mais de um dígito? 10? 100?
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 10/12/2018, 20:02

    agora foi!!!!!  cheers

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 11/12/2018, 13:53

    Um colega do fórum tem um canal no youtube ensinando
    youtu.be/pvxWXjAXhos
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    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 em 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 674
    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  IvanJr. em 12/12/2018, 14:45

    Mandei diversos em mensagem privada. Confira


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.

    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: 23/7/2019, 06:32