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

    [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  Silvio em 3/1/2018, 17:09

    Prezados boa tarde a todos.

    Tenho os seguintes campos.

    DI - data inicial.
    DF- data final.

    DenOculta - Caixa de texto.
    POculta - Caixa de texto.
    MudaStatusOculta - caixa de texto

    ***Em vermelho são caixas de texto que recebem os valores vindo de combobox

    Abaixo, as tentativas frustradas e fracassadas de filtragem.

    Private Sub bt_Pesquisa_Click()
    Me.FilterOn = False
    Dim Filtro$  
    Filtro$ = "DentistaOculta like '*" & Me!DenOculta & "*' AND StatusOculta like '*" & Me!MudaStatusOculta & "*'  AND PlanoOculta like '*" & Me.POculta & "*' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"


    'Filtro$ = "[DentistaOculta] = '" & Me.DenOculta & "' AND [StatusOculta] = '" & Me.MudaStatusOculta & "'  AND [PlanoOculta] = '" & Me.POculta & "' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

    Me.Filter = Filtro$
    Me.FilterOn = True
    Me.DataAtendimento.BackColor = RGB(192, 230, 212)
    Me.Requery

    End Sub


    Se algum dos colegas puderem me ajudar...agradeço.

    Abraços a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  FabioPaes em 3/1/2018, 19:22

    Olá Silvio, qual o erro apresentado???

    Da forma como está, todos os Campos devem ser preenchidos...


    Obs: Por coincidência, estou preparando uma Vídeo Aula sobre esse Assunto, se tudo ocorrer bem estará disponível no Fórum no Fim de semana!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 793
    Registrado : 01/03/2014

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  Celso Roberto em 3/1/2018, 20:15

    olá,
    Feliz 2018 a todos

    Silvio, tente desmembrar desta forma
    Código:
    Dim strFiltro As String   
               
     strFiltro = "DataDaEmissao Between #" & Format(Me.cboDataInicial, "mm/dd/yyyy") & "# And #" & Format(Me.cboDataFinal, "mm/dd/yyyy") & "#"
               
    If Not IsNull(Me.txtNomeCartao) Then strFiltro = strFiltro & " And NomeCartao LIKE '*" & Me.txtNomeCartao & "*'"
    If Not IsNull(Me.txtTipoTranzacao) Then strFiltro = strFiltro & " And TipoTranzacao LIKE '*" & Me.txtTipoTranzacao & "*'"
    If Not IsNull(Me.txtNomeBanco) Then strFiltro = strFiltro & " And CodBanco LIKE '*" & Me.txtNomeBanco & "*'"
                           
    Me.Filter = strFiltro
    Me.FilterOn = True
    Me.Requery


    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  Silvio em 4/1/2018, 17:49

    Boa tarde...

    Vamos testar...vamos testar...

    [ ] 's


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5293
    Registrado : 15/03/2013

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  ahteixeira em 5/1/2018, 10:46

    Olá a todos,

    Silvio, vou considerar que a dúvida está no filtro na instrução não comentada, teste assim:

    Código:
    filtro$ = "[DentistaOculta] like '*'" & Me!DenOculta & "'*' AND [StatusOculta] like '*'" & Me!MudaStatusOculta & "'*'  AND [PlanoOculta] like '*'" & Me.POculta & "'*' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

    Abraço a todos
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  Silvio em 19/1/2018, 18:39

    Resolvido, mensagem 5


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5293
    Registrado : 15/03/2013

    Re: [Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

    Mensagem  ahteixeira em 20/1/2018, 18:25

    Olá a todos,

    Silvio, obrigado pelo retorno.
    O fórum agradece.

    Abraço

      Data/hora atual: 20/7/2018, 15:43