Deleting query

[drunkenneo]

Hi i have written a query:



Dim fdate As Date
Dim tdate As Date

On Error GoTo Err_cmd_Details_exp_Click

frdate = from_date.Value
todate = To_date.Value
DoCmd.DeleteObject acQuery, "qryTemp1"
If (from_date.Value <> "") And (To_date.Value <> "") Then
'Me.Form.RecordSource = "select * from Master where Created_Date between #" & fdate & "# And #" & tdate & "# order by Checked_Date desc"
Me.RecordSource = "select * from Master_Log where Date_processed between #" & frdate & "# And #" & todate & "# order by Date_processed desc"
CurrentDb.CreateQueryDef "qryTemp1", Me.RecordSource
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryTemp1", "Z:\Intel\Redemptions\APAC\Yebhi.com\Master_Report .xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryTemp1", "E:\Yebhi\Master_Report.xls"
'DoCmd.DeleteObject acQuery, "qryTemp"
MsgBox "file Exported Z:\Intel\Redemptions\APAC\Yebhi.com\Master_Report. xls"
End If

which is deleting the qrytmp1 but not writing again.
Please Solve

[Dal Jeanis]

1) I see two different spellings of fdate/frdate and todate/tdate. Doesn't look like a problem, but I'd fix the ones that are different, and explicitly Dim the ones you are using.

2) Try Dim-ing and setting a string variable to the desired SQL first, verifying that it looks good via a msgbox, then using that to create the query. When that's all done, then assign the query to the RecordSource.

3) If you don't like that option, then put an "else" msgbox in case (from_date.Value <> "") And (To_date.Value <> "") is not true, and put a Msgbox Me.RecordSource statement after you set the RecordSource and see if the SQL looks as expected.

[drunkenneo]

Thanks it worked

[Dal Jeanis]

1) Which one worked?
2) Please mark thread "Solved". Top of Page, under "thread tools".