[Resolvido]Mensagem de Erro do Access

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.

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

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.

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

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.

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

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

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

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?

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

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

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.

Veja se é isso que pretende

[ ]'s

Noob

É 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!

Ótimo, amigo

Valeu o retorno

Boa sorte!

Noob