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]Tratamento de erro em tempo de execução

    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 8/1/2013, 21:26

    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


    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 8/1/2013, 21:51

    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



    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 8/1/2013, 23:16

    Boas,

    Alguém pode ajudar?

    Grato


    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 9/1/2013, 09:13

    Será que os mestres me podem ajudar?

    Obrigado


    .................................................................................
    bounce Este lugar é o ceú
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más em 9/1/2013, 12:14

    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().
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 9/1/2013, 14:33

    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


    .................................................................................
    bounce Este lugar é o ceú
    Jungli
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 659
    Registrado : 07/05/2010

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

    Mensagem  Jungli em 9/1/2013, 16:15

    Boa tarde,

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

    If Err.Number = 2501 Then
    Err.Clear
    Resume Next
    End If
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más em 10/1/2013, 11:10

    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.
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 10/1/2013, 12:50

    Obrigado a todos,

    Vou testar e já retorno.

    Cptos


    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 10/1/2013, 18:10

    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


    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

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

    Mensagem  PPTT em 11/1/2013, 18:20

    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


    .................................................................................
    bounce Este lugar é o ceú

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 19:13