[Resolvidos]Formulário x Referência Cruzada

Boa noite a todos,

Através do código abaixo, tenho dinâmicamente no formulário (que é vinculado a uma consulta Tabela de Referência Cruzada) os dados que preciso (despesas dos últimos 06 meses):

Private Sub Form_Load()
Dim rs As DAO.Recordset, I As Integer
Set rs = Me.RecordsetClone
With rs
For I = 0 To .Fields.Count - 1
Me("Txt" & I).ControlSource = .Fields(I).Name
Me("Lbl" & I).Caption = .Fields(I).Name
Me("Txt" & I).Visible = True
Me("Lbl" & I).Visible = True
Next I
End With
rs.Close 'Libera recursos.
Set rs = Nothing
End Sub

Estou tentando colocar um total para os valores no rodapé do formulário, más não estou conseguindo (conforme imagem abaixo):



Só consigo o total da soma (usando a função DSoma), más não estou conseguindo o total do título de coluna.

A consulta é essa:

TRANSFORM Sum(QryDespesas.ValorDespesa) AS SomaDeValorDespesa
SELECT QryDespesas.TipoDespesa AS [Tipo de Despesa], Sum(QryDespesas.ValorDespesa) AS Total
FROM QryDespesas
GROUP BY QryDespesas.TipoDespesa
ORDER BY QryDespesas.MesAno
PIVOT QryDespesas.MesAno;

Qualquer orientação eu agradeço.

Nivaldo.

Ola Nivaldo bom dia;

Nessa imagem eu vejo um total de 17.776,35 quando a soma dessa coluna dá 11.941,72

Alguma coisa não está bem, até porque não é facil efectuar soma de campos calculados, com fórmulas ou até vindos por código.

Agradeço que se quiser, coloque o seu banco ou parte dele num site publico para vermos e ajudar-mos a solucionar o seu problema.

Bom dia JPaulo,

A soma a que você se refere está correta. O formulário é do tipo contínuo e na imagem não aparece todos os valores.

Segue o link do banco para análise:

http://www.speedyshare.com/files/20587051/DespesasTeste.rar

O nome do formulário em questão é o"FormDespSemestre".

Nivaldo.

Bom dia a todos,

Não sei se é o correto, más resolví meu problema da seguinte forma:

Fiz uma consulta (baseada na referência cruzada) resumindo os totais.
Fiz um formulário baseado nessa nova consulta e coloquei ele como subformlário no rodapé do formulário "FormDespSemestre".

Vou testar fazendo lançamentos com a data do pc alterada e depois retorno.

NIvaldo.

Ola Nivaldo bom dia e desculpe a demora.

Eu fiz em código, veja se gosta.
O código é chamado no evento ao carregar do form.

Public Sub MostraSoma()
'By JPaulo MaximoAccess
'Para Nivaldo
Dim i As Integer, strTotal, strSoma, strSoma1, strSoma2, strSoma3, strSoma4, strSoma5, strSoma6 As Double

Me.RecordsetClone.MoveFirst
strTotal = 0
strSoma = 0
strSoma1 = 0
strSoma2 = 0
strSoma3 = 0
strSoma4 = 0
strSoma5 = 0
strSoma6 = 0

For i = 1 To Me.RecordsetClone.RecordCount - 1
strTotal = strTotal + Nz(Me.RecordsetClone.Fields(1), 0) ' percorre a segunda coluna
strSoma = strSoma + Nz(Me.RecordsetClone.Fields(2), 0) 'percorre a terceira coluna
strSoma1 = strSoma1 + Nz(Me.RecordsetClone.Fields(3), 0) 'percorre a quarta coluna
strSoma2 = strSoma2 + Nz(Me.RecordsetClone.Fields(4), 0) 'percorre a quinta coluna
strSoma3 = strSoma3 + Nz(Me.RecordsetClone.Fields(5), 0) 'percorre a sexta coluna
strSoma4 = strSoma4 + Nz(Me.RecordsetClone.Fields(6), 0) 'percorre a setima coluna
strSoma5 = strSoma5 + Nz(Me.RecordsetClone.Fields(7), 0) 'percorre a oitava coluna
strSoma6 = strSoma6 + Nz(Me.RecordsetClone.Fields(8 ), 0) 'percorre a nona coluna

Me.RecordsetClone.MoveNext
Next
Texto18.Value = strTotal
txtA.Value = strSoma
txtB.Value = strSoma1
txtC.Value = strSoma2
txtD.Value = strSoma3
txtE.Value = strSoma4
txtF.Value = strSoma5
txtG.Value = strSoma6

End Sub

http://dl.dropbox.com/u/771097/DespesasTeste_II.rar

Olá JPaulo,

Não há do que se desculpar.

Sua solução caiu como uma luva, perfeito. Minha idéia do subformulário só serve dentro do mês corrente. No mês seguinte, já daria erro.

Mais uma vez o meu muito obrigado. Não só pela solução do problema, más PRINCIPALMENTE pela sua boa vontade.

Nivaldo.

Boa noite,

JPaulo, verifiquei a soma e ví que está somando somente até a linha nº 9 de todas as colunas.

Já tentei no evento AO ABRIR, más continua a mesma soma.

Vou tentar entender a instrução For ... Next.

Nivaldo.

Bom Dia Nivaldo.

Tem razão não está a somar até ao final.

No evento Open como você referiu, não pode ser porque nessa altura ainda o form não está populado, terá mesmo de ser onde está.

Vou rever o código e depois dou noticias.

Ola Nivaldo boa tarde!

Alterei o código para ficar mais pequeno e usual.

Nota importante:

Trantando-se de um formulario continuo, todos os campos têm de estar visiveis, ou seja, o
formulario não pode estar como estava inicialmente, para se ver os ultimos campos teriamos de puxar a barra lateral.

Public Sub MostraSoma()
'By JPaulo MaximoAccess
'Para Nivaldo
Dim yColuna As Integer, xCampo As Long, i As Integer, strSoma() As Double

Me.RecordsetClone.MoveFirst

ReDim strSoma(1 To 8 )
For yColuna = 1 To Me.RecordsetClone.RecordCount
For xCampo = 1 To 8
strSoma(xCampo) = strSoma(xCampo) + Nz(Me.RecordsetClone.Fields(xCampo), 0)
Next
Me.RecordsetClone.MoveNext
Next

For i = 1 To 8
Me.Controls("txtTotal" & i).Value = strSoma(i)
Next
End Sub

http://dl.dropbox.com/u/771097/DespesasTeste_III.rar

Bom final de semana

Boa noite,

JPaulo, funcionou beleza. Obrigado mais uma vez.

Muita paz e saúde.

Nivaldo.