Olá grande familia do Access!
Não estou conseguindo fazer algo que acredito que seja muito simples para vocês. Seguinte, tenho uma tabela chamada tabUteroCad, e em um formulario de pesquisa quero retornar uns campos mas Concatenando eles, e com isso usando o WHERE, filtrar com base na concatenação.
Segue o codigo:
- Código:
Dim CarregaUteroPesq As String
Me.txPesqUtero2.SetFocus
'Carrega os dados no Subformulario sem pesquisa
CarregaUteroPesq = "SELECT Identificação, Paciente, Numero," & _
" Orgão, Cidade, Data, Protocolo, datadeliberacao, Concat(Paciente, Numero) AS Resultado" & _
" FROM tabUteroCad" & _
" WHERE Ano = " & Me.txAno & " AND Resultado LIKE """ & Chr(42) & TodosAcentos(Me.txPesqUtero2.Text) & Chr(42) & """" & _
" ORDER BY Identificação DESC"
Me.tabUteroPesqSub2.Form.RecordSource = CarregaUteroPesq
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Identificação.ControlSource = "Identificação"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Paciente.ControlSource = "Paciente"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Numero.ControlSource = "Numero"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Orgão.ControlSource = "Orgão"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Cidade.ControlSource = "Cidade"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Data.ControlSource = "Data"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Protocolo.ControlSource = "Protocolo"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!Numero.ControlSource = "Numero"
Forms!frmUteroPesq2!tabUteroPesqSub2.Form!datadeliberacao.ControlSource = "datadeliberacao"
Me.tabUteroPesqSub2.Requery
Me.txPesqUtero2.SetFocus
Não sei se deu para entender a ideia, mas acredito que vendo o codigo entenderam.
Da-se o erro que a função CONCAT não é definida.
O que estou fazendo aqui é uma ideia com base em leitura da internet, não sei realizar o processo, estou tentando entender o conceito e a forma de usar.
Peço ajuda para resolver.
Obrigado!