[Resolvido]Produto não cadastrado código não funciona.

Bom dia amigos!

Testei o seguinte código que copiei do Mestre JPaulo mas não está funcionando. coloquei o código no evento "Se não estiver na lista" da minha caixa de combinação, mas nada, nenhum sinal. Quando digito um produto ainda não cadastrado ele somente me dá o retorno de mensagem do windows "não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na 'TabelaMercadoria'. Alguém sabe me dizer o porquê?
Grato!!!

Private Sub SuaCaixaCombinação_NotInList(NewData As String, Response As Integer)
If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "SeuSegundoForm", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Substitua o que está em negrito.

cbFuncionário: Nome da combo
tbl_Funcionario: Nome da tabela
Funcionario: Nome do campo da tabela.

Private Sub cbFuncionario_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Msg As String

On Error GoTo Err_cbFuncionario_NotInList
   If NewData = "" Then Exit Sub
   Msg = "'" & NewData & "' não esta cadastrado no Sistema." & vbCr & vbCr
   Msg = Msg & "Gostaria de adicioná-lo?"
   If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
       Response = acDataErrContinue
   MsgBox "Não adicionado. Tente novamente ou escolha um item da lista"
   Else
       Set db = CurrentDb
       Set rs = db.OpenRecordset("tbl_Funcionario", dbOpenDynaset)
       rs.AddNew
       rs![Funcionario] = NewData
       rs.Update
       Response = acDataErrAdded
   End If
Exit_cbFuncionario_NotInList:
      Exit Sub
Err_cbFuncionario_NotInList:
      MsgBox Err.Description
      Response = acDataErrContinue
End Sub

Agradeço a sua atenção cafpr, mas nem sinal. Nada acontece. Nem mensagem de erro. Somente a mensagem do windows.

Bom dia, com a permissão dos colegas.

Anexe  a base de dados, com as partes ( consulta, tabela, formulário ) envolvidas na tua duvida Rosalvo.

Não estou conseguindo enviar por aqui - WinRAR - Tem outra maneira?

https://www.dropbox.com/

http://ge.tt/

https://www.dropbox.com/s/rgpealarx6spi1b/Database2.rar?dl=0

Reveja os relacionamentos.

O que foi alterado:

1- Excluido o relacionamento entre as tbls Mercadoria e Compras dos campos Mercadoria e MercadoriaCpr

2. Alterado as chave primaria do campo Mercadoria para CodMerc da tblMercadoria e o nome de MercadoriaCpr por CodMerc na tblCompras.

3. Refeito o relacionamento entre os campos CodMerc (tbls Mercadoria e Compras)

4 Criado o frm_Mercadoria para digitar a Mercadoria em qual o codigo no list no fmiCompras (sugestão altere o fmi por frmCompras).

https://www.dropbox.com/preview/Database21.accdb?role=personal

Estou recebendo a mensagem que a pasta database21 não existe

teste

http://ge.tt/7ENudkm2

Olá Bom dia!

Me desculpe pela demora da resposta.

Abri o database21 e o que acontece:

Agora realmente o código funciona perfeitamente.
Mas quando vou inserir os dados do fornecedor, no formulário principal, recebo a seguinte mensagem:
"Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tabela Mercadoria"
Isso aconteceu com você também?
Abraço!

Agora percebi que se eu não inserir o nº da nota fiscal ele aceita o registro.

Conseguiu resolver;;;

Agora sim. Muito obrigado a todos pela atenção e dedicação!