0

I'm using access form in which I have a button to explore files and get the path. My form is created to insert data into TABLA1.

TABLA1 contains a field named sPath in which I want to SAVE the files paths.

I reviewd ms access browse for file and get file name and path several times but I don't find solution.

What I'm doing wrong? Why filePath is not saved into sPath field.

I'm using Access 2007. Thank you very much on advance and sorry for I'm limited working with VB.

Private Sub Command7_Click()

Dim f As Object

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = Filename(f.SelectedItems(i), sPath)
        MsgBox sPath & "---" & sFile
    Next
End If

End Sub


Public Function Filename(ByVal strPath As String, sPath) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    Filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function
Community
  • 1
  • 1
Diego Rupérez
  • 1
  • 1

1 Answers1

0

Assuming everything else is working, I think you may have to pass your second parameter, sPath, ByRef explicitly. So:

Public Function Filename(ByVal strPath As String, ByRef sPath As String) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    Filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function

If you pass it by value, only the value is passed and not the address, so the variable won't reflect updates. Code is assuming sPath is a string - I don't see it declared in your code, though. Look into Option Explicit if that's the case.

VBlades
  • 2,241
  • 1
  • 12
  • 8