MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Preencher campo em sub Formulario

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 18/04/2018

    [Resolvido]Preencher campo em sub Formulario Empty [Resolvido]Preencher campo em sub Formulario

    Mensagem  fernando rodrigo zanchini em 23/5/2020, 15:23

    Bom dia
    Tenho uma duvida, que talvez alguém poderia me ajudar.
    Tenho um form e um sub form,  em um dos campos do form vou inserir um código e gostaria ao apertar o botão que esse código se propagasse para todos os campos determinado no sub form vinculado ao form. Anexei um exemplo.
    Anexos
    [Resolvido]Preencher campo em sub Formulario AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 6 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/03/2014

    [Resolvido]Preencher campo em sub Formulario Empty Re: [Resolvido]Preencher campo em sub Formulario

    Mensagem  Celso Roberto em 23/5/2020, 16:41

    Olá..

    No evento ao clicar do botão

    Código:
    Private Sub Comando9_Click()


        Dim Rs As DAO.Recordset
         
        Set Rs = CurrentDb.OpenRecordset("Tb_SubForm")
                 
        Rs.MoveFirst
        Do While Not Rs.EOF
           
        With Rs
        .Edit
       
        Rs!Insercao = Me.exemplo
           
        .Update
        .MoveNext 'Move para próximo registro
               
           
        End With
        Loop
        Me.Refresh
        'Rs.Close
        Set Rs = Nothing

    End Sub

    Faça testes e retorne

    Aguardamos

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 18/04/2018

    [Resolvido]Preencher campo em sub Formulario Empty Re: [Resolvido]Preencher campo em sub Formulario

    Mensagem  fernando rodrigo zanchini em 23/5/2020, 16:57

    Não deu certo ele preencheu o a tabela toda e não só os vinculado ao form principal
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/03/2014

    [Resolvido]Preencher campo em sub Formulario Empty Re: [Resolvido]Preencher campo em sub Formulario

    Mensagem  Celso Roberto em 23/5/2020, 18:23

    Olá..

    Desculpe a falha..

    Substitua por este

    Código:
    Me.Frm_SubForm.Form.RecordsetClone.MoveFirst
        Do While Not Me.Frm_SubForm.Form.RecordsetClone.EOF
            Me.Frm_SubForm.Form.RecordsetClone.Edit
            Me.Frm_SubForm.Form.RecordsetClone!Insercao = Me.exemplo
            Me.Frm_SubForm.Form.RecordsetClone.Update
            Me.Frm_SubForm.Form.RecordsetClone.MoveNext
        Loop
            Me.Frm_SubForm.Requery
            Exit Sub


    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 18/04/2018

    [Resolvido]Preencher campo em sub Formulario Empty Re: [Resolvido]Preencher campo em sub Formulario

    Mensagem  fernando rodrigo zanchini em 23/5/2020, 18:33

    Deu Certo
    Obrigado cheers cheers cheers cheers cheers cheers
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/03/2014

    [Resolvido]Preencher campo em sub Formulario Empty Re: [Resolvido]Preencher campo em sub Formulario

    Mensagem  Celso Roberto em 23/5/2020, 18:43

    Olá..

    cheers cheers

    Obrigado, O Fórum agradece pelo seu retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 9/7/2020, 11:46