Function SelectFile from filedialog Put this function in the Modules of your access file Need textbox names text0 Need listbox names List3 Need button names Command2 Public Function Selectfile() As String Dim Fd As FileDialog Set Fd = Application.FileDialog(msoFileDialogOpen) With Fd .AllowMultiSelect = False .Title = ” Please select file” If .Show = True Then Selectfile = .SelectedItems(1) Me.Text0 = Selectfile Me.List3.AddItem (Selectfile) Else Exit Function End If Set Fd = Nothing End With End Function Call function on click command to open select from Private Sub Command2_Click()…
Read More