[Resolvido]SOMA textbox não aclopado.

amigos

Tenho formulário conde tem vários textbox (não aclopado)
que por sua vez fazem alguns calculos, existe a possibilidade de eu abrir mais um textbox não aclopado para soma total dos textbox no mesmo formulario ??

Sim, você pode criar.


Mas, atente para isso:

Digamos 3 caixa de texto cada uma tem uma somatória ou um calculo qualquer, de outras caixas de textos.

Não descobri o porque,mas as vezes o Access não aceita fazer uma caixa de texto 'total Geral' somando essas 3 caixa de textos.

Então, o que dá pra fazer é pegar a somatória de cada uma e juntar no mesmo controle 'total Geral'.

[ ]'s

certo, mas como faria isso

um afterupdated? ou change? on loaded form?

se eu por on load form. nao da certo, ou talvez algo que ia acompanhando atualização dos textbox

segue um exemplo de código:

esse código abaixo esta sobre um textbox que apos atualizar ele faz os cálculos, teria alguma suposição?

Código:

Private Sub vlr1_AfterUpdate()
If IsNull(Me.vlr1) Then
Me.vlr1 = Empty
Else

Me.result1.Value = [vlr1] / [coef1]
End If
If Me.result1 >= "1,0" Then
Me.result1.BackColor = vbRed
Me.result1.ForeColor = vbBlack
Else
Me.result1.BackColor = vbWhite
Me.result1.ForeColor = vbBlack

End If

Me.INDREAJ1.Value = Me.coef1 / Me.vlr1 - 1

If Me.INDREAJ1 < 0 Then
Me.INDREAJ1.ForeColor = vbRed
Me.INDREAJ1.FontBold = True
ElseIf Me.INDREAJ1 = 0 Then
Me.INDREAJ1.ForeColor = vbBlack
Else
Me.INDREAJ1.ForeColor = vbGreen
Me.INDREAJ1.FontBold = False
End If

Me.VlrReaju1.Value = Me.consulAMB * Me.INDREAJ1

If Me.INDREAJ1 < 0 Then
Me.VlrReaju1.ForeColor = vbRed
Me.VlrReaju1.FontBold = True
ElseIf Me.VlrReaju1 = 0 Then
Me.VlrReaju1.ForeColor = vbBlack
Else
Me.VlrReaju1.ForeColor = vbGreen
Me.VlrReaju1.FontBold = False
End If
End Sub

Entenda

Tem caixas de texto desacopladas então

dentro delas ou no  fonte do Controle por exemplo (result1) na folha de propriedades, escreva

= [vlr1] / [coef1]

Então, dentro do controle no formulário no modo designer, irá exibir ao invés de Desacoplado, o cálculo.

Agora, defina a valor padrão dos controles desacoplados que terão valores de calculos para 0, porque

se em algum deles for nulo, dará erro no cálculo.

[ ]'s

Bom dia,

Se me permitem uma ideia. Voce pode cirar a função que faz a soma dos text box. Algo do tipo:

Código:

Sub somaCampos
    txtTotalGeral = txt1 + txt2 + txt3 + ...
End sub

No afterupdate de cada campo que compoe a soma, voce põe a verificação de número e nulo, para não dar erro na soma, e chama a função. Por exemplo, no afterupdate do txt1:

Código:

if isnumeric(txt1) = false or isnull(txt1) = true then txt1 = 0

Call somaCampos

Repita isso em cada campo que compõe a soma.

Abraço.

@Noobezinho
@CassioFabre

queria agradecer vcs, me deram outra ideia.

qual foi o tipo de resolução ?

fiz exatamente do jeito que noobzinho falou

o que eu fiz?

fiz na fonte de controle

[vlr3] + [vlr4] etc...

e abaixo é codigo que usei pra fazer fonte de controle funcionar...
como são todos desaclopados só funciona se a string estiver = 0 nos textbox. fica dica

Código:

If Me.vlr3 = 0 Then
Me.INDREAJ3 = 0
Me.VlrReaju3 = 0
Exit Sub
Else
Me.INDREAJ3.Value = Me.coeF3 / Me.vlr3 - 1

abraços

RESOLVIDO

Opa, Cassio !

Que bom que ajudei!

Valeu pelo retorno!

Boa sorte !