Add Import Date via VBA into MS Access
Posted on 2011-03-02
Here is the process that I use to import data into my MS Access database:
Dim strFile as String, strPath as String
strPath = "c:\temp\csv\"
strFile = Dir(strPath & "*.*")
Do While strFile <>""
DoCmd.TransferText acImportDelim, "Evt", "Events", strPath & strFile, False
strFile = Dir()
I would like to be able to append an import date associated with the importing of CSV data in the strPath. Every week I import security event files into the database. I would like to have an import date associated with the most recent import so that I can query the import date and capture only this import date data. I would like also to keep the same import code but be able to add the code to do what I have described above. Hopefully I have stated what it is that I am looking for. Thank you, Joe