[Resolvido]mensagem do sistema em caixa de combinação

Bom dia pessoal, minha duvida e a seguinte, tenho uma caixa de combinação que busca o conteudo em uma tabela, quando é digitado algo que n esta na tabela coloquei para abrir um outro formulario, isso foi nas configurações para editar item da lista por um formulario, meu problema é que o sistema abre uma caixa de mensagem perguntando se desejo editar o item pelo formulario que irá abrir, como faço p que esta mensagem n apareça mais?

Defina a combo como "limitada à lista-SIM"na aba "Dados"

depois, na aba "Acontecimento" e no item "Se não estiver na Lista:

On Error Resume Next
Dim i As String
i = MsgBox("Não pode efectuar esta operação", vbCritical, "Aviso")
Response = acDataErrAdded
i = MsgBox("O item não faz parte da lista. Escolha um item da lista.", vbCritical, "Aviso")
Response = acDataErrContinue

Obrigado vieira, mas com esse codigo estou pedindo para o sistema me retornar outrs duas mensagens no lugar daquela, eu gostaria que ele n me retornasse nada, e abrisse um formulario que determinei

Com permissão do vieira...

No evento "Se não estiver na lista" da caixa de combinação:

Código:

Docmd.OpenForm "FormularioQueDeterminar"
Response = acDataErrContinue

E no eveno "Ao ocorrer erro" do formulário que tem a caixa de combinação:

Código:


Response = acDataErrContinue

Boas, Marcelo. Muito bom, embora não perceba a ideia do colega, pois para que isso funcione terá que escrever um item que não estiver na lista para que a caixa de combinação dispare para abrir um outro form, caso contrário não sai do sítio, penso eu, pois o evento "Not inList" não é apropriado para o que o colega quer fazer, como muito bem sabes.

Um pitaco: No evento ao fechar do form, convém sempre declarar uma variável, pois corre-se o risco de ao fechar aparecer a mensagem do access. Dim Response. Estou a declarar como variant, mas pode ser um astring. Abraço colega.

perfeito marcelo, funcionou como eu queria, muito obrigado a vc e ao vieira pela disposiçao de ajudar, grato

Marcelo, vieira, aproveitando a boa vontade de vcs, segue minha duvida, a mecanica e a seguinte, essa caixa de texto mencionada na duvida anterior, é onde busco produtos em uma tabela, quando digito algo fora da lista, é onde abre um outro formulario para uma pesquisa melhor, este formulario contem uma caixa de texto que e onde vou digitar o que quero buscar e abaixo um quadro lista onde aparecem todos os resultados que contem o que foi digitado acima. bom, o que gostaria é que quando esse formulário abrisse, essa caixa de texto copiasse o que havia digitado na caixa de combinação e não estava na lista. lembrando que essa caixa de combinação esta em um sub formulario continuo

Boa noite, reabri o tópico, uma vez que ainda permanece com dúvidas.
Caso dessa vez seja completamente sanado a questão, marque como resolvido.

Vamos lá:

No evento "Se não estiver na lista" da caixa de combinação, altere a linha:

Código:

DoCmd.OpenForm "FormularioQueDeterminar"

Para:

Código:

DoCmd.OpenForm "FormularioQueDeterminar", , , , , , NewData

E no evento Ao abrir do formulário que está sendo aberto (FormularioQueDeterminar):

Código:

If Not IsNull(Me.OpenArgs) Then Me.CaixaDeTexto = Me.OpenArgs

Veja se é isso.

esse codigo nao funcionou marcelo, na vdd deu ate um erro no access q ele fecha ou reinicia, tive q retira-lo

Então meu amigo, deve estar fazendo algo errado.

Veja o exemplo exatamente como informei anteriormente:
Digite algo que não esteja na lista...