[Resolvido]Se nao constar da lista - atualizacao automatica na tabela

Boa noite a todos e feliz 2012.
Solicito ajuda para o seguinte.
Tb produtor: campo id e campo nome
Tb produto: campo id, campo nome e campo id do produtor
Procuro o nome do produto numa combobox. Se o produto nao constar da lista queria poder atualizar a tabela de produto
automaticamente. Se fosse soh o produto, tudo bem, mas tenho que inserir o codigo do produtor com o qual estou trabalhando tambem. Se nao fizer isto o produto nao fica vinculado ao produtor.

Qualquer ajuda sera bem vinda.
Obrigada
Neideb

Boa noite colega Neideb. Na propriedade da combo acresenta este codigo aba eventos "se não estiver na lista

Private Sub Produto_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Produto não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "FrmProduto", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do formulário SeuFormCadastro.

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

Agora na propriedade do form onde esta cadastrando o produto e produtos no evento "No timer" acrescente Me.Refresh
e no evento intervalo do crono metro escreva 1000

E por acaso for cadastrar um nome que já tenha no sistema, então acrescente este código no evento após atualizar que ele diz que já há registro para esse nome e lhe mostra, podendo assim rever ou usar como consulta, ou alteração

Private Sub nome_AfterUpdate()
Dim AchaBarras As Variant
Dim rs As Recordset
Dim MyBar As Variant

Achanome = DLookup("[Produto]", "tblProdutos", "[Produto]='" & Me.Produto & "'")


If Achanome <> "" Or Not IsNull(Achanome) Then
MsgBox "Este Produto já encontra-se cadastrado no sistema!" & vbCrLf _
& "Mostrarei o registro na tela.", vbExclamation, "Atenção"

MyBar = Me.Produto
Me.Undo
DoCmd.SelectObject acForm, "nomedoformulário"
Set rs = Me.RecordsetClone
rs.FindFirst "[Produto]='" & MyBar & "'"
Me.Bookmark = rs.Bookmark
rs.Close
Else
Me.Descricao.SetFocus
End If
End Sub

Oi, obrigada pela atenção. Dá uma olhada no codigo que eu tenho. Ele funciona em outro programa inserindo automaticamente o nome que não consta da lista. A tabela onde funciona tem dois campos CodigoXXX e NomeXXX.
No caso em questão, a tabela que preciso atualizar tem 3 campos:
CodigoDoProduto, NomeDoProduto e CodigoDoProdutor que vem de outra tabela.
O usuário do programa quer inserir automaticamente o que for digitado. Preciso só dar um alerta para informar o que foi digitado e dar uma opção de inserir ou não.
Obrigada pela ajuda.

Private Sub CboNomeProduto_NotInList(NewData As String, Response As Integer)
Dim db As Database
Response = acDataErrContinue

If MsgBox("'" & NewData & "' não está na lista de Produto. Será cadastrado automaticamente.", vbOKOnly, "") = 1 Then
Set db = CurrentDb
Me.CboNomeProduto = Null
db.Execute ("INSERT INTO TbProduto (NomeProduto,CodigoProdutor) SELECT '" & NewData & "'")
Me.CboNomeProduto.Requery
Else
Me.CboNomeProduto = Null
End If
End Sub

Boa noite colega Neide, me perdoe pela demora, estava com visita de parentes......
O codigo esta correto e se há erros estão nas tabelas e relacionamentos.
Veja o exemplo que fiz para você. Retorne para sabermos se era esse o problema.

http://speedy.sh/JVqba/neideb.rar

Oi clovis, parece que somos notivagos. Estava estudando um monte de ideias e passei pelo forum para ver se tinha alguma ajuda.
Ainda bem que vc apareceu. Eu agradeco muito a atencao.
Logo cedo vou implementar e dou retorno. Tomara que de certo para eu seguir adiante. Estou com medo mesmo de que eu esteja com dificuldade de identificar qual o melhor processo a usar jah que tem tantos caminhos!...
Obrigada mais uma vez.
NeideB

Clovis, obrigada pelo exemplo. Vou usar no meu projeto.
Vou fechar este topico e abrir outro para pedir mais ajuda de vcs.
Valeu mesmo e agora vou dar mais um passo.