MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    [Resolvido]Mensagem de Erro do Access

    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty [Resolvido]Mensagem de Erro do Access

    Mensagem  LeoStar 26/2/2015, 18:04

    Caros colegas do fórum,

    Tenho este código:

    Public Function OPCAO()

    Dim strOpcao As String
           strOpcao = MsgBox("Deseja Continuar?...", vbYesNo, "CONTROLE DE ACÇÃO A EXECUTAR!") 
       If strOpcao <> 6 Then 
           MsgBox "Todas as Acções serão canceladas!...", vbInformation, "CONTROLE DE EXECUÇÃO DE MACROS!..."
       End
           Else 
       End If
    End Function
    ---------------
    Este código é chamado por uma macro do access que está num botão de formulário onclick

    Após a chamada da função existe ainda uma outra instrução na macro que abre um relatório caso o utilizador responda "sim" na caixa de msg strOpcao

    Funciona tudo bem mas se cancelarmos a abertura do relatório e após a mensagem "Todas as acções serão canceladas", aparece uma mensagem de erro do access como segue em anexo - erro.docx.

    PERGUNTA: Como posso desabilitar esta mensagem do access??? Já pesquisei várias respostas aqui no fórum mas não encontro forma de o fazer. Daí o meu pedido de ajuda.

    Antecipadamente grato pela atenção aguardo as vossas doutas sugestões.

    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Roberto_1977 27/2/2015, 16:50

    Boa tarde,

    Tente código abaixo:

    Public Function OPCAO()

    Dim strOpcao As String
    Docmd.setwarning false
          strOpcao = MsgBox("Deseja Continuar?...", vbYesNo, "CONTROLE DE ACÇÃO A EXECUTAR!")
      If strOpcao <> 6 Then
          MsgBox "Todas as Acções serão canceladas!...", vbInformation, "CONTROLE DE EXECUÇÃO DE MACROS!..."
      End
          Else
      End If
    Docmd.setwarning true
    End Function

    (Não testado)
    Caso precise, poste aqui sua BD ou parte dela onde se encontra problema.

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de erro do Access

    Mensagem  LeoStar 27/2/2015, 17:33

    Caro colega,

    Bem haja pelo seu interesse mas esse sei eu que não funciona...
    Na verdade esse comando desabilita as mensagens do access mas apenas as das consultas de acção...
    No meu caso a mensagem que aparece é uma mensagem de erro que por esquecimento meu não anexei mas que faço agora!...É uma janela de "passo individual" com um botão que diz: "Parar todas as macros"!.. Vou por a imagem em anexo.
    De qualquer forma bem haja mais uma vez... e se souber a solução agradeço post.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Roberto_1977 27/2/2015, 17:37

    Boa tarde,

    Não seria mais fácil para contornar esse problema se converter suas macros em código VBA ?
    Poderia num só código executar as funções que pretende.

    Caso queira um help poste aqui sua BD ou parte onde se encontra o problema e as pessoas aqui do Forum tentam dar um a ajuda.

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de erro do Acces...

    Mensagem  LeoStar 27/2/2015, 18:34

    Caro Roberto,

    Claro que isso seria uma solução mas a verdade é que na BD eu tenho variadíssimas macros feitas no "construtor do access" quer autónomas quer em formulários e em que em muitas delas, no seu início, existe uma caixa de mensagem informativa das acções que se irão iniciar. Essa caixa de mensagem foi também feita no construtor e aí não há a opção de "Deseja continuar? Sim/Não". Então eu lembrei-me de construir essa função "OPCAO" e chamá-la no construtor através do comando "executar código".
    Ora, essa é a razão pela qual optei por esta solução pois a BD é enorme e com muitas macros feitas no construtor, quer autónomas quer em formulários.
    As macros correm bem deste modo. Apenas NÃO GOSTO E NÃO FICA COM MUITO BOM ASPECTO - profissionalmente falando - que me apareça essa mensagem de erro cada vez que o utilizador não deseja prosseguir a acção planeada. Claro que se ele clicar no botão "Parar todas as macros" que aparece na caixa da qual anexei imagem, a acção pára e o assunto fica resolvido. Mas volto a repetir "FICA FEIO"!!!...
    Daí eu querer impedir o aparecimento dessa mensagem de erro (2001).
    Espero que tenha explicado bem a razão deste meu pedido de ajuda... na realidade se fosse converter todas as macros que a BD tem para vba nunca mais terminava...
    Grato pela atenção.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Noobezinho 27/2/2015, 19:48

    Vasco

    Simplesmente adicione a linha colorida no código,


    Public Function OPCAO()

    Dim strOpcao As String
    strOpcao = MsgBox("Deseja Continuar?...", vbYesNo, "CONTROLE DE ACÇÃO A EXECUTAR!")
      If strOpcao <> 6 Then
          MsgBox "Todas as Acções serão canceladas!...", vbInformation, "CONTROLE DE EXECUÇÃO DE MACROS!..."
       Exit Function
      End
          Else
      End If
    End Function


    Esse código também pode ser escrito assim:

    Public Function OPCAO()

    if MsgBox("Deseja Continuar?...", vbYesNo, "CONTROLE DE ACÇÃO A EXECUTAR!") = vbNo then
      MsgBox "Todas as Acções serão canceladas!...", vbInformation, "CONTROLE DE EXECUÇÃO DE MACROS!..."
       Exit Function
    Else
    End If
    End Function


    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de erro no Access

    Mensagem  LeoStar 2/3/2015, 02:58

    Caro Noobezinho...
    Bem haja pela atenção que prestou à minha dúvida mas se utilizar a instrução "Exit Function" como diz o que acontece é que as instruções que aparecem a seguir são executadas ao clicar "Não" e isso é o que não pretendo. A rotina sai da função e executa as outras instruções que estão na macro feita no construtor. Eu preciso pará-las e a instrução "End" faz isso mesmo só que me mostra a tal caixa que não queria que aparecesse....
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Noobezinho 2/3/2015, 14:02


    Anexe a)s) tabela(s), formulário(s) e macro em questão. para podermos
    entender a lógica da tua programação.


    Aguardo...


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de erro...

    Mensagem  LeoStar 2/3/2015, 17:16

    Olá Noob...

    Como é possível anexar um exemplo se só com um módulo e uma macro de teste ele me diz que excedi a capacidade?
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Roberto_1977 2/3/2015, 17:22

    Boa tarde,

    O Forum está com um problema no que consiste ao envio de anexos. Os administradores do site já estão a tratar do problema.
    Envia via Dropbox.

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Noobezinho 2/3/2015, 22:03

    Vasco

    Primeiro compacte o arquivo exemplo pelo Access: Aba Ferramenta de banco de dados -> Compactar e Reparar banco de dados.

    Segundo Comprima o arquivo no formato zip. O fórum só aceita anexos nesse formato.

    Caso use o Winrar, veja na minha assinatura como criar arquivo.zip nele.

    [ ]'

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de erro....

    Mensagem  LeoStar 3/3/2015, 01:16

    Caro colega...
    Parece que desta vez consegui. Já tinha seguido esses passos mas sem sucesso. O exemplo que envio é apenas constituído pelo módulo e por uma macro feita no construtor que tem uma mensagem. A ideia é que ao abrir a macro aparece a caixa de mensagem do módulo que tem 2 hipótese: sim/não. Ao fazer sim as acções desta - ou de qualquer macro criada no construtor prosseguem. Ao clicar não deve cancelar as acções subsequentes. O que acontece mas aparecendo a tal mensagem de erro do access que eu queria que não aparecesse.
    Espero ter explicado de forma a entender o que pretendo.
    Abraço.
    Vasco.
    Anexos
    [Resolvido]Mensagem de Erro do Access AttachmentTESTE.zip.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 11 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Noobezinho 3/3/2015, 02:12

    Veja se é isso que pretende

    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 18/05/2010

    [Resolvido]Mensagem de Erro do Access Empty Mensagem de Erro do Access...

    Mensagem  LeoStar 3/3/2015, 16:31

    É isto mesmo Noobezinho....
    Bem haja pelo seu tempo e "expertise"!... Não me tinha lembrado desta solução...
    Vai ser-me extremamente útil e poupar-me tempo...
    Mais uma vez bem haja!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    [Resolvido]Mensagem de Erro do Access Empty Re: [Resolvido]Mensagem de Erro do Access

    Mensagem  Noobezinho 3/3/2015, 19:41

    Ótimo, amigo

    Valeu o retorno

    Boa sorte!

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 25/1/2022, 18:08