Dim db As DAO.Database Dim records() As DAO.Recordset Dim EntryDate As String Dim i As Integer Dim fs As String fs = "C:\TestECI\IN_572_COMPANY_" & Format(Now(), "yyyymmdd") & "_814EN01_" Set records = db.OpenRecordset("SELECT * FROM 001-Q_SampleBillQuery-00400-JEPds") 'loop through records, get list of unique DUNS numbers 'get unique duns For Each Record In records If IsInArray(Record.EntryDate, Dates) Then continue Else ReDim Preserve Dates(1 To UBound(Dates) + 1) As String ' add value on the end of the array arr(UBound(arr)) = Record.EntryDate End If Next For Each EntryDate In Dates Set records = db.OpenRecordset("SELECT * FROM 001-Q_SampleBillQuery-00500-IndividualJes WHERE EntryDate =" & Dates) i = 2000 fs = fs & i & ".csv" DoCmd.TransferText acExportDelim, , records, fs, True i = i + 1 Next
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE