[Resolvido]Linha SQL para conlsulta, filtro

bom dia

estou tentando um filtro em uma consulta mas não esta retornando gostaria de saber se estou aplicando certo.


Tabela Clientes e na coluna Histórico -

Procuro pela palavra "VENDA À VISTA"
e
Procuro pela palavra "VENDA CARTÃO DÉBITO"
e
Procuro pela palavra "VENDA CARTÃO CRÉDITO"

Código:

Private Sub opFiltro_AfterUpdate()
    Set dbs = CurrentDb
    If opFiltro = 1 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA À VISTA%'"
    End If
    If opFiltro = 2 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA CARTÃO DÉBITO%'"
    End If
    If opFiltro = 3 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA CARTÃO CRÉDITO%'"
    End If
    
    
    Set rst = dbs.OpenRecordset(strSQL)
    Me.RecordSource = strSQL
    
    If rst.RecordCount = 0 Then
        opFiltro = 0
        Beep
        MsgBox "Não há registros que atendem a este filtro!", vbInformation, "Filtro"
        'Mostra todos
        strSQL = "SELECT * FROM viewClientes"
        Me.RecordSource = strSQL
    End If
    
    CalculaSubTotal
    Me.Requery
End Sub

----------------------------------------------------------------------------------------------------------
no load do form uso

Private Sub Form_Load()
   Dim Filtro As String
   On Error Resume Next
   
   Me.KeyPreview = True
 
   opFiltro = 0
   Me.Requery
   CalculaSubTotal

Boa noite,

Código:

    If opFiltro = 1 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"
    End If
    If opFiltro = 2 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA CARTÃO DÉBITO*'"
    End If
    If opFiltro = 3 Then
        strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA CARTÃO CRÉDITO*'"
    End If

estou enviando o form aqui para verificação , pois ainda não esta filtrando

cod. aberto


verifique se esta certo

Enviou incompleto

OK , deu certo ,

Código:

strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"

Mas preciso que essa consulta mostre entre data ini  e data final


txtDatIni
até
txtDatFim


exemplo = Todas as VENDAS À VISTA entre as datas ,   não todos os registros da tabela !

Entre Datas que estão inseridas nesses campos

txtDatIni
até
txtDatFim

Código:

strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"

Alguém sabe como fazer isso ?

Boa tarde....

Nova duvida....novo tópico. Não se "reusa" o tópico nem se altera o título do mesmo. Outros utilizadores, podem ter a mesma duvida que você.

Fica aqui a dica !

OK...............................