MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

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

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 4/1/2018, 17:49

    Boa tarde...

    Vamos testar...vamos testar...

    [ ] 's


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 19/1/2018, 18:39

    Resolvido, mensagem 5


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 20/1/2018, 18:25

    Olá a todos,

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

    Abraço

      Data/hora atual: 28/11/2022, 02:50