MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Dsoma no subformulario

    Compartilhe
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Dsoma no subformulario

    Mensagem  Helder Milhome em Seg 18 Dez 2017, 19:38

    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

    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Seg 18 Dez 2017, 19:53

    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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qua 20 Dez 2017, 11:19

    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
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Qua 20 Dez 2017, 11:32

    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]")


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qua 20 Dez 2017, 13:37

    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

    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qua 20 Dez 2017, 19:28

    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... Embarassed
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Qua 20 Dez 2017, 19:50

    Boa tarde,

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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qui 21 Dez 2017, 11:08

    Bom dia
    o  projeto
    2003
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Qui 21 Dez 2017, 11:10

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Qui 21 Dez 2017, 18:50

    Boa tarde,

    Veja se atende a sua necessidade:
    Anexos
    SRD Servidor Local - Ver.2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 3 vez(es)


    Última edição por caiosouza em Sex 22 Dez 2017, 13:01, editado 1 vez(es)


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qui 21 Dez 2017, 19:48

    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
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Sex 22 Dez 2017, 13:02

    Bom dia,

    Refaça do download e teste


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 251
    Registrado : 05/12/2016

    Re: Dsoma no subformulario

    Mensagem  caiosouza em Ter 26 Dez 2017, 17:31

    Helder Milhome, boa tarde.

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

    Isso é muito importante para os usuários.


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Ter 26 Dez 2017, 17:49

    Ainda não  resolvido
    Estou fazendo aqui
    vou te manda o projeto
    Grato
    Helder Milhome
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 03/07/2011

    Re: Dsoma no subformulario

    Mensagem  Helder Milhome em Qua 27 Dez 2017, 13:14

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

    Agradeço aqueles que ajudam
    Helder
    Anexos
    SRD Servidor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (182 Kb) Baixado 2 vez(es)

      Data/hora atual: Qua 17 Jan 2018, 20:08