File Picker To Only Allow Single File Section

[jo15765]

This syntax works, but it allows for multiple file selection, is there a way to alter it so that you can only select one file, and a notification will be displayed if you attempt to select more than 1 file?

    Set f = Application.FileDialog(3)


    With f
        .AllowMultiSelect = False
        .Title = "Please Select the Excel File To Import"
        .Filters.Add "Excel Files", "*.xlsx"


        If .Show = True Then
            For i = 1 To f.SelectedItems.Count
                selectedfile = f.SelectedItems(i)                
                DoCmd.TransferSpreadsheet acImport, param, "AccessTableName", selectedfile, True
            Next i
			
		End If
	End With

[CJ_London]

your .AllowMultiSelect = False should stop the users being able to select more than one file - so far as I am aware there is no way filedialog can be set to generate such an error but you can in vba modify your code

If .Show = True Then
    if f.SelectedItems.Count>1 then
        msgbox "only one item to be selected"
    else
       selectedfile = f.SelectedItems(1)                
       DoCmd.TransferSpreadsheet acImport, param, "AccessTableName", selectedfile, True
    end if
      
 	End If
	End With

[jo15765]

Thanks for the tip on that.