MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Formulario de pesquisa com 3 filtros

    avatar
    wilflx2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 31/01/2014

    Formulario de pesquisa com 3 filtros Empty Formulario de pesquisa com 3 filtros

    Mensagem  wilflx2 em 14/1/2020, 05:44

    Boa noite grandes mestres!

    Venho mais uma vez recorrer a ajuda deste grande fórum.
    Tenho um Banco onde cadastro Pedidos de Exames, nele segue a seguinte estrutura:

    Tabela: tabPEcad
    Campos: [IdItem] [Status] [NControle] [Paciente] [Data] [Ano] [MesPara]

    Formulario de pesquisa com 3 filtros 0111

    O meu problema é o seguinte, por meio deste formulário de pesquisa, gostaria de fazer uma busca na tabela onde me retornasse os dados do campo [Ano] = Me.txAno (2019) e do Campo [MesPara] = Me.txMes (Dezembro) e que dentro dessa filtragem da tabela, que eu pudesse buscar um nome de um paciente.

    Existe essa possibilidade?

    Tentei de diversas vezes e não consegui, sempre me retorna ou todos os anos, ou todos os meses, resumindo, não consigo por meio de Select fazer uma busca com mais de 3 campos.
    Não deu certo colocar dois "AND´s" no código, apresenta erro.

    Segue o código do botão "Buscar"

    Código:
    Dim CarregaBusca2 As String
                    
            Me.txPesq.SetFocus
            'Carrega os dados no Subformulario sem pesquisa
            CarregaBusca2 = "SELECT Selecionar, Impresso, Status, IdItem," & _
            " Ncontrole, Paciente, DataPedido, Retorno, PedidoParaMes, TipoExame, Item, Lote, Ano" & _
            " FROM TabPEItem" & _
            " WHERE Ano = '" & Me.txAno & "' AND Paciente LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
                " OR Ncontrole LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
                " OR PedidoParaMes LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
                " OR TipoExame LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
                " OR Item LIKE """ & Chr(42) & TodosAcentos(Me.txPesq.Text) & Chr(42) & """" & _
                " ORDER BY IdItem DESC"
        
            Me.frmPEHomeSub.Form.RecordSource = CarregaBusca2
            
            Forms!frmPEHome!frmPEHomeSub.Form!Selecionar.ControlSource = "Selecionar"
            Forms!frmPEHome!frmPEHomeSub.Form!Impresso.ControlSource = "Impresso"
            Forms!frmPEHome!frmPEHomeSub.Form!Status.ControlSource = "Status"
            'Forms!frmPEHome!frmPEHomeSub.Form!IdItem.ControlSource = "IdItem"
            Forms!frmPEHome!frmPEHomeSub.Form!Ncontrole.ControlSource = "Ncontrole"
            Forms!frmPEHome!frmPEHomeSub.Form!Paciente.ControlSource = "Paciente"
            Forms!frmPEHome!frmPEHomeSub.Form!DataPedido.ControlSource = "DataPedido"
            Forms!frmPEHome!frmPEHomeSub.Form!Retorno.ControlSource = "Retorno"
            Forms!frmPEHome!frmPEHomeSub.Form!PedidoParaMes.ControlSource = "PedidoParaMes"
            Forms!frmPEHome!frmPEHomeSub.Form!TipoExame.ControlSource = "TipoExame"
            Forms!frmPEHome!frmPEHomeSub.Form!Item.ControlSource = "Item"
            'Forms!frmPEHome!frmPEHomeSub.Form!ValorTotalPedido.ControlSource = "ValorTotalPedido"
            Forms!frmPEHome!frmPEHomeSub.Form!Lote.ControlSource = "Lote"
            Forms!frmPEHome!frmPEHomeSub.Form!Ano.ControlSource = "Ano"
            Me.frmPEHomeSub.Requery
            Me.txPesq.SetFocus

    Como posso chegar a esse resultado que necessito?
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

    Formulario de pesquisa com 3 filtros Empty Re: Formulario de pesquisa com 3 filtros

    Mensagem  Sidney em 14/1/2020, 11:24

    Bom dia, se possivel coloque uma parte do seu bd

    att;

    Sidney
    avatar
    wilflx2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 31/01/2014

    Formulario de pesquisa com 3 filtros Empty Re: Formulario de pesquisa com 3 filtros

    Mensagem  wilflx2 em 14/1/2020, 14:17

    Bom dia Sidney!

    Segue parte do BD para analise.

    dl=0]https://www.dropbox.com/s/55cu09abthnhvg9/SysFatuMaximoAccess.zip?dl=0[/url]

    Agradeço desde já a atenção!

      Data/hora atual: 23/9/2020, 14:25