[Resolvido]ComboBox com Lista Oculta.

Boa tarde a todos.
Uso Access 2003

Como executar a rotina abaixo?

Se "Não Constar da Lista", impedir que se abra a caixa de listagem abaixo de MeuComboBox e sim abrir MeuForms próprio para cadastro, exportando o valor digitado (que não consta da lista) do MeuComboBox para o MeuCampo no MeuFors.

Obs.: O meu ComboBox refere-se ao nome de um fornecedor. Não posso só inserir o nome na tabela, preciso fazer o cadastro completo.

Grato Atenção

Luiz Gustavo.

help

Talvez seja algo assim:

If IsNull(DLookup("Campo", "Tabela", "Campo='" & Me.NomeDaCombo.Column(C) & "'") Then
    Me.NomeDaListbox.Visible = False
    DoCmd.OpenForm "NomeDoFormulário"
Else
    Me.NomeDaListbox.Visible = True
End If

Sendo (C) o número da coluna aonde está o elemento a ser pesquisado.

Ola
Criquio.
Mais uma vez, grato pela atenção.
Preciso de sua orientação para adotar sua sugestão

If IsNull(DLookup("Campo", "Tabela", "Campo='" & Me.NomeDaCombo.Column(C) & "'") Then
Esta linha está dando um erro! Tentei fazer algumas alterações mas não consegui.

Minha tabela (tbClientesFornecedores) tem os campos "CliForCod" e "CliForApelido" e "CliForNome"
Meu FormsSimples tem o ComboBoxe (Fornecedor) sendo a linha de origem a "tbClientesFornecedores", ou seja não tenho uma consulta, e sim uma istruçãoSQL ("CliForCod" e "CliForApelido" e "CliForNome")

Já tenho a instrução abaixo caso o ComboBoxe seja nulo:

Private Sub Fornecedor_Exit(Cancel As Integer)
If IsNull(Me.Fornecedor) Or Me.Fornecedor.Value = "" Then
Fornecedor.SetFocus
DoCmd.OpenForm "ClientesFornecedoresConsultar"
End If
End Sub

Caso não conste da lista ("Fornecedor" <> "tbClientesFornecedores","CliForApelido"), preciso impedir a abertura da lista e abrir MsgBox dando opção das instruções acima ou então cadastar novo fornecedor, ou seja ir para forms "ClientesFornecedoresCadastar"

Cara!!! Isto está parecendo uma carta!!! Perdão.

OBRIGADO

Talvez fosse o caso de se usar o evento "Ao alterar" e incluir depois do código acima:

Me.NomeDaCombo.Cancel

Desculpe-me Criquio

Não entendi o que fazer!

obrigado

Fale um pouco mais sobre o funcionamento esperado.

Oi Criquio.
Vamos lá

Quando não constar da lista quero:
> que a janela (lista) não abra;
> que não dê aquela mensagem automatica que não é um item válido
> fiz um pequeno BD de exemplo e estou postando aqui. Se puder dar uma olhada eu agradeço.



Qual o erro de sintaxe na expressão abaixo??
If IsNull(DLookup("CliForApelido", "tbClientesFornecedores", "Fornecedor='" & Me.Fornecedor.Column(2) & "'") Then

Obrigado

Para inibir a mensagem de erro, coloque no evento "Ao ocorrer erro" do formulário:

Response = acDataErrContinue

No evento "Após atualizar" da combo:

If DCount("*", "NomeTabela", "NomeCampo='" & Me.CampoDoForm & "'") = 0 Then
    DoCmd.OpenForm "NomeDoFormAAbrir"
    Forms!NomeDoFormAAbrir!NomeCampoDoFormAAbrir = Me.NomeDoCampoDoFormAtual
Else
End If

Valeu
Amigo

Response = acDataErrContinue > No evento "Ao ocorrer erro" do formulário resolveu o problema.

Abraços

Obrigado