[Resolvido]Vincular SQL a Subformularios com campos desvinculados

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:

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!

Boa noite Willian !!!

Coloca os campos do subform como não visíveis (Número, Paciente, Data, Protocolo, Ano)
e no 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.tabUteroPesqSub2.Form.Número.Visible = true
    Me.tabUteroPesqSub2.Form.Paciente.Visible = true
    Me.tabUteroPesqSub2.Form.Data.Visible = true
    Me.tabUteroPesqSub2.Form.ProtocoloData.Visible = true
    Me.tabUteroPesqSub2.Form.Ano.Visible = true

    Me.txPesqUtero2.SetFocus

End Function


Estou a dar uma possível solução, não fiz o teste.

Saludos

bom dia!

Uma Sugestão,

Código:

Forms![frmPrincipal].Form![SubForm]![CompoSubForm].ControlSource = "nome do campo da sua Consulta"
......
......
......
Forms![frmPrincipal]![SubForm].Form.RecordSource = strSql

abraço!

Boa noite meus caros!


Irei testar as sugestões e volto para dar um posicionamento, agradeço a atenção!

Boa tarde!

Desculpem a demora para responder, fiquei bem enrolado no trabalho.

marcos_novack, pode me dar um exemplo melhor? Não consegui entender onde faço essa aplicação.

Boa noite wilflx2

os campos tem que ter os mesmos nomes dos campos da tabela na linha "Fonte de Controle"

Exemplo:

abraço!

Perfeito marcos_novack! Era realmente isso que estava precisando! Muito Obrigado!

Agradeço pelo retorno.