[Resolvido]Se nao estiver na lista

Boa tarde colegas.

Utilizo o codigo:

Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Profissão não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "FrmProfissão", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

O que pretendo é ao cadastrar uma profissão que não esta cadastra preencho o campo txtprofissao no frmProfissão quando este abrir.

obrigado

Olá, tente desabilitar temporariamente a inibição de erros, para verificar que tipo de erro está a dar.
Abraço

ao preencher a profissão pedreiro e esta não esta cadastrada, abra o form profissão e o campo txtprofissão fique preenchido pedreiro.

Resolvi acrescentado o codigo no evento ao carregar do FrmProfissão

If Not IsNull(Me.OpenArgs) Then
Me!txtProfissao = UCase(Me.OpenArgs)
End If

Boa noite ve se te ajuda..

Código:

On Error Resume Next
Response = MsgBox("Profissão não Cadastrado no Sistema: " & NewData, vbYesNo, "Atenção")
  If Response = vbYes Then
  DoCmd.OpenForm "FrmProfissão", , , , acFormAdd, acDialog, NewData
  Me.SuaCombo.Requery
Else
    Response = acDataErrContinue
    SendKeys "{ESC}"
End If

Legal

Bom dia,
Coloquei estes códigos , mas não responderam os meus objetivo, Fml_Empenho, tenho varias caixa de combinação ou listagem que se relacionam com vários formulários, e neste Fml_Empenho, faço todos os cadastros, queria não precisar fechar ele quando precisasse inserir um cadastro novo, nas caixas, e ao inserir o novo fizesse a atualização automática, sem da erro e ter de reiniciar o formulários,