[Resolvido]Preencher todos os campos de um subformulário com um um campo de outro subformulário.

Boa tarde!
Estou em apuros!!...srsrsr
Tenho um formulário (A) que possui 2 subformulários (A.1 e A.2) na mesma página.
Preciso que o formulário A.1 busque os dados de um determinado campo em A.2 a armazene em todos os campos de uma determinada coluna de A.1.
Alguém?
Obrigado!

Valmir

Acredito que não precisa gravar o mesmo dado em outra tabela.

Se o dado é do mesmo registro de uma outra tabela,

acrescente as duas tabelas na consulta da fonte de registros do formulário

e arraste o campo que deseja para a grade da consulta.

Se não for isso, dê detalhes.

[ ] '

Olá Noobezinho, obrigado!

Mas eu realmente preciso que um subformulário 'pegue' os dados do outro subformulário, ou seja, eu tenho um Sub A1 que representa a especificação de um pedido, já no Sub A2 eu tenho as Ordens de Compras (a serem criadas) por fornecedor... E para ambito de relatórios preciso que um campo da Sub A1 faça referencia na Sub A2.

Resumindo:

ANTES DA ATUALIZAÇÃO
Sub A1

Cod___Produto____Fornecedor____RefA2
1_____Peça1________F1_______ (vazio)
1_____Peça2________F1_______ (vazio)
1_____Peça3________F1_______ (vazio)

Sub A2
Cod____Fornecedor Aprovado  
352________F1


DEPOIS DA ATUALIZAÇÃO
Cod___Produto____Fornecedor____RefA2
1_____Peça1________F1_______ (352)
1_____Peça2________F1_______ (352)
1_____Peça3________F1_______ (352)

Sub A2
Cod____Fornecedor Aprovado  
352________F1

Como faço isso?
Grato!

Valmir

Disponibilize as tabelas/consultas e formulários afins.

Assim poderemos ver a estrutura e tentar ajudar

Aguardamos ...

Bom dia!
Segue o arquivo

https://www.dropbox.com/s/fal0mzbxhu2guau/Banco%20de%20dados%20Compras%20NTvs02.accdb?dl=0

O detalhe está no formulário "4_Formulario_Ordem_Compra".

Grato!

Bom dia !

Olhei os dois subforms e vejo que os campos estão preenchidos.

Então, diga qual caixa de texto do suform da esquerda deve receber  os
dados da caixa de texto do subform da direita.
E creio que queira o código num desses botões que estão duplicados.

Aguardo...

Bom dia, segue link com a explicação detalhada.

https://www.dropbox.com/s/v1ehrkxbuo2s8rb/Explicacao.png?dl=0

Muito obrigado, pelo interesse... (Estou apavorado)... kkkk

Ah, só um detalhe... Os campos estão preenchidos pois eu os preenchi manualmente...Mas gostaria que fosse automático. Grato!

Automático, de que jeito

Seria sempre que os dois subforms estiverem exibindo o mesmo registro

mas, o subform da direita tiver com o campo RefOrdemCompra sem dados?

Ou seja, sempre que tiver dado no campo código do subform direito, o mesmo

deve ir para o campo do da esquerda, quando não houver nesse?

Noobezinho,

Exatamente. Sempre quando criar um novo código no sub da direita, este deverá ser 'jogado' para o sub do meio (De: Código Para: RefOrdemCompra)

Grato!

Um última pergunta:

Sempre que houver um novo registro no sub da direita, já
existe esse registro no sub da esquerda?

Noobezinho,

Não. O código gerado no sub da direita será uma código novo... E este deverá ser copiado para o sub do meio.

Grato!

Dentro do sub com fundo verde, estão esses dois subs.

O que preciso saber é a ordem em que serão cadastrados os registros

em cada sub, se no da direita primeiro e depois o da esquerda, para

então saber onde colocar o código para povoar o campo dos registros

do sub direito.

Bom dia!
Fiz um vídeo explicando melhor o problema e o funcionamento das tabelas...
https://www.dropbox.com/s/opi9j0595m7lfoq/Video_1450693375.rar?dl=0
Grato!

Verifique o teu vídeo no dropbox.

Assim que abre a página , ele para em "arquivo sendo enviado".

Pronto, já está disponível!

Valmir

Taí teu aplicativo modificado:

Veja a propriedade ao Sair da caixa de texto Ordem_Compra do sub da direita

Copiei a consulta da Fonte de registro do sub da direta e salvei

essa consulta para utiliza-la na expressão SQL , no código VBA, da referida

caixa de texto.

Defini a  propriedade Permitir adições do sub da esquerda = Nâo.
Assim não aparece  a ultima linha que dava erro por não haver registro.

Noobezinho (que não é nada Noob...srsrsr)

Ficou QUASE perfeito! A unica coisa que eu precisava era que a condição Where que está condicionada ao Código também estivesse condicionado ao Fornecedor...

Tentei fazer estas duas condições no Where mas não consegui...

Por favor quebra mais essa...

Grato!

Mude a 2ª linha para essa:

"WHERE (((qrySolicitacao.RefSolicitacao)= " & Me.RefSolicitacao & " AND qrySolicitacao.[Fornecedor Aprovado] = '" & Me.Fornecedor & "'));"


Observação: Está usando o nome do fornecedor para fazer critérios.
Utilizar texto para critério é um erro, utilize sempre
o código numérico do registro.

muito obrigado meu caro NOOBEZINHO!!!

Valeu pela paciência e prontidão!!!

Tópico resolvido!!

Solução:

Private Sub Ordem_Compra_Exit(Cancel As Integer)

DoCmd.RunSQL "UPDATE qrySolicitacao SET qrySolicitacao.RefOrdemCompra = " & Me.Codigo & " " & _
"WHERE (((qrySolicitacao.RefSolicitacao)= " & Me.RefSolicitacao & " AND qrySolicitacao.[Fornecedor Aprovado] = '" & Me.Fornecedor & "'));"



Me.Parent!SubSubOrdemCompra.Requery
End Sub

Ótimo Valmir

Valeu pelo retorno

Boa sorte e...


Boas Festas