[Resolvido] Desativar mensagens de erro internas

Boa tarde. Tenho um formulário de cadastro com caixas de combinação e um subformulário. Esse subformulário possui outro subformulário. Um tópico sobre as caixas nesse subformulário ainda está aberto mas o pepino agora é outro.
Quando um item é digitado e não consta na lista, o Access exibe uma mensagem interna do sistema.
Tem como eliminar essa mensagen trocando por uma apropriada ao sistema que estou desenvolvendo? Não quero desativar todas as mensagens, mas só relacionada às caixas de combinação.

Obrigado!

Os controles tem uma propriedade par personalizar mensagens de erro. Dê uma verificada na aba "Dados" ou "Outros". Pode ser feito via vba tambem. Aqui no forum tem bastante tópicos sobre o assunto. Pesquise por acDataErrContinue

Olá Norbs, obrigado, vou tentar aqui.
Abrs!

Não deu certo. Deu a mensagem de rótulo não definido. Tipo_cabines é um campo de texto. Isso interfere?
Mostrei em vermelho onde deu o erro.

Private Sub cbCabines_NotInList(NewData As String, Response As Integer)
On Error GoTo tipos_cabines
Response = acDataErrContinue
Cod_cabine.Undo
MsgBox "O nome digitado não consta na lista!"
Exit Sub
Trato:
MsgBox Err.Description
End Sub

Tbl_Cabines - O nome da tabela usada na caixa de combinação.
Cod_cabines - Código numeração automática
Tipos_cabines - texto 255 caracteres

cbCabines - nome da caixa de combinação

Juliano

Posso dar uma puxadinha na orelha?

Veja o código passado pelo Norberto:

Private Sub cbCabines_NotInList(NewData As String, Response As Integer)
On Error GoTo Trato 'Se tentar ler o código, ele está dizendo: "Se tiver algum erro vá para Trato, E onde está Trato?
Response = acDataErrContinue
cbCabines.Undo
MsgBox "O nome digitado não consta na lista!"
Exit Sub
Trato: ' aqui, portanto se tiver algum erro ele pula pra essa linha e executa as linhas abaixo.
'Desculpe amigo, copiar e colar somente, não se aprende VBA tem que ler e entender a coisa.
MsgBox Err.Description
End Sub


E esse código acima é um dos mais simples.

Você pode até ficar zangado comigo, mas tenho que alertar para teu próprio bem.

Grande abraço

Ok, pode puxar a orelha...rsrs. Não conheço a linguagem e nem tenho experiência com vba. O que faço é adaptação e quando não consigo eu envio os dados necessários. Na maioria dos meus trabalhos, uso sempre macros e quando preciso de vba vou atrás de quem pode ajudar.
Quando posso responder alguma pergunta sempre busco explicar em nível básico, como fazer, como e onde inserir, justamente para pegar qualquer nível de conhecimento na área.
Creio que o forum é aberto a todos, seja nivel avançado, básico ou iniciante.

Tudo bem meu amigo

Eu, ao contrário, evito usar macros, aliás nunca gostei delas.
A única macro que entra nos meus aplicativos é a AutoExec, quando tenho que colocar códigos VBA para serem executados antes de se abrir o primeiro formulário da aplicação.
Como você utiliza macros, pode se quiser e é um bom aprendizado, transformar elas em código VBA.
E não se iluda, a medida que irá se aprofundando no Access, vai ter que usar e muito o VBA.

Grande abraço

Sim, já passei por esse entrave de ter que converter as macros quando tentei converter o banco para MDE. A vantagem das macros é a facilidade de construir. A interatividade é muito grande e para não pesar demais o arquivo tem o recurso da criação de grupos de macros que aumenta muito o desempenho.

É verdade, mas tem suas limitações

Voltando ao tópico, conseguiu resolver?

Não resolvi mas vou considerar resolvido. Lembrei que tenho um backup antigo de uns dos meus trabalhos que cheguei a substituir as mensagens do Access por uma própria relativa ao sistema. Vou procurar e depois eu publico aqui. Pode ajudar quem precisar.

Bom dia! Desculpa a demora para responder. Não foi fácil encontrar.
O código é esse que usei um tempo atrás para registros duplicados mas mesmo assim a mensagem interna do Access está aparecendo.

Private Sub cbBuscar_NotInList(NewData As String, Response As Integer)
If DCount("Cod_pve", "Tbl_PVECVE-MIK", "[Cod_pve]=Forms![Frm_Cadastro]![cbBuscar]") > 0 Then
MsgBox "Não existe o item digitado ou a lista não foi atualizada.", vbInformation, "Atenção"
Me.Undo
End If
End Sub

Olá, obrigado pela resposta.
O código até que funcionou. Eliminou a mensagem técnica mas não apareceu a mensagem própria do sistema que estou desenvolvendo.

Desculpe me intrometer, sei que já está "resolvido" mas a resposta mais "correta" e simples seria usar o comando: DoCmd.SetWarning false (para desabilitar as mensagens e erro do access) e DoCmd.SetWarning true (para reabilitar).Obs. è preciso desabilitar no início e habilitar no fim de cada sub-rotina senão irá desabilitar em todo o sistema. Maiores informações no site da Microsoft http://msdn.microsoft.com/en-us/library/office/bb214103(v=office.12).aspx

Bem vindo ao fórum;

Alvaro, se você ver com atenção, é uma combobox e esses comandos não funcionam para o:

NotInList(NewData As String, Response As Integer)

Se vc diz, quem sou eu para discordar. Só postei pq comigo funcionou perfeitamente, apenas usei minha experiência, não quero de forma alguma dizer que minhas palavras são as únicas verdades. Só quis mostrar que existem outras possibilidades e que de repente pudesse ajudar.

Alvaro amigão, o DoCmd.SetWarning funfa quando o Ms Access devolve mensagem de deletar tabelas, alterar tabelas e orever...

Para combobox, se não está na lista esse comando não funfa, podes dar uma testada ae.

Veja o que lhe quero dizer;

Ok, mais uma funcionalidade que aprendí....