[Resolvido]Consulta , Alterações

Gostaria de pedir uma ajuda, preciso inserir essas alterações comentadas nesse código !

Não estou conseguindo fazer.......

Código:

Private Sub opFiltro_AfterUpdate()
 Set dbs = CurrentDb
    'Do 01 ao 03 mostrar este filro, só que entre datas inseridas nos campos já existentes( txtDatIni até txtDatFim )
    'Como mostra todas as colunas e linhas quero calcular duas delas " ccCrédito , ccDébito "
    'Calcular ---> Me.Saldo = Me.TotalCrédito - Me.TotalDébito
    If opFiltro = 1 Then
        strSQL = "SELECT * FROM tbl_FluxoCaixa WHERE ccHistórico like '*VENDA À VISTA*'"
    End If
    If opFiltro = 2 Then
        strSQL = "SELECT * FROM tbl_FluxoCaixa WHERE ccHistórico like '*VENDA CARTÃO DÉBITO*'"
    End If
    If opFiltro = 3 Then
        strSQL = "SELECT * FROM tbl_FluxoCaixa WHERE ccHistórico like '*VENDA CARTÃO CRÉDITO*'"
    End If
   'No 04 mostrar todos os registros, só que entre datas inseridas nos campos já existentes( txtDatIni até txtDatFim )
    'Como mostra todas as colunas e linhas quero calcular duas delas " ccCrédito , ccDébito "
    'Calcular ---> Me.Saldo = Me.TotalCrédito - Me.TotalDébito
    If opFiltro = 4 Then
        strSQL = "SELECT * FROM tbl_FluxoCaixa"
    End If
   'No 05 Mostrar TODOS os registros contidos na tabela independente de datas
    'Como mostra todas as colunas e linhas quero calcular duas delas " ccCrédito , ccDébito "
    'Calcular ---> Me.Saldo = Me.TotalCrédito - Me.TotalDébito
    If opFiltro = 5 Then
        strSQL = "SELECT * FROM tbl_FluxoCaixa"
    End If
Set rst = dbs.OpenRecordset(strSQL)
Me.RecordSource = strSQL
End Sub

Grato........

Olá,

Alguém pode me ajudar ?

Grato !

Boa noite
Não entendi o que tem nem o que pretende

Boa Noite, Alexandre Neves

Como essa consulta me retorna todos os campos da tabela ! Essa consulta seleciona linhas e colunas da tabela citada ...  strSQL = "SELECT * FROM tbl_FluxoCaixa

Então;

->  Dos campos compostos por esta tabela estão os (  ccCrédito , ccDébito  ) = são " Colunas "

Tenho ja inseridos em meu form 3 campos - > " TotalCrédito  ,  TotalDébito  e para receber a somatória liquida o campo " Saldo " , sendo assim fica =>  ( Me.Saldo = Me.TotalCrédito - Me.TotalDébito ) eles devem , assim que a consulta for feita SOMAR as colunas individualmente ccCrédito , ccDébito  ,, e mostrar o resultado nos campos  TotalCrédito  ,  TotalDébito  ,, e o campo Saldo faz o calculo liquido final => ( Me.Saldo = Me.TotalCrédito - Me.TotalDébito ) e mostra o resultado.


Só que nem sem esse critério de data que vou inserir agora , não estou conseguindo realizar esse calculo e apresentar esses resultados no Form...


Pode me ajudar !

Boa tarde,
Se entendi bem, basta colocar no form os campos ccCrédito e ccDébito paar receber os dados da consulta e no detalhe coloque a fórmula de cálculo do saldo (TxtSaldo=TxtccCredito - TxtccDebito)

OK, ....... Mto Obrigado.