shabbaranks
Registered User.
- Local time
- Today, 17:00
- Joined
- Oct 17, 2011
- Messages
- 300
Hi,
Trying to export values from an Access table no matter how I format the date it doesn't export properly (the export works but the date specified is ignored)
Thanks as always
Trying to export values from an Access table no matter how I format the date it doesn't export properly (the export works but the date specified is ignored)
Code:
strFile = "C:\" & Format(Date, "ddmmyyyy") & ".csv"
strDateEntry1 = Format(InputBox("Please Enter From Date, Example: 10/09/2015", "Restricted Form"), "dd-mm-yyyy")
strDateEntry2 = Format(InputBox("Please Enter To Date, Example: 10/09/2015", "Restricted Form"), "dd-mm-yyyy")
If Len(Dir(strFile)) > 0 Then
Kill strFile
End If
strSQL = "SELECT T_Table.ID, T_Table.Employee, T_Table.[Logon Account], T_Table.[User Department], T_Table.[Project Number], T_Table.Activity, Format((T_Table.[Task Date]), 'dd-mm-yyyy') as [Task Date], T_Table.Hours, T_Table.Detail, T_Table.[Time Of Submission] " & vbCrLf & _
"FROM T_Table " & vbCrLf & _
"WHERE (((T_Table.[Task Date])>= #" & strDateEntry1 & "# And (T_Table.[Task Date])<= #" & strDateEntry2 & "#))"
Set qdf = CurrentDb.CreateQueryDef("TempQuery", strSQL)
DoCmd.TransferText acExportDelim, , "TempQuery", strFile, True
CurrentDb.QueryDefs.Delete "TempQuery"
Thanks as always