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


    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 : 382
    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!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/1/2020, 21:05