Button to Browse for File!

[floyd]

I have tried five or six different codes and each ahs given me an error.


I am using Access 2010

I have a form named "frmClass_File"
I have a text box named "txtSelectedFile" which is set as a "Hyper Link"
I have a text box named "txtFileName" which is set as normal txt

I would like a button which would accomplish the following:

1. Open browsing window.
2. Allow user to find file (of any kind)
3. When selected, place the file PATH in "txtSelectedFile" AND the file NAME in "txtFileName"

Any help would be FANTASTIC!!!!

Joe

[RuralGuy]

So I take it you have already tried this code: http://access.mvps.org/access/api/api0001.htm

[floyd]

I have been looking at that all morning and can't make anything of it.

Here is where I am right now.
I have the path going to the right place... now I need the name.
I'm not sure if the path is being created as an actual click-able link or not.

Private Sub Command458_Click()

    Dim f As Object
    Dim strSelectedFile As String
    Dim txtFileName As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    
    If f.Show = -1 Then
        For Each varItem In f.SelectedItems
             strSelectedFile = varItem & "#" & varItem
             Next varItem
             Me![txtSelectedFile] = strSelectedFile
          
    End If
    Set f = Nothing

End Sub

[RuralGuy]

I'm sorry but I use the API.

[floyd]

I got it!!!!
Can you explain API? I have seen it talked about but have no idea what it is or how it works.

Private Sub Command458_Click()

    Dim f As Object
    Dim strSelectedpath As String
    Dim strSelectedFile As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    
    If f.Show = -1 Then
        For Each varItem In f.SelectedItems
             strSelectedpath = varItem & "#" & varItem
             strSelectedFile = Split(strSelectedpath, "\")(UBound(Split(strSelectedpath, "\")))
             Next varItem
             Me![txtSelectedFile] = strSelectedpath
             Me![txtFileName] = strSelectedFile
             
    End If
    Set f = Nothing

End Sub

[RuralGuy]

The API was described in the link I supplied. All of the code goes in a Standard Module and then you call it from your form.