Bom dia
Onde está o erro neste código para não funcionar no RunTime do Office 2013 64
Private Sub btProcurar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = BackEndPath & "Tabelas"
strCaminho = Buscar(Me.hWnd, "Inserir Caminho", strPastaInicial, _
"Arquivos (*.accdb; *.accde; *.accdr)" & vbNullChar & "*.accdb; *.accde; *.accdr")
NovoCaminho = strCaminho
If NovoCaminho = CaminhoAtual Or NovoCaminho = "" Then
Me!Path_0 = CaminhoAtual
Else
Me!Path_0 = NovoCaminho
End If
Me!btSalvar.SetFocus
End Sub
Parte a vermelho vem do módulo
Public Function BackEndPath() As String
'uso: BackEndPaht & pastadesejada
Dim strFullPath As String
strFullPath = DLookup("Path_0", "tblCaminhoBE")
For I = Len(strFullPath) To 1 Step -1
If Mid(strFullPath, I, 1) = "\" Then
getdbpath = Left(strFullPath, I)
Exit For
End If
Next
BackEndPath = getdbpath
End Function
Onde está o erro neste código para não funcionar no RunTime do Office 2013 64
Private Sub btProcurar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = BackEndPath & "Tabelas"
strCaminho = Buscar(Me.hWnd, "Inserir Caminho", strPastaInicial, _
"Arquivos (*.accdb; *.accde; *.accdr)" & vbNullChar & "*.accdb; *.accde; *.accdr")
NovoCaminho = strCaminho
If NovoCaminho = CaminhoAtual Or NovoCaminho = "" Then
Me!Path_0 = CaminhoAtual
Else
Me!Path_0 = NovoCaminho
End If
Me!btSalvar.SetFocus
End Sub
Parte a vermelho vem do módulo
Public Function BackEndPath() As String
'uso: BackEndPaht & pastadesejada
Dim strFullPath As String
strFullPath = DLookup("Path_0", "tblCaminhoBE")
For I = Len(strFullPath) To 1 Step -1
If Mid(strFullPath, I, 1) = "\" Then
getdbpath = Left(strFullPath, I)
Exit For
End If
Next
BackEndPath = getdbpath
End Function
Última edição por Assis em 3/6/2020, 13:10, editado 1 vez(es)