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

    Alimentar Sub-Form de formulário a partir de outro formulário

    Compartilhe

    diogomou
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/04/2014

    Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  diogomou em Dom 20 Ago 2017, 7:02 am

    Bom dia a todos!

    Sempre utilizei a expressão abaixo para alimentar informação de um formulário para outro formulário.

    Código:
    Private Sub List0_DblClick(Cancel As Integer)
       [Forms]![Table2]![D] = List0
       DoCmd.Close
    End Sub


    Mas recentemente me deparei com um problema que não consigo ALIMENTAR SUB-FORM DE FORMULARIO A PARTIR DE OUTRO FORMULARIO.
    Deixei um exemplo anexo.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  webruxim em Dom 20 Ago 2017, 2:38 pm

    diogomou, muito provavelmente sua dúvida é a mesma do nosso amigo Isaac Basso neste link: [Você precisa estar registrado e conectado para ver este link.], da uma olhada la, se não for fico no aguardo para ajuda-lo.

    Aguardando retorno....

    diogomou
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/04/2014

    Re: Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  diogomou em Dom 20 Ago 2017, 7:58 pm

    Não tem muita relação com minha duvida.

    Eu criei este modelo utilizando o 'list' e o duplo click so para exemplicificar.
    Por relacionamento eu consigo alimentar um subformulario com dados de um outro formulário,
    mas fica muito complicado.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  webruxim em Dom 20 Ago 2017, 9:42 pm

    sem anexo, poste o anexo para que possamos ajuda-lo melhor

    diogomou
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 04/04/2014

    Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  diogomou em Seg 21 Ago 2017, 7:11 am

    Desculpe faltou anexo.
    Anexos
    Database6.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 5 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Alimentar Sub-Form de formulário a partir de outro formulário

    Mensagem  good guy em Seg 21 Ago 2017, 8:31 am

    Olá Diogo,

    Veja se resolve seu problema. Na fonte de controle de seu sub-formulário "Table3" coloque a seguinte sintaxe:

    =[Formulários]![Table2]![D]

    Já o código do duplo-clique de sua caixa de listagem(List0) coloque o seguinte código:

    Código:

    Private Sub List0_DblClick(Cancel As Integer)
    #Código de Eduardo Machado (Good Guy) - Ano 2017 - Dica do livro "Técnicas Especiais de Access VBA" - Ed.Ciência Moderna de minha autoria
    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!Form1
    Set ctl = frm!List0

    For Each varItm In ctl.ItemsSelected
    Forms!Table2!D = ctl.Column(0, varItm) '0 é a primeira coluna onde está o campo ID na listbox (0,1,2,3)
    [Table3 subformulário].Form.D = Forms!Table2!D
    DoCmd.Close acForm, "Table2", acSaveYes
    Next varItm

    DoCmd.OpenForm "Table2"
    End Sub
    Anexos
    Database6.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (128 Kb) Baixado 5 vez(es)

      Data/hora atual: Ter 21 Nov 2017, 2:23 pm