I'm using the following code to import data from external access DB but is showing syntax error INSERT INTO statement. any suggestions please. I'm calling the below code using cmd click event. Thanks
Private Sub ImportSelectedFile()
Dim strImportedData As String
strImportedData = "INSERT INTO tblRedeemedDatatmp ( RC_IDFK, VSN, DateOfPurchase, TraderCode_FK, Total, NoBeneCardNb," & _
"NoBeneSign, NoDateOfPurchase, NoTraderSign, DEName_FK, DateOfEntry, Dat )" & _
"NoBeneSign,NoDateOfPurchase,NoTraderSign,DEName_FK,DateOfEntry,Dat" & _
"SELECT Card_No, VSN,Purchase_Date,Trader_Code,Total,No_Beneficiary_Card_No,No_Beneficiary_Card_Sign," & _
"No_Date_of_Purchase,No_Traders_Sign, EntrName, EntrDate, Dat FROM red IN '" & vrtSelectedFile & "';"
DoCmd.RunSQL strImportedData
End Sub
Private Sub ImportSelectedFile()
Dim strImportedData As String
strImportedData = "INSERT INTO tblRedeemedDatatmp ( RC_IDFK, VSN, DateOfPurchase, TraderCode_FK, Total, NoBeneCardNb," & _
"NoBeneSign, NoDateOfPurchase, NoTraderSign, DEName_FK, DateOfEntry, Dat )" & _
"NoBeneSign,NoDateOfPurchase,NoTraderSign,DEName_FK,DateOfEntry,Dat" & _
"SELECT Card_No, VSN,Purchase_Date,Trader_Code,Total,No_Beneficiary_Card_No,No_Beneficiary_Card_Sign," & _
"No_Date_of_Purchase,No_Traders_Sign, EntrName, EntrDate, Dat FROM red IN '" & vrtSelectedFile & "';"
DoCmd.RunSQL strImportedData
End Sub