[Resolvido] Inserir dados em um único campo de um Formulário Continuo sob filtro (em mais de um registro)

Alá pessoal,

eu possuo um formulário com campos que filtram um subformulário (contínuo), porém, eu gostaria que ao filtrar, ele inserisse um valor de um campo do formulário em todos os registros sob filtro no subformulário contúnuo.

Eu tentei:

Me.Subform_Registro.Form.Registro = Me.Registro_Select

Porém, no filtro do formulário contínuo, retornam 01, 02 ou mais registros, e o código acima, só insere os dados do Registro_Select no primeiro registro do subformulário continuo e não nos demais.

Haveria a possibilidade de ele inserir o valor no campo específico em todos os registros visualizados no filtro?

Att.,
Diego

Encontrei ese código em uma pesquisa que fiz, mas não funcionou, apenas não insere dado algum.

Private Sub Registro_Select_AfterUpdate()
Me.Subform_Registro.Requery

Dim rst As Object
Dim Reg As String
Set rst = Me.Recordset
Reg = Nz(Me.Me.Subform_Registro.Form.Registro, 0)
If Reg = 0 Then
MsgBox Transmittal_Address '(Aqui retorna o valor 0)
With rst
If Not (.BOF And .EOF) Then
.MoveFirst
Do Until .EOF
.Edit
Me.Subform_Registro.Form.Registro = Me.Registro_Select
.Update
.MoveNext
Loop
End If
End With
End If

End Sub

Haveria alguma contribuição para fazer o código acima funcionar?

Att.,
Diego

Boa tarde pessoal, mais outra tentativa sem sucesso, encontrei um outro exemplo aqui no Fórum, mas ocorre erro (Erro em tempo de execução '3426') em Reg.MoveNext, vejam abaixo a sintaxe:

Private Sub Registro_Select_AfterUpdate()
Me.Subform_Registro.Requery

Dim Reg As Recordset

Set Reg = Me.Subform_Registro.Form.Recordset

If Nz(Me.Subform_Registro.Form.Registro, 0) = 0 Then
Reg.MoveFirst
Do
Me.Subform_Registro.Form.Registro = Me.Registro_Select
Reg.MoveNext ' (Aqui ocorre erro)
Loop Until Reg.EOF
Reg.MoveFirst
End If
End Sub

Segu eo link do exemplo:

http://maximoaccess.forumeiros.com/t17712-resolvidoloop-cx-selecao-subformulario?highlight=loop

Att.,
Diego

Se voce tem a id do registro no sub-form faça um Update na tabela

CurrentDb.Execute "UPDATE Set SeuCampo = " & Me.Parent.SuaCaixaTextoNoFOrmulárioPai & " WHERE SuaIDNaTabela = " & Me.Parent.SuaCaixaTextoIDNoFormulárioPai & ""
Me.SeuSubForm.Requery


Cumprimentos.

Bom dia Piloto,
eu não entendi aonde eu insiro a função, mesmo assim, acho que ela não irá inseri mais de um registro num form continuo, ou irá?

Fiz um exemplo do que eu preciso e envio anexo, poderia testar?
No caso, está filtrado por cidade.

Obrigado.

Bom dia a todos, continuando com o tópico, em alguns testes, eu notei que a forma com eu estava fazendo não está correta, pois não posso vincular a tabela onde irei inserir os dados com a tabela filtro, acho que a forma correta é ter 02 subformulários, um com filtro e outro onde eu preciso inserir os dados filtrados no 1º Subformulário.

Exemplo:

01 Formulário onde eu insiro os filtros, com combos, etc.
01 Subformulário/01, onde eu aplico tais filtros, me retornando uma lista de registros
01 Subformulário/02, onde eu copio as informações do Subformulário/01, mas serão 02 ou mais registros de um formulário contínuo.

Alguém teria alguma ideia, de como eu poderia fazer isso?


Obrigado.
Diego

Eu ainda não consegui entender o que deseja..
A princípio eu pensei que:

1 - Filtrar o sub formulário, suponha aqui que retornou 3 registros...
2 - Lança um determinado Valor X em um campo para os 3 registros encontrados pelo filtro.

é isso?


Cumprimentos.

Piloto,
vou tentar explicar melhor...

Eu possuo um formulário onde tenho os registros dos funcionários e um subformulário (continuo) onde incluo a lista de clientes de uma determinada Cidade, diante disso, eu preciso que ao selecionar o nome do funcionário e a cidade, ele buscasse em uma tabela (clientes), todos os cliente dessa determinada cidade, e os inserisse no subformulário automaticamente, podendo ser de 01 a 30 registros (clientes diferentes).

No exemplo que enviei, eu estava relacionando uma tabela com outra dentro do subformulário, mas desse jeito eu vi que não dá certo.
Esse processo funciona com uma consulta acréscimo, mas terei que tratar erros de duplicidade, porque se o usuário executar a consulta 02 vezes, terei o dobro de registros, pois usando a consulta, não tenho como vincular as ID's de campo Mestre e Filho, para que todos os registros fossem lincados, assim, evitaria duplicidade.

Esse processo eu queria fazer por VBA, mas não estou conseguindo, por isso recorri aos especialistas do Fórum.

Espero ter esclarecido melhor a situação.

Obrigado.

Att.,
Diego

Olá Diego,
Isso não seria possível apenas com uma tabela para o formulário (contendo os campos Funcionário e Cidade) e uma para o subform (contendo as Empresas e a Cidade)?
Depois poderia vincular o subform ao form pelo campo Cidade.
Não funciona assim?
Porque a necessidade de VBA?

Sim essa é a minha opção mais simples se eu tivesse 01 ou 02 clientes, mas há cidades que possuo 10, 20 até 30 clientes, e para eu não ter que incluir cliente por cliente de uma determinada cidade no subformulário, eu quero incluir todos referente a cidade selecionada de uma só vez no subformulário. Já consegui por consulta acréscimo, mas a dúvida inicial era fazer por VBA.
Pois além das 02 tabelas de controle do formulário e subformulário, eu tenho uma terceira tabela, a de "clientes", a qual eu quero inserir no subformulário de acordo com o filtro.

Daí a necessidade do VBA, pois deixará a aplicação mais limpa e eficiente.

Obrigado pela dica.

Boas Diego.. A minha opinião:

Carregar um recordset baseado na tblCLientes, filtrado pela cidade

Depois que selecionar o funcionário e a cidade, carregaria este recordset...

Um Loop pelo recordset adicionando o registro na tbl inerente ao sub form

Do While Not Rs.EOF
CurrentDb.Execute "INSERT INTO tblXXXXX (Campo1, Campo2, Campo3) Values (""" & ID para Relacionamento & """,""" & Rs!xxxxxx & """,""" & Rs!nnnnn & """)"
Rs.MoveNext
Loop


É por ai.

Cumprimentos.

Olá Diego,
O problema já foi sanado?
Se sim, não esqueça de clicar no [Resolvido], para encerrar o tópico.
Valeu.

Me desculpe pela falta de respostas.
Sim, o problema foi sanado, mas com consulta acréscimo.
Deixei a consulta dependente dos filtros do formulário e inseri um botão para executar a consulta e atualizar o subformulário.

Obrigado a todos.

O Fórum agradece o retorno.