[Resolvido]Exibir Totais com campo Filtro em branco

Boa noite!

Bd em Access 2010.

O formulário exibe os totais das somas apenas quando é informado o grupo no campo "txtGrupo" (Filtrar por Grupo).

Há uma maneira para que o formulário também exiba esses totais quando o campo "txtGrupo" estiver vazio?

Segue anexo para avaliação.
Para testar digite 1, 2 ou 3 no campo Filtrar por Grupo.

Desde já agradeço!

Olá...

Altere o seu código atual por este e veja se é o que pretende

Abraços

Código:

Private Sub CalculaSubTotal()
    'DÉBITO
   
    If Not IsNull(txtGrupo) Or txtGrupo = "" Then
    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')"
    strSql = strSql & " AND GRUPO = " & "'" & Me![txtGrupo] & "'"
    Else
    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')"
    End If
 
    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
    If Not IsNull(txtGrupo) Or txtGrupo = "" Then
    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')"
    strSql = strSql & " AND GRUPO = " & "'" & Me![txtGrupo] & "'"
    Else
    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')"
    End If
   
    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

Olá de novo..

Não esqueça de tirar o evento no atual do form
Abraços

Celso, era isso mesmo.

Obrigado!

Olá..

O Fórum agradece seu retorno.

Obrigado e até a próxima..

Olá..

O Fórum agradece seu retorno.

Obrigado e até a próxima..