Private Sub BSLR_Report_Click()
Dim Identity As Variant
Dim Location As String
Dim Extension As String
Dim Identity1 As String
Dim stDocName As String
On Error Resume Next
Extension = ".csv"
Identity = Format(Now(), "mmddyy")
Identity1 = Identity & Extension
Location = "C:\Documents and Settings\user\Desktop\test" & Identity1
stDocName = "qryBSLR"
'DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblBSLR"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.RunSQL "UPDATE tblBSLR SET [Closeout]='N' WHERE [Type] = 'F'"
DoCmd.RunSQL "UPDATE tblBSLR SET [Closeout]='Y' WHERE [Type] = 'D'"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tblBSLR", Location, True, "", ""
'DoCmd.SetWarnings True
End Sub