[Resolvido]Ajuda com Combo

Ola pessoal no evento se não estiver na lista minha combo usei o codigo
Private Sub NomeCliente_NotInList(NewData As String, Response As Integer)

Dim strsql As String, x As Integer
Dim LinkCriteria As String
x = MsgBox("Esse cliente não existe. Deseja acrescentar?", vbYesNo)
If x = vbYes Then
strsql = "Insert Into cliente ([nomecliente]) values ('" & NewData & "')"
' MsgBox strsql

LinkCriteria = "[nomecliente] = '" & Me.NomeCliente.Text & "'"
DoCmd.OpenForm "clientes inserir", , , LinkCriteria

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

End Sub

Mas o problema é que tambem mostra a msg padrão do acess como excluir ela?

Coloque assim

Dim Msg, style, Title
Msg="fjdffffjf"
Style=vB QUE DESEJA
Title="Aviso"
Msg=MsgBox(msg,style,title)

ABS

Também pode usar assim para suprimir a mensagem padrão:

If vbYes = MsgBox ("Título [" & Me.NomedaCombo.Text & "] não pôde ser encontrado." VbNewLine & "Você gostaria de registrá-lo agora?", VbYesNo
vbQuestion +)
DoCmd.OpenForm "NomedoFormulário", acNormal, , , acFormAdd, acDialog, Me.NomedaCombo.Text & ""
If IsNull(Me.NomedaCombo) Then
Response = acDataErrContinue
Else
Response = acDataErrAdded
End If
Else
Me.NomedaCombo = Null
Response = acDataErrContinue

Vieira Feliz Ano
este codigo que enviaste ,1º linha fica em vermelho ,não funciona

Bom Dia

Teste agora
Dim strsql As String, x As Integer
Dim LinkCriteria As String
x = MsgBox("Esse cliente não existe. Deseja acrescentar?", vbYesNo, "Aviso")
If x = vbYes Then
strsql = "Insert Into clientes ([NºCliente]) values ('" & NewData & "')"
' MsgBox strsql

LinkCriteria = "[NºCliente] = '" & Me.NºCliente.Text & "'"
DoCmd.OpenForm "clientes inserir"

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If


De qualquer forma este procedimento é inútil neste caso e não necessário, uma vez que estamos a utilizar uma combo com uma função DLookup e temos um form cadastro clientes

Valeu Vieira,mas vou fazer de outra forma

Valew