[Resolvido]Tratamento de Erros

Boa Noite

Galera estou precisando mais uma vez da ajuda do pessoal do forum.

Alguem pode me ajudar a Fazer um Tratamento de Erro numa macro?

Configuraçãos da minha Macro:

ação: AbrirFormulário
Condição: =[Codigo]="& [Codigo]

A Macro Funciona Perfeitamente, mas eu queria tratar um erro comum nesse tipo de condição da macro. Quando o Campo a Ser Filtrado é do tipo numérico e eu aciono a macro num campo nulo naturalmente da erro, pois não tem como filtrar um campo nulo. Então Como eu Fasso Pra Tratar Esse Erro.

Tentei Colocar uma Ação "Ao Ocorrer Erro" , mas não consegui Fazer Funciona, pois não conheço a sintaxe e sua maneira de trabalhar. No VBa Eu sei Tratar o Erro usando o OnError Goto, mas como eu faço dentro da Macro?

Grato a Colaboração de todos.

Tente assim no VBA:

On Error Resume Next

Obrigado pelo retorno, mas não da certo tratar o erro no VBA pois essa macro que eu utilizo eu faço um esquema pra fazer um menu com Macro e depois eu associo a macro as teclas de atalho de um botão, esse menu é feito tudo em macro então eu preciso tratar o erro na própria macro pois a macro não fica associada a nenhum evento no vba, por isso eu não consigo tratar os erros no vba, deu pra entender?

Resumindo tem como tratar o erro dentro da macro?

Qual a versão do seu Ms Access ?

Veja se o atende;
http://office.microsoft.com/en-us/access-help/onerror-macro-action-HA001226457.aspx

foi mal esqueci de menciona a versão do access que eu uso. No Caso é o Access 2007

Esse Link Eu Já tinha visto ontem, mas era em portugues o que eu tinha visto, e mesmo assim não consegui implementar na minha macro estou enviando o banco pra ficar mais fácil o entendimento da minha necessidade.

Vou Explicar a Logica que eu uso nas Macros.

1° Crio Uma Macro que Abri todos os Objetos que quero que eu Chamo de M_Filtro, e eu coloco um filtro na condição da Macro

2º Crio Outra Macro com o evento "Adicionar Menu" e Aponto Para a Primeira Macro que chamo de Bt_Filtro

3º No Formulário Eu Associo o Botão Para Abrir a Macro Bt_Filtro na Opção "Barras de Menu de Atalho" Localizado em Propriedades do Objeto > Outra > Barras de Menu de Atalho

4º No Caso Do Banco Enviado Eu Coloquei Apenas Esse Evento No Botão "Ir Para"

Dificuldade. Quando Eu Chamo Um Outro Formulário e o Cursor Estiver em um Registro que o Campo de Associação for Nulo dá erro (Natural), mas como tratar esse erro?

Obs.: O Menu Só Aparece Quando Clico com o Botão Direito do Mouse.


Grato Mestre J. Paulo

Você consegue resolver isso, utilizando a função Nz no criterio das Macros;

Exemplo testado;

Macro Detalhes
Abrir Formulario L_Details

="[Cod_L]=" & Nz([Cod_L];0)

Mas é claro, como eu pudi esquecer dessa função nz! O engraçado que essa função já esta sendo utilizada em várias partes do banco e eu nem me toquei que eu podia usar ela na macro, Mas J Paulo eu ainda preciso Saber como Tratar os Erros da Macro, pois eu tenho alguns Casos que tem um formulário que não tem o campo coincidente pra filtar ai da erro tb, nesses casos os formulários que não tem o campo concidente a macro apenas nao executasse a opção clicada. Ex.:

No meu menu tem a opção de abrir o formulário "fornecedor" filtrado pelo campo fornecedor, mas essa opção só funciona nos formulários que contenha o campo Fornecedor. Nos Formularios que não tem esse campo da erro 2950.

Eu Cliquei no resolvido cedo demais, desculpe é que eu não tinha feito os testes direito.

Muito Obrigado J Paulo pela solução

Cumprimentos

Ronaldo Amigão, nesse caso altere a sua Macro no tratamento de erro, deste jeito;

Se tiver o erro 2950, de campo não existente, abre o formulario correspondente.

Eu Já tinha feito exatamente assim, mas não funciona. Não sei se eu estou fazendo alguma coisa errada ou do jeito que eu estou usando a macro ela não ta aceitando essa configuração, sei lá. Tava Pensando em fazer funções mas não sei como eu faria pra fazer funcionar o menu, mas eu acho que eu teria que abrir outro tópico, não é? é que eu sei fazer a macro chamar a função e passar o parametro por ela, tipo o Parametro da minha função é o Codigo,Ex.: na macro eu colocaria:

Nome: Fornecedor
Evento: executarcodigo
NomeDaFunção: funcao(Forms!NomeDoFormulario!codigo)

mas é duvida é como eu fazer esse parametro dinamicamente pois eu não sei qual é o furmulário que vai chamar a função?

Se puder responder eu agradeço, se não eu posto outro tópico

Se for mais fácil tratar esse erro na macro, blz nem vou precisar dessa função se não vou ser obrigado a tratar o erro na própria função que eu acho que é bem mais fácil, porém eu terei essa necessidade acima que vai ser bem complicado pra mim resolver sozinho.

Lembrando que eu preciso da Macro de Qualquer Jeito, pq sem ela não sei fazer o menu

Grato e desculpe pelo incomodo

No ultimo exemplo que lhe passei, não funfa ???

Testei aqui e funfa do jeito que você quer.

Os Campos Nulos Funcionam.

É que No Exemplo que eu mandei não coloquei a Opção de Abrir Fornecedor, então estou enviando pra vc novamente dar uma olhada. Faça o seguinte teste pra vc ver o erro:

abra o Form Obras > Botão Direito No Botão "Ir Para" > Escolha a opção Fornecedor

ai vc vai ver o erro que quero tratar

mas tem uma coisa importante parece que a ação aoOcorreErro(onError) funcionar eu tenho que colocar na propriedade Nome o nomeDoErro e Direcionar o Erro Pra esse Nome, mas como fazer isso sem fazer que esse Nome não apareça no meu menu?

que rolo isso.rsrsrs

Vlw

Ronaldo meu amigo, não vamos complicar o simples.

Se você não tem como filtrar o form Fornecedor, para quê colocar o filtro no criterio da Macro ?

Veja o simples;

é que tem formulários que tem esse campo e outros não ou pode acontecer de gerar outros tipos de erros e eu queria aprender como tratar eles. Realmente pra resolver eu poderia no caso tirar a opção "Fornecedor"pra resolver, mas com isso eu vou ter que fazer mais menus personalizados, consequentemente eu vou ter varias macros e eu não queria encher meu bd de macro e também eu queria aprender a fazer isso pq não sei a necessidade que eu possa ter no futuro.

Grato

Sinceramente não trabalho com Macros.

A solução possivel é a que lhe passei, lamento não poder ajudar mais.

então blz

E se eu tentar fazer assim

E se na macro eu não colocar a condição ali e sim em uma função e na função eu trataria o erro Ex.: na macro eu colocaria:

Nome: Fornecedor
Evento: executarcodigo
NomeDaFunção: OpenFornecedor(Forms!NomeDoFormulario!codigo)

na função eu colocaria alguma coisa assim

function OpenFornecedor(Forms!???!codigo)

Meu codigo aqui

End Function

mas é duvida é como eu fazer esse parametro dinamicamente pois eu não sei qual é o furmulário que vai chamar a função?

Se puder responder eu agradeço, se não eu posto outro tópico

Eu sei que vc é o mestre das funções, por favor me ensine. Se der Problema eu abro um tópico na parte de funções, mas vc acha que assim vai dar certo ou então da uma dica ai(Se não for abusar da sua boa vontade).

Ae torna-se mais facil sim.

Pode utilizar a função OpenArgs na abertura dos seus formularios.

Eu to Vendo na net como funciona essa função openargs, ela serve pra algum objeto ganhar um foco pra uma macro ou código enxerga ela. É isso? Mas não to pegando a lógica de como eu vou utilizar, vc pode dar um help por favor. Nesse meio tempo estou tentando aprender mais sobre essa função.

Grato

Consegui fazer uma função que recebe o Nome Do Formulário Ativo. A ideia é o seguinte

com essa função eu uso pra fazer referencia ao Campo que eu preciso comparar pra abrir o formulário filtrando o campo que eu preciso e consiga tratar os diferentes erros que podem aparecer, mas to tendo um probleminha na função, Segue configuração e mais detalhe de como eu usei a macro e a função:

Nome da Macro: Obras
Ação: Executar Codigo
Nome DaFunção: FilterObras()






Segue a função FormAtivo()

Function FormAtivo()
Dim nomeForm As form
Dim teste
Set nomeForm = Screen.ActiveForm

FormAtivo = nomeForm.Name

End Function





Segue a função que ta dando erro

Function FilterObras()

Dim formulario as string ' Se eu defino diferente disso da erro de propriedade invalida

formulario = FormAtivo
MsgBox formulario 'Só pra saber se ta recebendo o formulário certo


DoCmd.OpenForm "L_Obras", acNormal, , "[Cod_L]=" & [form!& formulario& !Cod_L]
' Na linha acima da a seguinte mensagem de erro: Erro de Compilação: Nome Externo Não ' Definido.

End Function


Suponho que este erro é porque o vba Não ta achando o Formulário, então o que eu tenho que mudar pra que essa função funcionar?

E ai Galera deixa quieto essa função, ta mais facil fazer mais macros. Como o J Paulo falou "Pra complicar o que é simples", vlw galera fui

grato pela a ajuda J Paulo