Bom Noite. Referênte à programação abaixo tenho a soma correta. A subtração não subtrai, mas soma dando o resultado na negativa. A multiplcação dá erro 6 overflow (no baco da dados são 8 dezenas somente). Com isso já me perco na divisão que nem fiz ainda. Alquém pode me ajudar a identificar os erros.

Muito obrigado


Option Explicit
Dim Areadados As Database
Dim Lista As Recordset
Dim soma, subtracao, multiplicacao As Integer
Dim divisao As Currency
Dim total As Currency

Public Sub Abrir_Bancodados()
Set Areadados = DBEngine.Workspaces(0).OpenDatabase(App.Path & "MSF.mdb")
Set Lista = Areadados.OpenRecordset("Lista", dbOpenTable)
Lista.Index = "PrimaryKey"
End Sub


Private Sub cmdokmultiplicao_Click()
Call Abrir_Bancodados
multiplicacao = 0
While Not Lista.EOF
total = total * Lista("numeros")
Lista.MoveNext
Wend
Lbrespostac.Caption = total
End Sub

Private Sub cmdoksoma_Click()
Call Abrir_Bancodados
soma = 0
While Not Lista.EOF
total = total + Lista("numeros")
Lista.MoveNext
Wend
LbrespostaA.Caption = total
End Sub

Private Sub cmdoksubtracao_Click()
        Call Abrir_Bancodados
        subtracao = 0
    While Not Lista.EOF
        total = total - Lista("numeros")
        Lista.MoveNext
    Wend
    LbrespostaB.Caption = total
          
End Sub

Olá Kayowa, bom dia.

 

Aparentemente são erros simples e distintos:

 

1 - Na Sub cmdokmultiplicao_Click() você inicializa a variável "multiplicacao" com zero mas não a utiliza, pelo contrário você está utilizando a variável "total" que a cada loop na sua lista, agrega a multiplicação do campo "numeros". Isto está gerando um resultado exponencial que está excedendo o limite que a memória suporta.

2 - Na Sub cmdoksoma_Click() você inicializa a variável "soma" com zero mas não a utiliza, pelo contrário você está utilizando a variável "total" que a cada loop na sua lista, agrega a soma do campo "numeros". Você obtem o resultado esperado por que é exatamente isso que a rotina está fazendo. Acumulando valores numa variável.

 

3 - Na Sub cmdoksubtracao_Click() você inicializa a variável "subtracao" com zero mas não a utiliza, pelo contrário você está utilizando a variável "total" que a cada loop na sua lista, subtrai o valor do campo "numeros". Como a variavel "Total" começa com zero, você obtem o resultado negativo por que é exatamente isso que a rotina está fazendo. Acumulando valores numa variável com o sinal negativo.

 

Minha sugestão é que você reveja suas fórmulas.

 

Espero ter colaborado.

 

Boa sorte!

Muito obrigado em responderem. Comecei a pouco tempo, três meses, num curso de VB e logo de cara tive esse  exercício de casa para fazer e estou tentando resolver para entregar esta semana. Estou ainda com muita dúvida e só vou estar com o professor, na seg, e não poderi tirar as dúvidas. Novamente agradeço.