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