|
下列代码是罗斯文数据产品窗体上的一个“ 输出为HTML”按钮事件,可我在我的电脑里找不到Nwindtem.htm和NWLogo.gif文件,它真的存在吗?为什么我会找不到?我只想看看这是什么样的文件,它的结构等。
Private Sub 输出为HTML_Click()
On Error GoTo Err_OutputToHTML_Click
' 把 "按字母顺序的产品列表" 报表输出为 HTML 文档,并在 Internet
' 浏览器中打开此文档。在默认数据库的文件夹中必须有
' Nwindtem.htm (Northwind的模板) 和 NWLogo.gif(Northwind 徽标)。
DoCmd.OutputTo acOutputReport, "按汉语拼音顺序的产品列表", acFormatHTML, "roducts.htm", True, "Nwindtem.htm"
Exit_OutputToHTML_Click:
Exit Sub
Err_OutputToHTML_Click:
' 如果操作被用户取消,不显示错误消息。
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_OutputToHTML_Click
Else
MsgBox Err.Description
Resume Exit_OutputToHTML_Click
End If
End Sub |
|