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]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Compartilhe
    avatar
    Claudinei
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/05/2010

    [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  Claudinei em 10/7/2018, 01:08

    Boa noite amigos!

    Eu preciso de ajuda de vocês para um código que copie o texto de um campo específico do Formulário para todas as linhas do subformulário como no exemplo abaixo:

    Copiar o conteúdo do campo Rateio onde contém "PIVO 6 INFERIOR + PIVO 6 SUPERIOR" para as linhas do subformulário abaixo de forma que eu não precise clicar numa por uma para copiar o texto já que criei um código para que quando recebe o foco ela copia automaticamente, porque quando eu preciso mudar ou atualizar os talhões eu tenho que ir clicando numa por uma para atualizar, o que eu quero é um botão que ao clicar ele atualiza todos os campos do subformulário de uma vez só porque às vezes eu tenho mais de 50 linhas de lançamento para cada serviço e isso se torna uma tarefa muito repetitiva.

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 714
    Registrado : 09/11/2012

    Re: [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  =>Nois em 10/7/2018, 11:49

    tente adaptar

    Código:
    Sub RefReg()

    With Me.Form.RecordsetClone
              .MoveFirst
              Do Until .EOF
                  .Edit
                  .Fields("Reg_NF") = True
                  .Fields("Reg_Exp") = Me.txtCodRefNF
                  .Update
                  .MoveNext
            Loop
    End With

    End Sub


    End Sub

    Private Sub botao_Click()

    On Error Resume Next

            Call RefReg

    End Sub


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Claudinei
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/05/2010

    Re: [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  Claudinei em 10/7/2018, 14:42

    Bom dia Nois

    Esses campos a que você se refere "Reg_NF", "Reg_Exp" e "txtCodRefNF" são tabela e campos do subform ?

    O código que eu estava usando era esse ao receber o foco no campo do subformulário

    Atualizo os seguintes campos do subformulário de acordo com o formulário "frmAgricolaOS"

       txtCodigo = Forms!frmAgricolaOS!txtCodigo
       txtCultura = Forms!frmAgricolaOS!txtCultura
       txtOShrHomensRegiao = Forms!frmAgricolaOS!txtRegiao
       txtServico = Forms!frmAgricolaOS!txtServico
       txtAreaTotal = Forms!frmAgricolaOS!txtAreaTotal
       txtRateio = Forms!frmAgricolaOS!txtRateio

    A tabela do Form é OSsafra e do SubForm é OShrHomens

    O que você me aconselha que posso resolver meu problema ?
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 714
    Registrado : 09/11/2012

    Re: [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  =>Nois em 10/7/2018, 17:29

    da uma olhada no exemplo em anexo e tente adaptar
    Anexos
    SubtableForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 4 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Claudinei
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/05/2010

    Re: [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  Claudinei em 10/7/2018, 19:29

    Boa tarde Nois

    Adaptei o código do exemplo que me mandou e ficou resolvido, funciona 100%, fico grato pela ajuda!

    Segue o código
    -> ao clicar de um botão:

    Sub RefReg()
    With Me.Form.RecordsetClone
    .MoveFirst
    Do Until .EOF
    .Edit
    .Fields("Codigo") = Me.IncluirCodigo
    .Fields("Cultura") = Me.IncluirCultura
    .Fields("Regiao") = Me.IncluirRegiao
    .Fields("Servico") = Me.IncluirServico
    .Fields("AreaTotal") = Me.IncluirAreaTotal
    .Fields("Rateio") = Me.IncluirRateio
    .Update
    .MoveNext
    Loop
    End With
    End Sub
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 714
    Registrado : 09/11/2012

    Re: [Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

    Mensagem  =>Nois em 10/7/2018, 20:11

    Obrigado Pelo Retorno! cheers


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 17/7/2018, 01:24