Talvez isto seja um problema fácil de resolver, mas não sei como:
Eu tenho um formulário baseado numa consulta,
este formulário tem o campo TotalGeral não acoplado com fonte do controle = [SomaMat] + [SomaMO] + [Frete]
desta fórmula os 2 campos de soma é não acoplado e o Frete é acoplado.
O problema é que eu tenho outros que são calculados no evento Após Atualizar.
Dai quando eu clico no botão 'Imprimir' ele vai abrir um relatório.
O problema é que toda vez eu tenho que dar F9 pra atualizar tudo.
Eu sei do comando Me.Requery, mas quando eu aplico este comando no botão 'Imprimir',
se o meu 'Frete' tiver um valor, ele não considera o TotalGeral no primeiro momento,
ou seja, ele lê o Frete e só depois atualiza o campo calculado TotalGeral.
O problema é que eu queria verificar quando que uma pessoa fez 2 ou 3 parcelas do TotalGeral,
ou seja, eu queria conferir se o cara fez parcela1 + parcela2 + parcela3 = TotalGeral.
Eu eu verifico ao clicar no botão 'Imprimir':
Talvez eu tenha complicado muito, mas como eu faço para atualizar constantemente sem precisar pressionar F9?
Eu tenho um formulário baseado numa consulta,
este formulário tem o campo TotalGeral não acoplado com fonte do controle = [SomaMat] + [SomaMO] + [Frete]
desta fórmula os 2 campos de soma é não acoplado e o Frete é acoplado.
O problema é que eu tenho outros que são calculados no evento Após Atualizar.
Dai quando eu clico no botão 'Imprimir' ele vai abrir um relatório.
O problema é que toda vez eu tenho que dar F9 pra atualizar tudo.
Eu sei do comando Me.Requery, mas quando eu aplico este comando no botão 'Imprimir',
se o meu 'Frete' tiver um valor, ele não considera o TotalGeral no primeiro momento,
ou seja, ele lê o Frete e só depois atualiza o campo calculado TotalGeral.
O problema é que eu queria verificar quando que uma pessoa fez 2 ou 3 parcelas do TotalGeral,
ou seja, eu queria conferir se o cara fez parcela1 + parcela2 + parcela3 = TotalGeral.
Eu eu verifico ao clicar no botão 'Imprimir':
- Código:
Private Sub btnImprimir_Click()
If parcela1 + parcela2 + parcela3 <> TotalGeral Then
MsgBox "A soma das parcelas está diferente do total."
Exit Sub
End If
End Sub
Talvez eu tenha complicado muito, mas como eu faço para atualizar constantemente sem precisar pressionar F9?