Private Sub ImportSurveyP_Click() If IsNull(Me.txtFileName) Or Len(Me.txtFileName & "") = 0 Then MsgBox "Please select the Excel file" Me.ImportSurveyP.SetFocus Exit Sub End If DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel14, "data_Flow", Me.txtFileName, True End Sub
|Transfer records between two Access tables||6||39|
|Listbox not remembering select items when come back to the record||5||29|
|ms access 2013, running .mdb||2||31|
|how to link subforms ms/access VBA||6||30|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!