[Resolvido]Tratamento de erro em tempo de execução

Boa noite,
Tenho um erro em tempo de execução no meu bd,
mas se faço desta forma entra num loop infinito:

Private Sub Form_Timer()
on error resume next
If Len(Dir("C:\Windows\System32\minhadll.dll")) Then
DoCmd.OpenForm "Orçamento"
Else
DoCmd.OpenForm "Aviso"
End If
End Sub

Nota:
O erro não acontece no access 2007 só no runtime.

Obrigado

Encontrei este código nota 10 do J Paulo:

Private Sub Form_Timer()

Dim Msg As String
On Error GoTo 1
'Seu codigo aqui...
If Len(Dir("C:\Windows\System32\snole653.dll")) Then

DoCmd.OpenForm "Orçamento"

Else

DoCmd.OpenForm "Aviso"

End If

Exit_1:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

1 a:
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
& vbNewLine & vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
Resume Exit_1

End Sub

O erro que aparece é o 2501, como faço para suprimi-lo.

Obrigado

Boas,

Alguém pode ajudar?

Grato

Será que os mestres me podem ajudar?

Obrigado

O erro que aparece é o 2501, como faço para suprimi-lo.

Você quer corrigir o erro, ou apenas evitar a mensagem?
Para evitar a mensagem, desabilite a linha com o MsgBox.

O erro está no formulário "Orçamento" ou no "Aviso".
Pode ser também que o runtime tenha algum problema com a função Dir().

Boa tarde e desde já obrigado,

O que necessito é de ultrapassar o erro
e que me abra o form "Orçamento",
o erro está no form orçamento,
já experimentei em vários pc´s só com o runtime
e não funciona, mas é engraçdo que tenho também esta bd
no está não compilado e roda bem em runtime,
isto está a dar comigo em doido, pois estou a pensar
em deixar como está sem compilar, mas corro riscos, não é?

O que acha?

Obrigado mais uma vez

Boa tarde,

Se o nº do erro é 2501 e você quer suprimir

If Err.Number = 2501 Then
Err.Clear
Resume Next
End If

O que necessito é de ultrapassar o erro

Novamente, se vc quer dizer, evitar a mensagem de erro, basta excluir ou comentar a linha com a MsgBox, ou seguir a sugestão do JUNGLI.

Para abrir o formulário nessa situação de erro, Inclua a linha DoCmd.OpenForm "Orçamento" logo antes da linha Resume Exit_1

Quanto ao runtime, é uma decisão do desenvolvedor junto ao cliente.

Obrigado a todos,

Vou testar e já retorno.

Cptos

Já descobri o erro!

O form "Orçamento" tem uma StatusBar, se a retirar
funciona bem, este banco foi inicialmente feito
access 2003 e importado para o 2007 daí ao compilar
a StatusBar originar esse erro.
Terei fazer colocar uma nova StatusBar compatível
com 2007?

Abraço e obrigado

Obrigado a todos,

Era um problema genérico da MSCOMCTL.ocx que é responsável
por manter a statusbar no access 2007 sem problemas neste caso em runtime,
a resolução aqui:

http://support.microsoft.com/kb/2687441
http://support.microsoft.com/kb/2748410

Obrigado
Abraço