[Resolvido]Dsoma no subformulario

Boa tarde a todos

Estou tentado fazer o saldo de um conta corrente no subformulario com a função DSOMA
já tentei de varias e de varias nmaieras só dar erro (#erro)

tenho campos na tabela Fluxo Caixa Sub Red

AutoFC (indece)
Credor
Descricao
Entradas_FC
Saidas_FC
Saldo_FC

nome do Sub Formulario
SubFormMov

tentei
=DSoma("[Entradas_FC]-[Saidas_FC]";"Fluxo Caixa Sub Red";"AutoFC:<=parent!form!SubFormMov!AutoFC")
assim
=DSoma("[Entradas_FC]-[Saidas_FC]";"Fluxo Caixa Sub Red";"[AutoFC]<=Formulários!Fluxo Caixa Sub Red!AutoFC")
só da #erro

Agradeço aos que puderem ajudar
Grato
Helder Milhome

Boa tarde,

Porque não tenta através do VBA, no evento ao carregar, abrir...etc.?

Código:


Dim Entradas, Saidas As Integer
Entradas = DSum("[Entradas_FC]","Fluxo Caixa Sub Red";"AutoFC<= & Forms!SeuForm!SeuSubForm!SeuCampoFiltro")
Saidas = DSum("[Saidas_FC]","Fluxo Caixa Sub Red";"AutoFC<= & Forms!SeuForm!SeuSubForm!SeuCampoFiltro")

Forms!SeuForm!SeuSubForm!SuaCaixa = Entradas - Saidas

Bom dia Caio
grato pela ajuda

Resolvi assim dentro do sub formulário em uma caixa de texto

=DSoma("[Entradas_FC]-[Saidas_FC]";"Fluxo Caixa Sub Red";"[AutoFC]<=Formulários!SubFormMov!AutoFC")

agora tentando fazer com um criterio de datas, no subformulario já tenho um creterio

Entre [Formulários]![DialogoMOV]![Data de Inicio] E [Formulários]![DialogoMOV]![Data de Término]

o dsoma não pega entre as data e sim desde o inicio do registro


grato
Helder Milhome

Bom dia,

Teste:

=DSoma("[Entradas_FC]-[Saidas_FC]";"Fluxo Caixa Sub Red";"[AutoFC]>=[Formulários]![DialogoMOV]![Data de Inicio] E <=[Formulários]![DialogoMOV]![Data de Término]")

fiz no evento a carregar
o resultado do Saldo_FC esta zero
já não sei onde estou errando

deu erro aqui tambem
Do While Not RSP.EOF (diz metodo ou modulo não localizado)



Private Sub Form_Load()

Dim DBA As DAO.Database
Dim RSP As DAO.Database
Dim strSQL As String
Dim Acumulado As Integer
Dim Saldo_FC As Integer


'-------------------------------- sql
strSQL = "SELECT [Fluxo Caixa Sub Red].CódigoAutoFC, [Fluxo Caixa Sub Red].AutoFC, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].Grupo_FC, [Fluxo Caixa Sub Red].Credor_FC, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].Descrição_FC, [Fluxo Caixa Sub Red].Filiais, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].Data_FC, [Fluxo Caixa Sub Red].Entradas_FC, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].Saidas_FC, [Fluxo Caixa Sub Red].Documento_FC, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].CódigoDaFilial, Filiais.Filial, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].CodigoCredor, [Fluxo Credor].DescricaoCredor, "
strSQL = strSQL & "[Fluxo Credor].DescricaoCodigo, "
strSQL = strSQL & "[Fluxo Caixa Sub Red].Saldo_FC "
strSQL = strSQL & "FROM ([Fluxo Caixa Sub Red] INNER JOIN Filiais ON "
strSQL = strSQL & "[Fluxo Caixa Sub Red].CódigoDaFilial = Filiais.CódigoDaFilial) "
strSQL = strSQL & "INNER JOIN [Fluxo Credor] ON [Fluxo Caixa Sub Red].CodigoCredor = [Fluxo Credor].CodigoCredor "
strSQL = strSQL & "WHERE ((([Fluxo Caixa Sub Red].Data_FC) Between [Formulários]![DialogoMOV]![Data de Inicio] And [Formulários]![DialogoMOV]![Data de Término])) "
strSQL = strSQL & "ORDER BY [Fluxo Caixa Sub Red].AutoFC;"


Set DBA = CurrentDb
Set RSP = DBA.OpenRecordset(strSQL) ' Cria o recordset


Do While Not RSP.EOF

Acumulado = Acumulado + Entradas_FC - Saidas_FC
Saldo_FC = Acumulado

RSP.MoveNext
Loop
RSP.Close
Set RSP = Nothing



End Sub

Boa tarde

=DSoma("[Entradas_FC]-[Saidas_FC]";"Fluxo Caixa Sub Red";"[AutoFC]>=[Formulários]![DialogoMOV]![Data de Inicio] E <=[Formulários]![DialogoMOV]![Data de Término]")

também da #erro

Vou ficar tentendo até dar certo...

Boa tarde,

Poste seu projeto aqui no fórum com extensão ".ZIP" e me mande por e-mail o arquivo ".ZIP".

Bom dia
o  projeto
2003

caio.fabio91@gmail.com

Boa tarde,

Veja se atende a sua necessidade:

Caio boa tarde

o criterio de dadta deu show

não deu certo as somas

ele só paga o valor que esta na entrada ou saida
entrada saida saldo
20,00 0,00 20,00
25,00 0,00 25,00
0,00 15,00 -15,00
não soma e nem diminui

seria assim tipo conta corrente

entrada saida saldo
20,00 0,00 20,00
25,00 0,00 45,00
0,00 15,00 30,00


grato
Helder Milhome

Bom dia,

Refaça do download e teste

Helder Milhome, boa tarde.

Se foi solucionado, favor atualizar o tópico como resolvido!

Isso é muito importante para os usuários.

Ainda não  resolvido
Estou fazendo aqui
vou te manda o projeto
Grato
Helder Milhome

Bom dia
refiz não sei por que não deu certo

Agradeço aqueles que ajudam
Helder

vou dar por resolvido
Agradeço a todos
Helder