O procedimento abaixo:
1 - carrega a listbox com a Qrysaldos devidamente filtrada pelo Ano/Mes (strsql)
2 - carrega recordset para a soma dos totais de credito e debitos (Caixas texto ao lado da treeView - Total Entradas e Total Saídas e Saldo em caixa) - strsql1
Function SomaColuna(Optional filtro As String, Optional Ordem As String)
Dim Rs As DAO.Recordset
Dim ValorEntrada, ValorSaida, ValorTotal As Double
Dim db As DAO.Database
Dim strSql, strSQL1
Dim dblCredito As String, dblDebito As String
Dim X As Integer
Me.Lista.RowSource = ""
If Me.txtFiltro <> "" Or IsNull(Me.txtFiltro) = False Then
strSql = "SELECT IdMovimento, NumDoc as Doc, space(3) & dataMovimento As Movimento, tblMovimento.Historico, ValorCredito,ValorDebito, " _
& "Format(DSum(""[Saldo1]"",""QrySaldos"",""[IdMovimento] <="" & [IdMovimento]),""Currency"") AS Saldo, ValorCredito - ValorDebito AS saldo1" _
& " FROM tblMovimento WHERE Format(DataMovimento,'yyyy') = " & Me.txtFiltroAno & " And Format(DataMovimento,'mmmm') = '" & Me.txtFiltro & "'" _
& " ORDER by idMovimento,DataMovimento;"
strSQL1 = "Select idMovimento,space(3) & dataMovimento As Movimento, iif(valorCredito=0,'',format(valorcredito,'standard')) As Crédito, " _
& "iif(valordebito=0,'',format(valorDebito,'standard')) AS Débito FROM tblMovimento WHERE " & filtro & " And Format(DataMovimento,'yyyy') = " & Me.txtFiltroAno & " And Format(DataMovimento,'mmmm') = '" & Me.txtFiltro & "' ORDER BY dataMovimento;"
Me.Lista.RowSource = strSql
Set Rs = CurrentDb.OpenRecordset(strSQL1)
ValorEntrada = 0
ValorSaida = 0
ValorTotal = 0
Do While Not Rs.EOF
dblCredito = Rs!Crédito
dblDebito = Rs!Débito
If dblCredito = "" Then
dblCredito = 0
End If
If dblDebito = "" Then
dblDebito = 0
End If
ValorEntrada = ValorEntrada + CDbl(dblCredito)
ValorSaida = ValorSaida + CDbl(dblDebito)
Rs.MoveNext
Loop
ValorTotal = ValorEntrada - ValorSaida
Me.txtEntradaPer = Nz(Format(ValorEntrada, "Currency"), "0.00")
Me.txtSaidaPer = Nz(Format(ValorSaida, "Currency"), "0.00")
Me.txtSaldoPer = Nz(Format(ValorTotal, "Currency"), "0.00")
Me.txtAviso.Visible = True
End If
For X = 1 To Me.Lista.ListCount
If X = 1 Then Me.txtSaldoAnterior = Me.Lista.Column(6, X)
If X = Me.Lista.ListCount Then
' MsgBox Me.Lista.Column(6, X - 1)
End If
Next X
Me.txtFiltro = Null
Me.txtFiltroAno = Null
Rs.Close
Set Rs = Nothing
End Function
A parte em vermelho popula a caixa texto Saldo Anterior e é obtida através do primeiro registro da listBox
Este procedimento é chamado através do seguinte procedimento da treewView:
'----------------------------
Sub DisplayForm1(i As Integer)
'----------------------------
' for this Treeview I do not want a double-click on a parent node
' to open the applicable marriage form, but pressing the shift key
' should open the marriage form applicable to the parent node. Shift
' or double-click on a child node should open the child's applicable
' baptism form.
Dim strKey As String
Dim strTag As String
Dim StrAno As String
Dim strFilter As String
Dim StrTMP
' get key of selected node
strKey = Me.myTreeView1.SelectedItem.Key
' .. then get node's tag proterty
strTag = Nz(Me.myTreeView1.Nodes(strKey).Tag, "")
' .. then if there is a tag value
If Len(strTag) >= 0 Then
'.. then get the initial letter of node key
Select Case Left(strKey, 1)
' .. and open the the appropriate form filter by tag value
Case "A"
Me.txtFiltroAno = DLookup("Ano", "tblAnos", "IdAno =" & Mid(strKey, 2, 4))
Me.Lista.Requery
Call SomaColuna("idcaixa > 0")
Case "C"
StrAno = DLookup("IdAno", "tblAnosMeses", "IdMes =" & strTag)
Me.txtFiltroAno = DLookup("Ano", "tblAnos", "IdAno =" & StrAno)
Me.txtFiltro = DLookup("Mes", "tblAnosMeses", "IdMes =" & strTag)
Me.Lista.Requery
Call SomaColuna("idcaixa > 0")
'170 Me.txtFiltro = Null
'180 Me.txtFiltroAno = Null
End Select
End If
End Sub
Bem esta é a forma que estou utilizando e que infelimente não me produz o resultado que necessito...
Repito o que necessito você já o compreendeu e citou na sua última mensagem.
Te enviarei o exemplo por Mp visto que ainda não o posso postar aqui.
Agradece pela boa vontade.
Abraços e boa Noite.
Início
![[Resolvido]Adaptação em código de geração de saldo acumulado em tabela temporária Empty](https://2img.net/i/empty.gif)
Convidado 25/7/2013, 07:36
![[Resolvido]Adaptação em código de geração de saldo acumulado em tabela temporária Avelino_Correto](https://dl.dropboxusercontent.com/u/26441349/Avelino_Correto.png)
![[Resolvido]Adaptação em código de geração de saldo acumulado em tabela temporária Avelino_Incorreto](https://dl.dropboxusercontent.com/u/26441349/Avelino_Incorreto.png)
