[Resolvido]Function SomaListBox() - unindo duas lstbox na mesma função....

Prezados boa tarde a todos.

Pegando carona na função de somar listbox feita pelo Jpaulo para uma listbox, estou tentando fazer a mesma função somar duas listbox.
Porém encontro um erro no Next I.

A função que eu estou a desenvolver está abaixo.


Function SomaListBox() As Variant
'By JPaulo ® Maximo Access
'aqui soma as entradas e saidas do dia
Dim I, A As Integer
Dim J, B As Integer
Dim ctl As Control
Dim Ctla As Control

Set ctl = Me.LstEntrada ' coloque aqui o nome da listbox de entradas
Set Ctla = Me.Lstsaida ' coloque aqui o nome da listbox de saídas
J = ctl.ListCount - 1
B = Ctla.ListCount - 1

SomaListBox = 0

For I = 0 To J
For A = 0 To B

SomaListBox = SomaListBox + ctl.Column(4, I) ' alterar o numero da coluna onde vai ser somado
SomaListBox = SomaListBox + Ctla.Column(4, A)

Next I ' ocorre o erro aqui. " referência inválida a variavel de controle Next"
'Next A
SomaListBox = Format(SomaListBox, "currency")

Me.txtresultado = SomaListBox 'txt desacoplada onde mostra o resultado da soma de entradas
Me.txtres = SomaListBox 'txt desacoplada onde mostra o resultado da soma de saídas

End Function

Agradeço a todos desde já pela elucidação desse caso !

Silvio
Inverta a posição de um dos nexts

For I = 0 To J
    For A = 0 To B

         SomaListBox = SomaListBox + ctl.Column(4, I) ' alterar o numero da coluna onde vai ser somado
         SomaListBox = SomaListBox + Ctla.Column(4, A)

    Next A ' ocorre o erro aqui. " referência inválida a variavel de controle Next"
Next I ----> Veja que no teu exemplo tem um aspas simples antes do next A

[ ]'s

Noob

Grande Noob, deu erro.

Se eu inverter, ele soma a saída e não a entrada, mostrando o resultado nas duas caixas de textos

Com relação as aspas simples, eu estava apenas comentando a linha para ver o erro (Next I ----> Veja que no teu exemplo tem um aspas simples antes do next A)

Ainda dando erro....que triste isso.

Código:


Function SomaListBox() As Variant
'By JPaulo ® Maximo Access

Dim I, A As Integer
Dim J, B As Integer
Dim ctl As Control
Dim Ctla As Control

Set ctl = Me.LstEntrada
Set Ctla = Me.Lstsaida



J = ctl.ListCount - 1
B = Ctla.ListCount - 1
SomaListBox = 0
For A = 0 To B
For I = 0 To J

SomaListBox = SomaListBox + ctl.Column(4, A) ' alterar o numero da coluna onde vai ser somado
SomaListBox = SomaListBox + Ctla.Column(4, I)

Next A  '--> aqui esta dando erro novamente.
Next I
SomaListBox = Format(SomaListBox, "currency")

Me.txtresultado = SomaListBox 'txt desacoplada onde mostra o resultado da soma de entradas
Me.txtres = SomaListBox        'txt desacoplada onde mostra o resultado da soma de saídas

End Function

Silvio

Pode anexar as tabelas e forms em questão?


Noob

Então Noob, pensei um pouco mais aqui e resolvi fazer diferente.

Bom, no evento ao perder o foco da minha caixa de texto, chamo as duas funções:
Call SomaListBox = aqui chamo a soma da lstentrada
Call SomaSaida = aqui chamo a soma da lstsaida

chamando a SomalistBox

Código:

Function SomaListBox() As Variant
Dim I, J As Integer
Dim ctl As Control
Set ctl = Me.LstEntrada 'I e J
J = ctl.ListCount - 1 'lstentrada
SomaListBox = 0
For I = 0 To J 'entrada
 SomaListBox = SomaListBox + ctl.Column(4, A) 'lstentrada
Next I
SomaListBox = Format(SomaListBox, "currency")
Me.txtresultado = SomaListBox 'txt desacoplada onde mostra o resultado da soma de entradas
End Function

e chamando a SomaSaida

Código:

Function SomaSaida() As Variant

Dim A, B As Integer
Dim Ctla As Control

Set Ctla = Me.Lstsaida
B = Ctla.ListCount - 1
SomaSaida = 0
For A = 0 To B 'saida
SomaSaida = SomaSaida + Ctla.Column(4, A) 'lstsaida
Next A
SomaSaida = Format(SomaSaida, "currency")

Me.txtres = SomaSaida 'txt desacoplada onde mostra o resultado da soma de saídas
End Function


Assim pelo menos não tenho tanta dor de cabeça para unir as duas em um único código....

O que você acha ?

Silvio

Experimente assim:

Function SomaListBox() As Currency
Dim I, J As Integer
Dim ctl As Control
Set ctl = Me.LstEntrada 'I e J
J = ctl.ListCount - 1 'lstentrada
SomaListBox = 0
For I = 0 To J 'entrada
        SomaListBox = SomaListBox + ctl.Column(4, A) 'lstentrada
Next I
SomaListBox = Format(SomaListBox, "currency")
'Me.txtresultado = SomaListBox 'txt desacoplada onde mostra o resultado da soma de entradas
End Function

Veja quando uma função tem o As "blablabla" ele retorna algo, no teu caso é Currency ou seja moeda.

continuando...

Function SomaSaida() As Currency

Dim A, B As Integer
Dim Ctla As Control

Set Ctla = Me.Lstsaida
B = Ctla.ListCount - 1
SomaSaida = 0
For A = 0 To B 'saida
SomaSaida = SomaSaida + Ctla.Column(4, A) 'lstsaida
Next A
SomaSaida = Format(SomaSaida, "currency")

'Me.txtres = SomaSaida 'txt desacoplada onde mostra o resultado da soma de saídas
End Function

Com isso , tens cada resultado em cada função.
Então pode:

Nomear duas variáveis 1 de entradas outra de saida:

E = SomaListBox
S = SomaSaida
Me.txtresultado = E-S

ou Somar as duas função numa textbox,

e ainda

O colocar as funções uma em cada textbox e
uma outra pra somar as duas

Experimente

Noob

Perfeito, fiz aqui os testes e dos dois modos funcionam.

Agora é apenas a questão de escolher o qual.

Abraços Noob.

Ótimo Silvio

Boa sorte !!


Noob