I import a delimited file into access. I saved an import specification and named it "ProdSpec". My problem is that I would like to start in the 4th row.(The first 3 rows are text, the rest are numerical) It is my understanding that can't be done, so when I run the procedure, it creates a second table with the errors in it (the text). So I wrote into the code to delete the "Prod_ImportErrors" table.
If I would write code to delete the first three rows, that would solve the rest of my problems. (RickSpr, I am trying! I'm just not that good yet). Can someone help me add this code?
Thanks, Rick Ruscin
Private Sub Import_Click()
DoCmd.DeleteObject acTable, "tblprod"
Dim strPathName As String
strPathName = (DatePart("d", [Forms]![Daily Sales]![Date]))
DoCmd.TransferText acImportDelim, "ProdSpec", "tblProd", "C:\Program Files\SSM\Day\" & strPathName & ("\Prod.txt"
DoCmd.DeleteObject acTable, "Prod_ImportErrors"
End Sub
If I would write code to delete the first three rows, that would solve the rest of my problems. (RickSpr, I am trying! I'm just not that good yet). Can someone help me add this code?
Thanks, Rick Ruscin
Private Sub Import_Click()
DoCmd.DeleteObject acTable, "tblprod"
Dim strPathName As String
strPathName = (DatePart("d", [Forms]![Daily Sales]![Date]))
DoCmd.TransferText acImportDelim, "ProdSpec", "tblProd", "C:\Program Files\SSM\Day\" & strPathName & ("\Prod.txt"
DoCmd.DeleteObject acTable, "Prod_ImportErrors"
End Sub