[Resolvido]Como executar esse codigo (se não estiver na lista)

Dilson Como adptar este codigo,para abrir um determinado form de cadastrado

este trabalhando com uma combo nomecliente ,eu queria que ao digitar nome fora da lista abrir o form para cadastro

Teste e para evitar a mensagem do Access, defina na caixa arranque o nome da sua app

On Error Resume Next
If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.OpenForm "Clientes Inserir"
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If

estou fazenda assim
Private Sub NomeCliente_NotInList(NewData As String, Response As Integer)

On Error Resume Next
If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.OpenForm "Clientes Inserir"
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
mas a msg padrão do acess sempre apareçe primeiro que o form

Testei agora mesmo com o código que enviei e funfa direitinho. Também defini no arranque o nome Provendas e a msg do access não aparece. Vou-lhe enviar a bd por email.

beleza vamos ver o que estou a fazer de errado

Se não chegou no email. vai por aqui

http://dl.dropbox.com/u/8157744/Provendas.rar

Agravina,

O código do Vieira, funciona no pleno. Só precisará substituir:

Response = acDataErrAdded POR Response = acDataErrContinue
Response = acDataErrDisplay POR Response = acDataErrContinue

Isso é para não aparecer aquela mensagem: "Não é um item da lista e coisa e tal"

Depois do Else poderá também colocar uma mensagem personalizada, colocando também:

Me!IdCliente.Undo

Dilson resolveu eliminou a msg padrão do access,Valeu um abraço

O fórum agradece o retorno de seu sucesso.