SCWED Test

[Dassudt]

Hi kindly advice below;

Sub ImportCS()
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim qdf1 As DAO.Database
    Dim rst As DAO.Recordset

    Dim strSQL As String
    Dim filepath As String
    Dim filepath2 As String
    filepath = CurrentProject.Path & "\User1.csv"
    filepath2 = CurrentProject.Path & "\User2.csv"
    Set Db = CurrentDb
    On Error Resume Next: Db.TableDefs.Delete "tblImport": On Error GoTo 0
    Db.TableDefs.Refresh
    DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
                       Filename:="C:\Users\Sindhu\Downloads\ExcelSence\Access\Book1.csv", HasFieldNames:=True
    DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport2", _
                       Filename:="C:\Users\Sindhu\Downloads\ExcelSence\Access\Book2.csv", HasFieldNames:=True
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO User1 (Name, Address, City, salary, DOJ, DOR) SELECT * FROM (tblImport)", 0
    DoCmd.RunSQL "INSERT INTO User2 (Name, Country, UID, DOJ, DOR) SELECT * FROM (tblImport2)", 0
    DoCmd.DeleteObject acTable, "tblImport"
    DoCmd.DeleteObject acTable, "tblImport2"
    DoCmd.SetWarnings True
    Set dbs = CurrentDb
    DoCmd.DeleteObject acQuery, "INNERQuarter"
    'Access.CurrentDb.QueryDefs dbLocal.QueryDefs.Refresh
    'Set qdf1 = dbLocal.CreateQueryDef(INNERQuarter)
    strSQL = "Select User1.Name, User2.UID FROM (User1 INNER JOIN User2 ON User1.Name=User2.Name)"
    Set qdf = dbs.CreateQueryDef("INNERQuarter", strSQL)
End Sub

 

[mole999]

First follow the forum rules and add code tags and consider being descriptive about your needs

second, what are you looking for advice with