Olá a todos!
Tenho um form de pesquisa com um subform em modo Formulario Continuo, retirei a linha de "Fonte de Registro" do e nesse eu carrego a busca por Recordsource ex: "Me.tabUteroPesqSub2.Form.RecordSource = CarregaDados" apos apertar o botão "Buscar", via VBA.
Porem, para funcionar, os campos tem que ter os mesmos nomes dos campos da tabela na linha "Fonte de Controle", gostaria de deixar os campos do subform desvinculados, ou seja, "Não Associados" e gostaria que o codigo SQL jogasse direto nos campos com os nomes pertinentes.
Existe tal possibilidade?
Abaixo segue meu código:
Se caso eu não carregar a pesquisa, os campos aparecem da seguinte forma:
Se os campos ficarem "Não Associados" não aparecem dessa forma.
Agradeço e aguardo!
Tenho um form de pesquisa com um subform em modo Formulario Continuo, retirei a linha de "Fonte de Registro" do e nesse eu carrego a busca por Recordsource ex: "Me.tabUteroPesqSub2.Form.RecordSource = CarregaDados" apos apertar o botão "Buscar", via VBA.
Porem, para funcionar, os campos tem que ter os mesmos nomes dos campos da tabela na linha "Fonte de Controle", gostaria de deixar os campos do subform desvinculados, ou seja, "Não Associados" e gostaria que o codigo SQL jogasse direto nos campos com os nomes pertinentes.
Existe tal possibilidade?
Abaixo segue meu código:
- Código:
Function CarregaDados()
Dim CarregaDadosInicial As String
CarregaDadosInicial = "SELECT tabUteroCad.identificação AS Identificação, tabUteroCad.Numero AS Numero, tabUteroCad.Paciente AS Paciente," & _
"tabUteroCad.Data AS Data, tabUteroCad.protocolo AS Protocolo, tabUteroCad.Ano AS Ano" & _
" FROM tabUteroCad" & _
" WHERE tabUteroCad.Ano = " & Me.txAno & "" & _
" ORDER BY tabUteroCad.Data DESC"
Me.tabUteroPesqSub2.Form.RecordSource = CarregaDadosInicial
Me.tabUteroPesqSub2.Requery
Me.txPesqUtero2.SetFocus
End Function
Se caso eu não carregar a pesquisa, os campos aparecem da seguinte forma:
Se os campos ficarem "Não Associados" não aparecem dessa forma.
Agradeço e aguardo!