Soma de campos

[GNormandes]

Bom dia amigos,

Estou ficando louco de raiva com a maldita função de soma do VBA para excel, pois criei um form para digitar os dados de uma compra, mas não consigo fazer a soma de todos os totais parciais.

Meu código é:

***********

Private Sub QTD1_PED_AfterUpdate()

If Me.LOTE1_PED <> Null Or Me.LOTE1_PED <> Empty And Me.PRECO1_PED <> Null Or Me.PRECO1_PED <> Empty Then

Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00")

End If

End Sub

Private Sub LOTE1_PED_AfterUpdate()

If Me.QTD1_PED <> Null Or Me.QTD1_PED <> Empty And Me.PRECO1_PED <> Null Or Me.PRECO1_PED <> Empty Then

Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00")

End If

End Sub

Private Sub PRECO1_PED_AfterUpdate()

Me.PRECO1_PED = Format(Me.PRECO1_PED, "#,##0.00")

If Me.QTD1_PED <> Null Or Me.QTD1_PED <> Empty And Me.LOTE1_PED <> Null Or Me.LOTE1_PED <> Empty Then

Me.TOTALP1_PED = Format(CDbl(CDbl(Me.QTD1_PED) * CDbl(Me.LOTE1_PED) * CDbl(Me.PRECO1_PED)), "#,##0.00")

End If

End Sub

Private Sub QTD2_PED_AfterUpdate()

If Me.LOTE2_PED <> Null Or Me.LOTE2_PED <> Empty And Me.PRECO2_PED <> Null Or Me.PRECO2_PED <> Empty Then

Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00")

End If

End Sub

Private Sub LOTE2_PED_AfterUpdate()

If Me.QTD2_PED <> Null Or Me.QTD2_PED <> Empty And Me.PRECO2_PED <> Null Or Me.PRECO2_PED <> Empty Then

Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00")

End If

End Sub

Private Sub PRECO2_PED_AfterUpdate()

Me.PRECO2_PED = Format(Me.PRECO2_PED, "#,##0.00")

If Me.QTD2_PED <> Null Or Me.QTD2_PED <> Empty And Me.LOTE2_PED <> Null Or Me.LOTE2_PED <> Empty Then

Me.TOTALP2_PED = Format(CDbl(CDbl(Me.QTD2_PED) * CDbl(Me.LOTE2_PED) * CDbl(Me.PRECO2_PED)), "#,##0.00")

End If

End Sub

Private Sub TOTALP1_PED_AfterUpdate()

If Me.TOTALP1_PED <> Null Or Empty And Me.TOTALP2_PED <> Null Or Empty Then

Me.TOTALG_PED = Format(CDbl(CDbl(Me.TOTALP1_PED) + CDbl(Me.TOTALP2_PED)), "#,##0.00")

End If

End Sub

Private Sub TOTALP2_PED_AfterUpdate()

If Me.TOTALP1_PED <> Null Or Empty And Me.TOTALP2_PED <> Null Or Empty Then

Me.TOTALG_PED = Format(CDbl(CDbl(Me.TOTALP1_PED) + CDbl(Me.TOTALP2_PED)), "#,##0.00")

End If

End Sub

***********

Pelo amor de Deus, alguém me informe também o que é o maldito "erro 13" que essa a mensagem apresentada.

Agradeço antecipadamente pelas respostas!

[kuroi]

pelo numero não sei. qual a mensagem do erro 13??

e em qual linha acontece??