Returning only the file name

[ypper2001]

I am trying to get only the filename in the [file] but it returns the path and filename. I am new at Access and need help. What should I do?

Private Sub File_Click()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Choose file"
.Filters.Add "All", "*.pdf"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "c:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Name].SetFocus
Me![Name].Text = fileName
End If
End With
End Sub

[ADezii]

I am trying to get only the filename in the [file] but it returns the path and filename. I am new at Access and need help. What should I do?

Private Sub File_Click()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Choose file"
.Filters.Add "All", "*.pdf"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "c:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Name].SetFocus
Me![Name].Text = fileName
End If
End With
End Sub

Insert this Line of Code after fileName = Trim(.SelectedItems.Item(1))

strFileNameOnly = Right$(FileName, Len(FileName) - InStrRev(FileName, "\"))

'Replace Me![Name].Text = fileName with

Me![Name].Text = strFileNameOnly

[ypper2001]

Thank you for your response.
That worked, but when I put in Option Explicit at the top, the "strFileNameOnly =" got highlighted and the folowing error was shown:

Compile Error:
Variable not defined

Why?

[ADezii]

Thank you for your response.
That worked, but when I put in Option Explicit at the top, the "strFileNameOnly =" got highlighted and the folowing error was shown:

Compile Error:
Variable not defined

Why?

That's because you never Declared it in the Procedure:

Dim strFileNameOnly As String

[ypper2001]

That's because you never Declared it in the Procedure:

Dim strFileNameOnly As String

Thanks a lot for your help, everything is working as it should now : )

[ADezii]

Thanks a lot for your help, everything is working as it should now : )

Glad it all worked out.