Viva a todos,
No últimos tempos ando nisto: cada cavadela uma minhoca, enfim, cá vai mais um problema.
Tenho um Back-End, na rede, a funcionar bem que é chamado assim:
X:\Folder\Folder\Folder\DB_be.accdb
Agora vou precisar de mudá-lo para um Servidor dedicado, mas o seguinte caminho não é reconhecido pelos Front-End's:
\\ESRV00-FSHARE00\Folder\Folder\Folder\DB_be.accdb
O código que estou a utilizar é este:
Para chamar esta função:
No entanto se colocar o caminho '\\ESRV00-FSHARE00\Folder\Folder\Folder\DB_be.accdb' no explorador consigo aceder ao Back-End.
Podem me ajudar?
Cumprimentos
Bruno Gordino
No últimos tempos ando nisto: cada cavadela uma minhoca, enfim, cá vai mais um problema.
Tenho um Back-End, na rede, a funcionar bem que é chamado assim:
X:\Folder\Folder\Folder\DB_be.accdb
Agora vou precisar de mudá-lo para um Servidor dedicado, mas o seguinte caminho não é reconhecido pelos Front-End's:
\\ESRV00-FSHARE00\Folder\Folder\Folder\DB_be.accdb
O código que estou a utilizar é este:
- Código:
If fncFalhaConexaoBE(Me!Path) Then
MsgBox "Falha de conexão com o back-end." & vbNewLine & vbNewLine & "Verifique o caminho e/ou a senha do back-end...", vbInformation, "Atention"
Exit Sub
End If
booNovaChecagem = True
DoCmd.Close acForm, "Form_X"
Para chamar esta função:
- Código:
Public Function fncFalhaConexaoBE(strLocalBe As String) As Boolean
Dim bd As DAO.Database
On Error Resume Next
If Len(fncCrip(DLookup("senha", "Tbl_FE_X"), XXXXXX) & "") = 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", "Tbl_BE_X"), XXXXXX))
End If
If Err Then
Err.Clear
fncFalhaConexaoBE = True
Else
bd.Close
fncFalhaConexaoBE = False
End If
Set bd = Nothing
End Function
No entanto se colocar o caminho '\\ESRV00-FSHARE00\Folder\Folder\Folder\DB_be.accdb' no explorador consigo aceder ao Back-End.
Podem me ajudar?
Cumprimentos
Bruno Gordino
Última edição por brunogor em 3/5/2018, 23:44, editado 1 vez(es)