Snapshot....

[doran_doran]

Can someone please audit the code below? This code is on a button click then that refer to this function. I think you may wanna to look at docmd.output to section.

Thanks / Dianna


=============================================

Function ExportData2Snap()
On Error GoTo Err_DoExportData

Dim db As DAO.Database
Dim stDocName As String, strFilter As String, strSaveFileName As String
Dim SQL$, Qd As QueryDef, Quotes$
Quotes$ = """"

Set db = CurrentDb()

Query4Data

'Ask for SaveFileName
strFilter = ahtAddFilterItem(strFilter, "Snapshot Format (*.snp)", "*.snp")
strSaveFileName = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)

'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "qryGrpFnlPkgDeptExport", strSaveFileName, True
DoCmd.OutputTo acOutputReport, , "Snapshotformat (*.snp)", , False, ""
'DoCmd.OutputTo acReport
MsgBox "The Snapshot has been sucessfully exported", vbDefaultButton1, "Data Export"

Exit Function

Err_DoExportData:
MsgBox Err.Description

End Function

 

[doran_doran]

Got it....

My command button: name cmdSnap

Private Sub cmdSnap_Click()
If ValidateRptData() = True Then
ExportData2Snap
End If
End Sub


After it validate dates then it execute following code and it works. THANKS TO ME AND MICROSOFT.

'========================================
Function ExportData2Snap()
On Error GoTo Err_DoExportData

Dim db As DAO.Database
Dim stDocName As String, strFilter As String, strSaveFileName As String
Dim SQL$, Qd As QueryDef, Quotes$
Quotes$ = """"

Set db = CurrentDb()

Query4Data

strFilter = ahtAddFilterItem(strFilter, "Snapshot Format (*.snp)", "*.snp")

DoCmd.OutputTo acOutputReport, "rptgrpFnlPkgDept", "SnapshotFormat(*.snp)", ""
MsgBox "The Snapshot has been sucessfully exported", vbDefaultButton1, "Data Export"

Exit Function

Err_DoExportData:
MsgBox Err.Description

End Function

'=======================================

It works.
MS Link: http://support.microsoft.com/default.aspx?scid=kb;en-us;307184


Thanks everyone.
Dianna