MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido] Desativar mensagens de erro internas

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty [Resolvido] Desativar mensagens de erro internas

    Mensagem  julianovv em 27/2/2012, 19:31

    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!
    Rolling Eyes


    Última edição por julianovv em 7/3/2012, 21:36, editado 3 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  criquio em 27/2/2012, 19:35

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 27/2/2012, 19:39


    Olá!

    Use o evento SeNãoEstiverNaLista. O Response dá conta das mensagens.


    Private Sub VendaPrazoID_NotInList(NewData As String, Response As Integer)
    On Error GoTo Trato
    Response = acDataErrContinue
    VendaPrazoID.Undo
    MsgBox "Prazo de Pagamento não cadastrado!"
    Exit Sub
    Trato:
    MsgBox Err.Description
    End Sub



    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 11:35

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

    Wink
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 12:11

    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

    Rolling Eyes
    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 12:26


    Qual é o nome da combo? Tipo_cabines ou cbCabines ou Cod_cabine?
    Coloque o Nome exato da combo no código.

    On Error GoTo Trato
    deve ser mantido como no original.


    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 12:34

    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

    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 12:43


    Então creio que é só colocar o Nome correto do objeto no código.

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

    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 12:52

    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
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 13:23

    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.

    Wink
    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 13:29

    Tudo bem meu amigo Wink

    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
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 13:46

    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.

    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 13:51


    É verdade, mas tem suas limitações Crying or Very sad

    Voltando ao tópico, conseguiu resolver?
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 28/2/2012, 14:03

    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.

    Wink
    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 28/2/2012, 14:12


    Caro Juliano,
    o código que passei é muito eficiente nestas situações, mas usar é opção sua.

    E se publicar o exemplo no fórum, a comunidade ficará agradecida.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 6/3/2012, 12:00

    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


    Crying or Very sad
    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 6/3/2012, 12:24


    Insira
    Response = acDataErrContinue
    após a primeira linha.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 599
    Registrado : 14/12/2010

    [Resolvido] Desativar mensagens de erro internas Empty Re: Desativar mensagens de erro internas

    Mensagem  julianovv em 7/3/2012, 14:40

    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.

    Rolling Eyes
    avatar
    Convidad
    Convidado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Convidad em 7/3/2012, 15:14


    A dúvida do tópico parece estar resolvida.
    Quanto a exibir sua mensagem personalizada, poste o código que está usando.
    avatar
    alvarojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2012

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  alvarojunior em 23/10/2012, 12:17

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  JPaulo em 23/10/2012, 12:37

    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)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Instruções SQL como utilizar...
    avatar
    alvarojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2012

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  alvarojunior em 23/10/2012, 12:47

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  JPaulo em 23/10/2012, 12:56

    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  JPaulo em 23/10/2012, 13:07

    Veja o que lhe quero dizer;

    Anexos
    [Resolvido] Desativar mensagens de erro internas AttachmentAlvaro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 85 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Desativar mensagens de erro internas Folder_announce_new Instruções SQL como utilizar...
    avatar
    alvarojunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2012

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  alvarojunior em 23/10/2012, 15:00

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

    Conteúdo patrocinado

    [Resolvido] Desativar mensagens de erro internas Empty Re: [Resolvido] Desativar mensagens de erro internas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 22:00