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

  • Novo Tópico
  • Responder ao tópico

[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.

avatar
=>Nois
Super Avançado
Super Avançado

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 765
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


.................................................................................
Arrow 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 : 765
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 6 vez(es)


.................................................................................
Arrow 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 : 765
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


.................................................................................
Arrow Att. Nois

Se tudo não der certo... Descanse e tente novamente!
  • Novo Tópico
  • Responder ao tópico

Data/hora atual: 16/1/2019, 15:06