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


    [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    avatar
    wilflx2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 31/01/2014

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  wilflx2 em 3/6/2019, 20:25

    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:
    [Resolvido]Vincular SQL a Subformularios com campos desvinculados 0110

    Se os campos ficarem "Não Associados" não aparecem dessa forma.

    Agradeço e aguardo!
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 280
    Registrado : 25/02/2016

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  FranklinJSP em 3/6/2019, 23:24

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 19/01/2011

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  marcos_novack em 4/6/2019, 10:12

    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!
    avatar
    wilflx2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 31/01/2014

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  wilflx2 em 4/6/2019, 21:55


    Boa noite meus caros!


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 31/01/2014

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  wilflx2 em 25/7/2019, 18:37

    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.


    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 19/01/2011

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  marcos_novack em 26/7/2019, 04:12

    Boa noite wilflx2

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

    Exemplo:

    abraço!
    Anexos
    [Resolvido]Vincular SQL a Subformularios com campos desvinculados AttachmentExemplo_MaximoAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 8 vez(es)
    avatar
    wilflx2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 31/01/2014

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  wilflx2 em 26/7/2019, 20:22

    Perfeito marcos_novack! Era realmente isso que estava precisando! Muito Obrigado!
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 19/01/2011

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  marcos_novack em 27/7/2019, 15:14

    Agradeço pelo retorno.

    Conteúdo patrocinado

    [Resolvido]Vincular SQL a Subformularios com campos desvinculados Empty Re: [Resolvido]Vincular SQL a Subformularios com campos desvinculados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:05