[Resolvido]Erro 3024 no RunTime 2007

Boa tarde Amigos
Esta função está no Maestro do Mestre Avelino Sampaio.
Mas dá este erro ao abrir a BD com o RunTime 2007, e também no próprio Access ao tentar ligar ás tabelas do Back End



Mas se colocar o " 'On Error Resume Next ", no access consegue-se fazer a ligação das tabelas, mas no RunTime Não

Como resolver, alguém já passou pelo mesmo ?

Public Function fncFalhaConexaoBE(strLocalBe As String) As Boolean

Dim bd As DAO.Database
'On Error Resume Next

If Len(fncCrip(DLookup("senha", "tblCaminhoBe"), 102030) & "") = 0 Then
   'Abrir BE sem senha
   Set bd = OpenDatabase(strLocalBe, False, False)
Else
   'abrir BE com senha
   Set bd = OpenDatabase(strLocalBe, False, False, ";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
End If
If Err Then
   Err.Clear
   fncFalhaConexaoBE = True
Else
   bd.Close
   fncFalhaConexaoBE = False
End If

Set bd = Nothing


End Function

Boa tarde Mestre,

No Runtime o on error resume next não é válido, nesse caso deve ser feito o tratamento do erro ao invés de ignora-lo e passar para o próximo.
Vale a pena lembrar também que deve verificar se não há alguma referência AUSENTE na máquina onde o sistema irá rodar.
Já estive numa situação parecida, e a única coisa que resolveu meu problema foi reinstalar o Office, porém em 32 Bits.

Espero ter ajudado!

Caio
O sistema é para rodar numa máquina só com o RunTime

Olá,
Nesse caso deve estar relacionado as referências.

Use essa ferramenta desenvolvida pelo Mestre Criquio Cavalera para identifica-las e adiciona-las e/ou remove-las.

Olá a todos,
Assis, baixe o Maestro do site do Avelino Sampaio e teste se acontece o mesmo.
Abraço

Teixeira

Com o Exemplo do Mestre Avelino

Olá a todos,

Assis, tenho um palpite que já verifiquei em tempos, se o tratamento de erros estiver "Parar em todos os erros" o código não funciona bem a vincular. (na parte que verifica se o back end tem ou não password)
Se tem um computador novo com uma instalação em Runtime , por defeito é colocada em para em todos os erros.

Resolvendo rapidamente é alterar essa propriedade no seu projeto.
Para isso, coloque a instrução abaixo, na primeira chamada de codigo da sua app e teste

Application.SetOption "Error Trapping", 1

Se tiver dificuldades avise que disponibilizo base de dados para alterar a propriedade.
Abraço

Abraço

Booa!

Olá a todos,
Assis, baixe exemplo do link abaixo e coloque na opção "Break in Class Modules (Parar em modo Classe)" na máquina que tem o Runtime.
Depois teste o seu projeto.

https://www.maximoaccess.com/t30190-opcao-error-trapping-interceptacao-de-erro#209370

Abraço

Boa noite

O erro era meu. As tabelas do Back End eram de uma versão diferente do Front , o runtime não perdoou.

Descobriu o Mestre Ahteixeira

Obrigado a todos

Olá Assis, obrigado pelo retorno.

Explicando melhor, o colega Assis tinha uma máquina com o Runtime do Access 2007 devidamente atualizado.
A base de dados back-end apesar de ser ACCDB estava num formato superior.
Não abria no 2007, mas abria no 2010, essa questão já foi abordada aqu no fórum:
https://www.maximoaccess.com/t23695-resolvidoconversao-de-arquivo-para-access-2007

Soluçao criar uma base de dados nova e importar todas as tabelas.

Abraço a todos