[Resolvido]Adaptação no exemplo de: Filtro em listBox para vários campos, selecionando registro ao digitar

Piloto
Neste seu exemplo se tiver uma coluna (5) com valores monetários, como filtar os mesmos, tentei usar esta formula mas sem exito

Private Sub Form_Current()
Dim I, Soma As Double

Soma = 0
For I = 0 To lst_1.ListCount - 1
If Val(lst_1.Column(5, I)) > 0 Then Soma = Soma + Val(lst_1.Column(5, I))
Next
TxtValor = Soma
End Sub

Obrigado

Boas Assis.. acrescentou o campo na sql já?


Podes utilizar o seguinte código:


Function SomaColuna(obj As control, iCol As Integer) As Double
Dim OldCol As Integer
Dim vTotal As Double
OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For X = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(X)
Next
    obj.BoundColumn = OldCol
    SomaColuna = vTotal
End Function


Na caixa texto pode colocar:
=SomaColuna(SuaListBox,x)

onde x = a coluna a ser somada

Cumprimentos.

For X = 0 To obj.ListCount - 1

erro no X

Declare o x na função

Dim X as integer

Function SomaColuna(obj As control, iCol As Integer) As Double
Dim OldCol As Integer
Dim vTotal As Double
Dim X As Integer
OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For X = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(X)
Next
obj.BoundColumn = OldCol
SomaColuna = vTotal
End Function


Retorna

#Erro

Vou fazer um exemplo baseado neste meu e te envio.

Cumprimentos.

Eis... veja a função e chamo ela no final da função AplicaFiltro.

Cumprimentos.

Obrigado Piloto

O outro exemplo ?

Ow assis... estou devendo solução a 3 tópicos do fórum.. Este fiz agora porque é mais simples.. os outros levam mais tempo... e tenho um comprimisso com o principal sistema meu, o Syspen, que estou atualizando...
Estou até evitando responder a novos topicos nesses últimos dias...

Devo terminar amanha.. assim que terminar vejo isso pode ser?


Cumprimentos.

Piloto
Estou atentar com um campo data mas dá erro
Formato da Data é 01/09/2013

Alguma coisa diferente aqui:
strSql = strSql & "Data Like '*" & Me.txt_Data.text & "*'"

Datas é entre cerquila #

strSql = strSql & "Data Like '*#" & Me.txt_Data.text & "#'"

Tente assim

Cumprimentos.

Boa noite Piloto

strSql = strSql & "Data Like '*#" & Me.txt_Data.text & "#'"

Vermelho está a mais não ?

Manda ai para mim Assis.

Cumprimentos.

Amigo Piloto

Esse já resolvi. Queria ajuda era neste

http://maximoaccess.forumeiros.com/t14473-bd-filtrar-saldo-por-conta
Obrigado

Poste então a solução para que demais usuários possam se beneficiar da mesma... se possível poste o exemplo com o campo data.

Quanto ao outro tópico, peço perdão... estou terminando um serviço particular... Tenho dois tópicos atrsados no fórum, este teu e um outro.

Me faz um favor.. amanha por volta das 11:00 horario brasilia.. envie-me MP e me lembre que farei este amanha pra ti ok?


Cumprimentos.