Export Access report to a snapshot file and view on web site

[Vincel2k2]

Hi,
I need to provide Access reports from our web site. When the app gets to the
output command I get this error I get this error:
The formats that enable you to output data as a Microsoft Excel, rich-text
format, MS-DOS text, or HTML file are missing from the Windows Registry.
Also after the snapshot is created how do I get it to the users web page?
Thanks

Here is my code:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim acApp As Access.Applicat ion
Dim strDBPath As String
Const acQuitSaveNone = "2"
Const acViewPreview = "2"
Const acViewNormal = "0"
Const acOutputReport = "3"
Const acSendReport = "3"
Const acFormatRTF = "Rich Text Format (*.rtf)"
Const acFormatXLS = "Microsoft Excel 97-2002 (*.xls)"
Const acFormatSNP = "Snapshot Format (*.snp)"
Const acFormatHTML = "HTML (*.html)"
Const DB_PATH As String = _
"C:\Program Files\Microsoft Office\Office\S amples\Northwin d.mdb"

acApp = New Access.Applicat ion
With acApp
.OpenCurrentDat abase(DB_PATH)
' Print the Product Catalog report.
.DoCmd.OpenRepo rt("Catalog", Access.AcView.a cViewPreview)
.DoCmd.OutputTo (Access.AcOutpu tObjectType.acO utputReport,
"Snapshot Format", "C:\Inetpub\www root\YMSReports \DB\Container.s np", False)
End With
acApp.Quit()
acApp = Nothing
End Sub

[Vincel2k2]

I got it, here's the code that works:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim acApp As Access.Applicat ion
Dim strDBPath As String
Const acFormatSNP = "Snapshot Format (*.snp)"
Const DB_PATH As String = _
"C:\Program Files\Microsoft Office\Office\S amples\Northwin d.mdb"

acApp = New Access.Applicat ion
With acApp
.OpenCurrentDat abase(DB_PATH)
' Print the Product Catalog report.
.DoCmd.OpenRepo rt("Catalog", Access.AcView.a cViewPreview)
.DoCmd.OutputTo (Access.AcOutpu tObjectType.acO utputReport, ,
acFormatSNP, DB_PATH & "Container.snp" )
End With
acApp.Quit()
acApp = Nothing

Response.Redire ct("C:\Inetpub\ wwwroot\YMSRepo rts\DB\Containe r.snp",
False)

End Sub

"Vincel2k2" wrote:

Hi,
I need to provide Access reports from our web site. When the app gets to the
output command I get this error I get this error:
The formats that enable you to output data as a Microsoft Excel, rich-text
format, MS-DOS text, or HTML file are missing from the Windows Registry.
Also after the snapshot is created how do I get it to the users web page?
Thanks

Here is my code:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim acApp As Access.Applicat ion
Dim strDBPath As String
Const acQuitSaveNone = "2"
Const acViewPreview = "2"
Const acViewNormal = "0"
Const acOutputReport = "3"
Const acSendReport = "3"
Const acFormatRTF = "Rich Text Format (*.rtf)"
Const acFormatXLS = "Microsoft Excel 97-2002 (*.xls)"
Const acFormatSNP = "Snapshot Format (*.snp)"
Const acFormatHTML = "HTML (*.html)"
Const DB_PATH As String = _
"C:\Program Files\Microsoft Office\Office\S amples\Northwin d.mdb"

acApp = New Access.Applicat ion
With acApp
.OpenCurrentDat abase(DB_PATH)
' Print the Product Catalog report.
.DoCmd.OpenRepo rt("Catalog", Access.AcView.a cViewPreview)
.DoCmd.OutputTo (Access.AcOutpu tObjectType.acO utputReport,
"Snapshot Format", "C:\Inetpub\www root\YMSReports \DB\Container.s np", False)
End With
acApp.Quit()
acApp = Nothing
End Sub