[Resolvido]Atualizar caixa de cobinação no subformulario altomaticamente

Boa noite amigos
Tenho um formulário de cadastro e pedidos como um subformulario onde busco os produtos para inserir no pedido, as vezes o produto não esta cadastro, tenho que abrir formulário de cadastro de produtos. A pergunta é: como fazer para quando eu fechar o cadastro de produtos automaticamente esse produto já aparecer no meu subformulário.estou usando essa expressão essa expressão: Forms!frmpricipal!meusub!meucontrole.Requery.onde esta o erro:lebrando que esse código estou usando no evento ao fechar do formulário de produto.

Boa noite,
que controle é meucontrole
qual erro está dando?

MEU CONTROLE É UMA COMBO QUE PEGA OS PRODUTOS NA TABELA PRODUTOS E O ERRRO É O SISTEMA O ACCESSE NAO PODE LOCALIZAR O CAMPO NO FORMULÁRIO

Se está dando esse erro, sugere que o nome da sua combo não está correto. Dê uma revisada aí nos nomes...

essa combo é um campo:descrição, nesse caso teria que trocar o nome do campo na Tabela?

Poderia postar o banco para vermos?
O campo na tabela seria e em qualquer outro local, é bom
evitar acentos.
Descrição, recomedado descricao.

boa noite, coloque no evento se nao estiver na lista, entre no modulo e tente adaptar esse codigo:

Dim strSQL As String, X As Integer
Dim LinkCriteria As String
X = MsgBox("Fornecedor não cadastrado. Deseja cadastrar?", vbYesNo, "Sicoest")
If X = vbYes Then
strSQL = "Insert Into Tab_Fornecedor ([NomeFantasia]) values ('" & NewData & "')"
' MsgBox strsql
CurrentDb.Execute strSQL, dbFailOnError
LinkCriteria = "[NomeFantasia] = '" & Me.Forne.text & "'"
DoCmd.OpenForm "Fornecedor", , , LinkCriteria

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

jntrindade escreveu:boa noite, coloque no evento se nao estiver na lista, entre no modulo e tente adaptar esse codigo:

Dim strSQL As String, X As Integer
Dim LinkCriteria As String
X = MsgBox("Fornecedor não cadastrado. Deseja cadastrar?", vbYesNo, "Sicoest")
If X = vbYes Then
strSQL = "Insert Into Tab_Fornecedor ([NomeFantasia]) values ('" & NewData & "')"
' MsgBox strsql
CurrentDb.Execute strSQL, dbFailOnError
LinkCriteria = "[NomeFantasia] = '" & Me.Forne.text & "'"
DoCmd.OpenForm "Fornecedor", , , LinkCriteria

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

Pelo o que o autor do tópico descreveu, ele está com dificuldade em dar um requery em uma combo e não em tratar os itens que não estiverem na lista.
Mas de qualquer forma, se ajudar o autor, maravilha se não, será conhecimento compartilhado. 

obrigado amigos já resolvi,apenas excluir o subformualrio e criei outro funcionou normal