Being More Specific In Access Import

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 &amp; 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(&quot;What's the name of the table you want to import?&quot;)
    
    DoCmd.TransferDatabase acImport, &quot;Microsoft Access&quot;, m_strFileName, acTable, strTableName, strTableName &amp; &quot;_Local&quot;, False
    
    MsgBox &quot;Finished Importing Table.&quot;
    
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 = &quot;Select&quot;
        .InitialView = msoFileDialogViewList
        .Title = &quot;Select File&quot;
        
        'add filter for all files
        With .Filters
         .Clear
         .Add &quot;All Files&quot;, &quot;*.mdb,*.accdb,*.xlsx&quot;
        End With
        .FilterIndex = 1
        'disply dilog boxe
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count &gt; 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName
        
    End If


End Sub