[Resolvido]Erro comum ao exportar para subformulários e como consertá-los?

Boa noite integrantes deste forum!

Estou com um problema que pode ser simples mas está quebrando a cuca.

No meu Subformulário quando clico na listbox(produto) cria-se um nº sequencial automático chamado "SEQ" Após exporto o "SEQ" para um subformulário.

com este código:

Private Sub Produto_Click()
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Detalhes_Produtos") ' correto
With rs
rs.AddNew
rs("SEQ") = Me.SEQ
If MsgBox("Confirma a Inclusão dos Dados", vbYesNo, "Entradas") = vbYes Then
rs.Update
MsgBox "Registro incluído com sucesso!", vbExclamation, "Quick"
Else
rs.CancelUpdate
MsgBox "Operação Cancelada!", vbExclamation, "Quick"

End If
rs.Close
db.Close
End With
Form_Entradas.Requery
DoCmd.OpenForm "produtos", acNormal, , "cadprod = " & Me.PRODUTO

End Sub

Aí que está o problema, se abrir as propriedades do subformulário que recebeu as informações está com o nome sub_detalhes_produtos, já no project do access(visual basic) está form_detalhes_produtos.

já renomeei o subformulário sub_detalhes_produtos e nada.

Estou exportando para ("Detalhes_Produtos"), e aparece na tabela detalhe_produtos, mas neste subformumário não aparece.

Pois preciso que apareça o "SEQ"(nº sequencial) no subformulário porque ao digitar as informações na frente deste código ao fechar e abrir o Subformulário Detalhes_entradas retornará nos campos: Qtde, Valor, Data a linha digitada no SEQ do sub_detalhes_produtos,usando o código:
=SeImed(ÉNulo([SEQ]);0;DÚltimo("[DATA]";"DETALHES_PRODUTOS";"[SEQ]=" & [SEQ])) para data

=SeImed(ÉNulo([SEQ]);0;DÚltimo("[QTDE]";"DETALHES_PRODUTOS";"[SEQ]=" & [SEQ])) para quantidade e assim vai...

o problema maior é que lá no formulário Detalhes_produtos não recebe o SEQ que exporto no subformulário Detalhes_entrada estou digitando na mão, só que digitar a sequência errada já viu que vai virar!! 

Se alguém puder me ajudar ficarei muito grato.

Oi pessoal, desculpe pela complicação.

Vou explicar melhor.

exporto "SEQ", um campo numérico sequencial(1,2,3,4,5...) de um subform A para um campo numérico Subform B.

Quando abro o subform B,não está lá a informação que exportei.

Como sei que o nº sequencial foi por exemplo "2", digito no subform B o "2" e na frente a data, quantidade e valor.

Após atualizar, Quando volto para o subform A, nos campos Data, Qtde e valor, lá está os valores que digitei no subform B, graças ao código que consta nas propriedades do campo do Subform A, em:

fonte do controle: =SeImed(ÉNulo([SEQ]);0;DÚltimo("[DATA]";"DETALHES_PRODUTOS";"[SEQ]=" & [SEQ])) etc...qtde e valor.Ok.

Só gostari que o SEQ do subform A fosse para o Subform B sem que eu precise digitar manualmente.

Ob. 

Ola Campos,

Tenta usar o Requery quando o subformulário B receber o foco.

é um ideia.


Nivaldo.

vou fazer o teste, Ok!

Por enquanto obrigado, Nivaldo.

Nivaldo, na verdade preciso de um código para exportar o SEQ do subf1 para o subform2, mas depois vou utilizar sua sugestão, para atualizar.

Estou mandando a imagem ilustrada para estudo.

Ok.

Estou postando a cópia da tela (Arquivo Word) se alguém puder transferir por desenho agradeço.

Continuando:

Quando retorno para o form entradas os dados já estão preenchidos porque usei a fórmula:
=SeImed(ÉNulo([SEQ]);0;DÚltimo("[QTDE]";"DETALHES_PRODUTOS";"[SEQ]=" & [SEQ])) contida nas propriedade da textbox "origem do controle"

Ok!

Preciso de exportar este campo numérico para o segundo subform, substituindo o que faço manualmente, evitar erros.

ob. 

Campos,

Dá uma olhada no arquivo em anexo, que foi disponibilizado pelo JPaulo.
São dicas excelentes de como referenciar formulários/subformulários.

Nivaldo.

Bom Dia Nivaldo!
 
Gostei muito do conteúdo que me enviou, com certeza vai ser muito útil pra mim,
pois estou iniciando no Access Avançado.
Vou testar os códigos.
Muito Obrigado!
 
Aproveitando, no formulário Produtos Tenho uma caixa de opção que quando esta true, calcula a média dos valores digitados no subformulário, quando está false permanece o valor maior.
 
só que quando entro no formulário o campo fica vazio, não mostra os valores calculados.
 
tentei colocar as fórmulas do módulo "Load" ao carregar também não funcionou.
 
Aí montei no time pra ficar atualizando constantemente, acredito que não é certo.A tela fica piscando.
 
Como faço pra que quando entrar no formulário as fórmulas sejam calculadas.
 
olha como estou usando(Quebrando o galho)
 
Private Sub Form_Timer()
Me.VR_bruto.Requery
If Me.CMD.Value = False Then
Me.VR_bruto.Value = Me.Texto44.Value
Else
Me.VR_bruto.Value = Me.Texto42.Value
End If
End Sub
E nas propriedades do formulário em intervalo do cronômetro: 1000.
Aí quando entro já calcula...   Não existe outra forma, a mais correta?
 
Vou postar um novo tópico.
Obrigado. 
Um abraço.

Resolvido!

Obrigado.

Resolvido!

Obrigado Nivaldo.

Obrigado pelo retorno.

O forum agradece.

Precisando é só dar um grito.


Nivaldo.