[Resolvido]Evitar que o comboBox abra a lista

Boa noite a todos

Meu BD está funcionando assim: Se o ComboBox = "" ou ComboBox isNull abre um forms continuo onde seleciono o registro desejado. Quando digito um dado que não consta da lista, abre as Linhas da Lista para eu selecionar uma linha.

O que preciso: quando digitar um dado que não esteja na lista, que as Linhas da Lista não sejam aberta, e sim que abra uma MsgBox com a informação de que NÃO CONSTA DA LISTA e se desejo incluir? Caso sim, abra um forms para cadastro. Caso não, abra o forms continio para eu selecionar um registro.

Obrigado.

No evento "Se não estiver na lista" do seu campo, por exêmplo o campo Cidade, coloque:

Private Sub Cidade_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Dim ctl As Control
Dim strSQL As String
Set ctl = Me![Cidade]
If MsgBox("Cidade Não Registado !" & Chr(13) & "Deseja Registar a Nova Cidade ?", vbYesNo, "Aviso") = vbYes Then
Response = acDataErrAdded
NewData = CapitalizeFirst(NewData)
strSQL = " INSERT INTO [Cidades]([Cidade]) SELECT '" & Proper(NewData) & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
ctl.Value = NewData
DoCmd.SetWarnings True
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub


Não esqueça que o campo tem de estar definido como: "Limitado á Lista"

Oi
Mendesof

Tentei adaptar seu exemplo ao meu BD mas tive dificuldades e não funcionou corretamente.

E também, se não constar da lista, preciso ser remetido a outros formulários, não quero fazer a inserção direto na tabela.
A lista do ComboBox também continua sendo aberta, preciso evitar isto.

Pode me orientar ou dar outra sugestão?

Obrigado

Boa Noite Pessoal

Alguém pode me dar uma "Luz"

Obrigado

No evento de sua combo: Se não estiver na Lista
Coloque o código:

Dim sql As String
If MsgBox("NÃO CONSTA NA LISTA" & Chr(13) & Chr(13) & "Deseja cadastrar agora " & UCase(NewData) & " agora?", vbYesNo, "Cadastroo") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO SuaTabela(SeuCampo) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If

Obrigado TopBr

Estou tentando aplicar seu exemplo.
Em breve dou retorno.

Infelizmente não consegui obter os resultados desejados.
Não sei se é este o procedimento correto, mas vou marcar como resolvido e postar novamente de uma forma mais objetiva.
Obrigado a todos

Se puder postar o banco aqui indicando o que deseja o pessoal te ajuda.