[Resolvido]Calculo SQL

Olá.......

Como posso fazer para chamar este procedimento de calculo ;

Código:

Private Sub CalculaSubTotal()
    'DÉBITO
    strSQL = ""
    strSQL = "SELECT Sum(tbl_FluxoCaixa.ccDébito) AS DEBITO From tbl_FluxoCaixa"
    strSQL = strSQL & " WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')"
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSQL)
  
    If rst.RecordCount > 0 Then
        Me.TotalDébito = rst("DEBITO")
    Else
        Me.TotalDébito = 0
    End If
    rst.Close
    
    'CRÉDITO
    strSQL = "SELECT Sum(tbl_FluxoCaixa.ccCrédito) AS CREDITO From tbl_FluxoCaixa"
    strSQL = strSQL & " WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')"
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSQL)
  
    If rst.RecordCount > 0 Then
        Me.TotalCrédito = rst("CREDITO")
    Else
        Me.TotalCrédito = 0
    End If
    Me.Saldo = Me.TotalCrédito - Me.TotalDébito
    If Me.Saldo < 0 Then
        Me.Saldo.ForeColor = 255
    Else
        Me.Saldo.ForeColor = 0
    End If
    rst.Close
End Sub

Nesta Consulta ;

Código:

strSQL = "SELECT * FROM tbl_FluxoCaixa WHERE cdData Between #" & Format(txtDatIni, "dd/mm/yyyy") & "# And #" & Format(txtDatFim, "dd/mm/yyyy") & "# AND ccHistórico like '*VENDA, À VISTA*'"

ou seja, inserir esse critério  " procedimento - CalculaSubTotal " , de calculo na linha de consulta - para filtrar e ja efetuar o calculo .


Grato !

Boa tarde,
teste
strSQL = "SELECT (SELECT Sum(ccDébito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy'))as Debito, (SELECT Sum(ccCrédito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy'))as Credito, * FROM tbl_FluxoCaixa WHERE cdData Between #" & Format(txtDatIni, "dd/mm/yyyy") & "# And #" & Format(txtDatFim, "dd/mm/yyyy") & "# AND ccHistórico like '*VENDA, À VISTA*'"

olá , Alexandre Neves

Esta Filtrando , mas não calculando

os campos que devem receber os resultados são

TotalCrédito
TotalDébito
Saldo

não estão recebendo nada, !

Bom dia,
Não abri a bd mas os nomes dos campos estavam como Debito e Credito e tinha-me esquecido do Saldo
sendo TotalDébito e TotalCrédito e Saldo, coloque
strSQL = "SELECT *, TotalCrédito-TotalDébito as Saldo FROM (SELECT (SELECT Sum(ccDébito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')) as TotalDébito, (SELECT Sum(ccCrédito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')) as TotalCrédito, * FROM tbl_FluxoCaixa WHERE cdData Between #" & Format(txtDatIni, "dd/mm/yyyy") & "# And #" & Format(txtDatFim, "dd/mm/yyyy") & "# AND ccHistórico like '*VENDA, À VISTA*')"

olá , Alexandre Neves

Continua filtrando SIM , porem sem mostrar o resultado de calculos nos campos , fica tudo R$ 0,00

Boa noite,
Não pode utilizar assim
Ou utiliza como estava, gerar e recordset e atribuir valores aos controlos, ou utilizar a expressão como recordsource

Desculpe, mas não compreendi !

O que devo fazer ?

Pensei em chamar a função sub na consulta ,


strSQL = "SELECT * FROM tbl_FluxoCaixa WHERE cdData Between #" & Format(txtDatIni, "dd/mm/yyyy") & "# And #" & Format(txtDatFim, "dd/mm/yyyy") & "# AND ccHistórico like '*VENDA, À VISTA*' AND & CalculaSubTotal"

Mas não esta dando certo !

o recordset que tinha na função atribuía apenas valores aos controlos do rodapé, não geravam registos no formulário
Pode fazer dessa forma, como já estava, ou gerar os registos do formulário através da instrução SQL (recordsource)

OK, entendi ! Obrigado ,

pode me dar uma força aqui tbm ?

https://www.maximoaccess.com/t29818-erro-em-lancamento-de-registros-parcelados#207288

Alexandre Neves,
Como posso fazer uma dessa duas saídas  ?

= gerar os registos do formulário através da instrução SQL (recordsource)


= Pode fazer dessa forma, como já estava


Pode me ajudar .......

Boa noite,
A mais fácil para si, deve ser a que já estava encaminhada

Coloque rótulos RtlSaldo, RtlDebito, RtlCredito no rodapé

Private Sub CalculaSubTotal()
Dim rst As DAO.Recordset
strsql = "SELECT *, TotalCredito-TotalDebito as Saldo FROM (SELECT (SELECT Sum(ccDébito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')) as TotalDebito, (SELECT Sum(ccCrédito) From tbl_FluxoCaixa WHERE cdData Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')) as TotalCredito, * FROM tbl_FluxoCaixa WHERE cdData Between #" & Format(txtDatIni, "dd/mm/yyyy") & "# And #" & Format(txtDatFim, "dd/mm/yyyy") & "# AND ccHistórico like '*VENDA, À VISTA*')"
Set rst = CurrentDb.OpenRecordset(strsql)
RtlCredito.Caption = "Crédito: " & rst("TotalCredito")
RtlDebito.Caption = "Débito: " & rst("TotalDebito")
RtlSaldo.Caption = "Saldo: " & rst("Saldo")
Set rst = Nothing
End Sub

ok !

vou fazer as alterações e testar, qualquer coisa te aviso  ! Mto Obrigado .

-----------------------------------------------

de uma olhada neste tópico -
https://www.maximoaccess.com/t29818-erro-em-lancamento-de-registros-parcelados#207264

OK, Resolvido !






-----------
Considerações e Agradecimentos á ;

Alexandre Neves