[Resolvido]Somar textbox e totaliza no label

Olá, tenho um controle guia com 6 abas com textboxs que recebem valores inteiros (1,5,10,365,366). Os campos das abas 2 a 5 se referem a um tipo de avaliação (pontuação) e cada aba deve ser totalizada. Na última aba aparece 4 labels com a soma de cada aba e um 5° label com o total geral. No Access como se soma valores dos textbox e exibe o total nos labels???

O que eu estava tentando era o seguinte, mas não dá certo:

Sub SomaCapacitacao()
Me.lblTotalCapacitacao.Caption = CInt(txtCurso.Value) + CInt(txtEnsinoMedio.Value) + CInt(txtTecnico.Value) + CInt(txtGraduacao.Value) + CInt(txtPosGraduacao.Value) + CInt(txtMestrado.Text) + CInt(txtDoutorado.Text)
End Sub

Esse também não:

Sub SomaTodos()
lblTotalGeral.Caption = Nz(lblTotalAssiduidade.Caption, 0) + Nz(lblTotalDisciplina.Caption, 0) + Nz(lblTotalEficiencia.Caption, 0) + Nz(lblTotalCapacitacao.Caption, 0)
End Sub

ALAN

Por que as vezes você usa value e as vezes text? Neste caso acho melhor usar senpre o caption.

Olhando rapidamente não vi erro nos códigos. Em que momento vocÊ chama SomaCapacitacao?

Faça o teste por favor;

Código:

Sub SomaCapacitacao()
Dim intSoma%
intSoma = 0
    intSoma = Val(Me.txtCurso.Value) + Val(Me.txtEnsinoMedio.Value)
    intSoma = intSoma + Val(Me.txtTecnico.Value) + Val(Me.txtGraduacao.Value)
    intSoma = intSoma + Val(Me.txtPosGraduacao.Value) + Val(Me.txtMestrado.Value)
    intSoma = intSoma + Val(Me.txtDoutorado.Value)
    Me.lblTotalCapacitacao.Caption = Val(Nz(intSoma, 0))
End Sub

O mesmo se aplica ao totalizador;

Código:

Sub SomaTodos()
Dim intSoma%
intSoma = 0
    intSoma = Val(Me.lblTotalAssiduidade.Caption) + Val(Me.lblTotalDisciplina.Caption)
    intSoma = intSoma + Val(Me.lblTotalEficiencia.Caption) + Val(Me.lblTotalCapacitacao.Caption)
    Me.lblTotalGeral.Caption = Val(Nz(intSoma, 0))
End Sub

Bom dia,

Crie a sub:

Código:

Sub soma()
    Dim c As Integer
   
    c = CInt(Nz(txt1, 0)) + CInt(Nz(txt2, 0))
   
    Me.lblSoma.Caption = c
End Sub

E no evento após atualizar de cada caixa de texto, chame-a:

Código:

Private Sub txt1_AfterUpdate()
    Call soma
End Sub

Abraço.

CassioFabre a maneira que enviaste deu certo. Também faltava pra mim chamar todas as somas, pois a execução destas somas são feita por um botão em outro form. Mas agora me dei conta e deu certo juntamente com a SomaTodos do JPaulo. Obrigado a todos e ficou assim:

No botão do primeiro Form (Form_frmBoletim3):

Form_frmBoletim2.SomaCapacitacao
Form_frmBoletim2.SomaAssiduidade
Form_frmBoletim2.SomaDisciplina
Form_frmBoletim2.SomaEficiencia
Form_frmBoletim2.SomaTodos

No Form_frmBoletim2:

Sub SomaCapacitacao()

Dim c As Integer

c = CInt(Nz(txtCurso, 0)) + CInt(Nz(txtEnsinoMedio, 0)) + CInt(Nz(txtTecnico, 0)) + CInt(Nz(txtGraduacao, 0)) + CInt(Nz(txtPosGraduacao, 0)) + CInt(Nz(txtMestrado, 0)) + CInt(Nz(txtDoutorado, 0))

Me.lblTotalCapacitacao.Caption = c

'Lembrando como falado acima colocar "Call SomaCapacitacao" no evento AposAtualizar em todos campos envolvidos na soma

End Sub

Sub SomaTodos()
Dim intSoma%

intSoma = 0
intSoma = Val(Me.lblTotalAssiduidade.Caption) + Val(Me.lblTotalDisciplina.Caption)
intSoma = intSoma + Val(Me.lblTotalEficiencia.Caption) + Val(Me.lblTotalCapacitacao.Caption)
Me.lblTotalGeral.Caption = Val(Nz(intSoma, 0))

End Sub

Alan