In this video will help you be more specific in your access import.
You will find out how to insert a name of the table you want to import.
Option Compare Database '======================================================== 'DATABASE DESIGNED & CODED BY LOEBLCOM SERVICES 2013 'ERIK LOEBL(713)409-7041 'EMAIL: erik@loeblcomservices.com 'WEB: http://loeblcomservices.com '======================================================== Dim m_strFileName As String Private Sub btnDBTable_Click() Dim strTableName As String strTableName = InputBox("What's the name of the table you want to import?") DoCmd.TransferDatabase acImport, "Microsoft Access", m_strFileName, acTable, strTableName, strTableName & "_Local", False MsgBox "Finished Importing Table." End Sub Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String Dim objFilePicker As FileDialog Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) With objFilePicker 'Setup file dialog .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .Title = "Select File" 'add filter for all files With .Filters .Clear .Add "All Files", "*.mdb,*.accdb,*.xlsx" End With .FilterIndex = 1 'disply dilog boxe .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub
Click here for the database and the code:
Access-Import-Table.mdb






