[Resolvido]Incluir cadastro na tabela se não existe na combobox

Volto a pedir ao pessoal do fórum a ajuda a seguir

Tenho um formulário que entro com meus pedidos, quando tento digitar na caixa de combinação um produto que não esta cadastrado da a mensagem de erro padrão do Access (O texto que você informou não é um item válido da lista etc...) como faria para tirar esta  mensagem.



Sou grata pela atenção de todos

Ola bom dia !

Se quiser apenas tirar a mensagem (não recomendado)

No evento VBA NotInList da sua caixa caixa de combinação:

Private Sub SuaCaixaCombinação_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
End Sub


Se pretender um tratamento bem feito em que abre um segundo form para introduzir o item se não estiver na lista;

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

JP , quanto a mensagem deu tudo certo, só não atualiza a lista, tenho que sair do campo e retornar novamente para atualizar, com devo proceder para atualizar a lista

Lista, está-se a referir à caixa de combinação.

Me.caixadecombinação.Requery