browse for a file

[ilanray]

Hi
I would like to create a form with upload file option.
the uploda include browse option. everytime I click on the browse it should open a dialog box.
which mean it should add the record to the table and for that I create a table with id and links fields

I found a code below that open a dialog box.
how do I store the folder and and the file name on my table

Dim f As Object
    Dim strDocumentFileName As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
        f.AllowMultiSelect = False
    If f.Show Then
        For Each varItem In f.SelectedItems
            strDocumentFileName = Dir(varItem)
            Me.txtDrawingFile = strDocumentFileName
        Next
    End If
    Set f = Nothing

 

[GaP42]

Your me.textDrawingFile statement writes the name of the combined path-filename into txtdrawingfile field? - does it not?.

I use this to write the LocationLink field.

If (f.Show = True) Then

    For Each fname In f.SelectedItems
          Me.LocationLink.Value = fname 
    Next
        
Else
    MsgBox "No File Chosen"
End If

 

[June7]

Since you allow only one selection, don't need to loop.

    If f.Show Then
        Me.txtDrawingFile = f.SelectedItems(1)
    End If

 

[ilanray]

Great the path and the file name is working but when the textbox show me the link it looks like I can click on it since the textbox bind to hyperlink in the table. But when I am trying to click it doesn't do anything for example after I load 1.xlsx to the textbox I can see c:\1.xlsx but when I click on it it doesn't do anything

 

[theDBguy]

Hi. Since you're browsing to a file anyway, try dragging the file you're selecting to the hyperlink textbox on the form and see what happens.

 

[GaP42]

Perhaps look at this thread: https://www.access-programmers.co.uk/forums/threads/application-followhyperlink-not-working.299301/

 

[June7]

I don't use Hyperlink data type field. Are you actually using Hyperlink data type? If you are, using VBA to populate field gets a little more complicated. Review http://allenbrowne.com/casu-09.html
and http://allenbrowne.com/func-GoHyperlink.html

 

[ilanray]

if you are not using Hyperlink data type what is the best way to work with in VBA?

 

[cheekybuddha]

Also, see Daniel Pineault's site

 

[June7]

I just save path in a text field and build Hyperlink when needed. Did you review links I posted?

 

[ilanray]

Hi Again
I still don't get it gow can I display or seperate just the file name for display purpose

Dim f As Object
    Dim strDocumentFileName As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
        f.AllowMultiSelect = False
    If f.Show Then
        For Each varItem In f.SelectedItems
            strDocumentFileName = Dir(varItem)
            Me.txtDrawingFile = strDocumentFileName
        Next
    End If
    Set f = Nothing

 

[cheekybuddha]

Perhaps:

' ...
        For Each varItem In f.SelectedItems
            strDocumentFileName = Mid(varItem, InStrRev(varItem "\") + 1)
            Me.txtDrawingFile = strDocumentFileName
        Next
' ...

 

[mike60smart]

Hi Again
I still don't get it gow can I display or seperate just the file name for display purpose

Dim f As Object
    Dim strDocumentFileName As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
        f.AllowMultiSelect = False
    If f.Show Then
        For Each varItem In f.SelectedItems
            strDocumentFileName = Dir(varItem)
            Me.txtDrawingFile = strDocumentFileName
        Next
    End If
    Set f = Nothing

This is an example