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]
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"
Como posso chegar a esse resultado que necessito?
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]
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?