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

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

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

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

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

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

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

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

nada ainda
alterei tudo

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

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

Olá, estou no celular.

Não deu, ou foi preciso dois clicks?

Quando estiver com PC verifico.

Abraço

ainda precisa dar 2 clicks

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)

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 

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

Aguardo retorno

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

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

Boa noite
Teste e retorne

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á.

Ivan

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

Perspicácia, meu amigo. (risos)

Obrigado por contribuir e certamente resolver.

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"

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.

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

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.

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

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

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 

Tentou adicionar quantidades de mais de um dígito? 10? 100?

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

agora foi!!!!! 

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

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

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?

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

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

se tiver outros canais pode mandar tb..rs

Mandei diversos em mensagem privada. Confira