[Resolvido]Controlo de custos

Vivam!

Tenho uma pequena aplicação para simulação e controle de custos.

Em subformulários tenho as parcelas de despesa de diversas rubricas (A, B e C).

No formulário principal tenho caixas de texto com o somatório das despesas por cada rubrica e noutras caixas de textos tenho os valores máximos estabelecidos para a respetiva rubrica.

Tenho no formulário principal:

Private Sub Form_Current()

If Me.SomatórioRubricaA > Me.MaxEstabRubricaA Then
DoCmd.Beep
DoCmd.OpenForm "F_Oops"
End If

Tem isto a finalidade de avisar, quando abre o formulário, se algum somatório das despesas ultrapassa o valor máximo estabelecido em alguma das rubricas.

Pretendo:
Provocar o mesmo efeito que acontece quando abro o formulário principal (resultante do código acima) logo que, quando altero uma despesa, o somatório desta rubrica fique maior que o máximo estabelecido.

Já coloquei o código acima em AfterUpdate das caixas de texto que têm o somatório das despesas da rubrica, em OnChange, em OnEnter, mas não resultou.

Agradeço a vossa ajuda.
Antecipadamente garto.
anvs

Tente ao se referir a caixa texto onde se digita o valor colocar:

Me.CaixaTexto.Text

Cumprimentos.

Obrigado por responder.

Sugere colocar
Me.CaixaTexto.Text
em OnCurrent?

anvs

Voce tem um valor ja existente, ex; Valor A
Vai digitar em uma caixa texto o valor a ser inserido (Valor B) e posteriormente comparado ao valor de A

No envento após atualizar da caixa texto onde se digitará Valor B:

If Me.SuaCaixaTextoValorB.Text > Me.SuaCaixaTextoValorA Then
DoCmd.Beep
Me.SuaCaixaTextoValorB= ""
DoCmd.OpenForm "F_Oops"
End If

Cumprimentos.

Obrigado.

Não devolve qualquer erro mas, de facto, alterando os valores para além do limite máximo estabelecido, nada acontece.

anvs

Poste um pequeno exemplo tal qual está ai para que possamos ver.

Cumprimentos.

:-)
Pedindo compreensão para a minha ignorância: como faço isso?

anvs

Compacte o seu sistema como zip, logo embaixo de onde se digita a mensagem tem um botão Selecionar Arquivo, clique e selecione o arquivo zip depois clique em enviar dados, depois de anexado, envie a mensagem.

Cumprimentos.

Obrigado.
Aparentemente seguiu.
anvs

Deves colocar o codigo na caixa texto no subform pelo que entendi


Private Sub Valor_AfterUpdate()
Me.Recalc
If Forms!F_SimulDespesas.SomatórioRubricaA > Forms!F_SimulDespesas.MaxEstabRubricaA Then
DoCmd.Beep
DoCmd.OpenForm "F_Oops"
End If
End Sub

Perfeito!

Obrigado pela ajuda.
anvs

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.

O Fórum agradece o Retorno.

Viva!

Eu é que agradeço, e muito!
Obrigado pelo lembrete mas penso ter indicado como resolvido.
Caso me tenha passado, aqui fica com mais um agradecimento.

anvs

O Fórum agradece o retorno.