[Resolvido]Caixa de texto baseada na caixa de seleção

Boa tarde.
Tenho um form com subform contínuo, existe um campo de seleção que uso para filtrar os produtos que serão comprados.
Após esta seleção, clico no botão gerar pedido e o sistema escreve em um caixa de texto "OK".
O problema é que só escreve na caixa que têm o foco, as outras caixa que foram marcadas na seleção não recebem este texto.

Como fazer para que todas as caixas marcadas recebam este texto?
Obrigado e boa tarde.

Tente escrever na tabela e atualizar o formulário:

Código:

CurrentDb.Execute "UPDATE NomeDaTabela SET NomeCampo='OK' WHERE CampoSeleção=-1 And Código=" & Forms!NomeFormPrincipal!Código & ""

Me.Refresh

Estou supondo que, no formulário principal, tem um código em comum a todos os registros que foram marcados na caixa de seleção. Se for diferente, altere para adaptar.

Boa noite.

Perfeito Críquio!
Funcionou, já havia visto este seu código, tentei adaptar, mas não funcionou, agora com as descrições direcionadas para o meu, funcionou direitinho.

Ficou assim:

CurrentDb.Execute "UPDATE Orçamentos_Sub SET Txt_Comprado='OK' WHERE Selecionado=-1 And Id_Sub_Orçamentos=" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Id_Orçamento & ""
Me.Refresh

Só mais uma dúvida.
Se eu quiser desmarcar os campos selecionados todos de uma só vez?

Faça o mesmo procedimento SETando o campo seleção igual a 0. Se necessário passando o filtro para selecionar apenas o código do registro no formulário igual você fez.

Deu certo, mas com base neste raciocínio, como faço para transportar o número do pedido gerado no formprincipal para o(s) registro(s) marcado(s) no subform contínuo?

Ex: se eu marcar somente um registro no subform ele escreve numa caixa de texto somente neste registro.

Prometo que é a última pergunta.
Obrigado.

Código:

... SET Txt_Comprado='OK', CampoPedido=" & Forms!NomeForm!CampoNúmero & " WHERE...

Tambem pode tentar Parent no lugar de Forms!NomeForm

Bom dia Críquio.
Coloquei assim, mas não deu certo.

CurrentDb.Execute "UPDATE Orçamentos_Sub SET Id_Pedido=" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Número_Pedido_Gerado & " WHERE Selecionado=-1 And Id_Sub_Orçamentos=" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Id_Orçamento & ""

Exibe o resultado: -25, que na verdade não têm nada a ver com o id que foi gerado.

Vou explicar:

Tenho um campo personalizado (texto) no form principal que é gerado automaticamente uma numeração, gostaria de pegar este número e transferir para um campo texto somente para os registros que foram selecionados no subform.

Abraços.

Não havia entendido, modifiquei o código assim:

CurrentDb.Execute "UPDATE Orçamentos_Sub SET Txt_Comprado='OK', Id_Pedido = " & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Número_Pedido_Gerado & " WHERE Selecionado=-1 And Id_Sub_Orçamentos=" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Id_Orçamento & ""

Mas também não funcionou.

Me ajuda ai.
Obrigado.

Tente colocar aspas simples junto às duplas:

... Id_Pedido = '" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Número_Pedido_Gerado & "'...

Consegui fazer desta forma, funciona direitinho, mas só funciona para a linha selecionada na caixa.
Por exemplo, se eu marcar mais de uma caixa, ele só gera a numeração na primeira caixa.

Form![GERAR_PEDIDOS_PRODUTOS_SUB]!Id_Pedido = Forms![6-GERAR_PEDIDOS_PRODUTOS]!Número_Pedido_Gerado

Não consegui adaptar deste jeito que vc colocou.

Está passando o parâmetro correto na condição WHERE?

Não manjo muito de condição where, mas está deste jeito.

CurrentDb.Execute "UPDATE Orçamentos_Sub SET Id_Pedido = '" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Número_Pedido_Gerado & "' WHERE Selecionado=-1 And Id_Sub_Orçamentos=" & Forms![6-GERAR_PEDIDOS_PRODUTOS]!Id_Orçamento & ""

Pô será que ninguém pode me ajudar?
Obrigado.

Galera vou postar o banco aqui pra ver se vcs me ajudam.
Estou precisando demais disso.
Obrigado.

Fiz o teste no botão salvar do seu formulario e funcionou;

CurrentDb.Execute "UPDATE Orçamentos_Sub SET Id_Pedido = '" & Me.Número_Pedido_Gerado & "' WHERE Orçamentos_Sub.Selecionado=-1 And Id_Sub_Orçamentos=" & Me.Id_Orçamento & ""

Perfeito João Paulo!
Eu sabia que não seria tão difícil pros Mestres resolverem.
O que uma aspa ou colocação de palavras erradas não faz.
Obrigado meu amigo.
Resolvido.

Obrigado pelo retorno o fórum agradece.