如何定义打印函数--2008-08-15

086-china

这是论坛上的定义打开窗体函数　OpenForms　,使得点图片时就可以打开某一窗体，
Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms
    DoCmd.OpenForm strFormName
Exit_OpenForms:
    Exit Function
Err_OpenForms:
    MsgBox Err.Description
    Resume Exit_OpenForms
End Function


那如何定义一个打开查询、打开报表、运行宏的函数，可以点图片时就可以打开查询、打开报表呢？

非常渴望学习，先谢了！！！-

[ 本帖最后由 086-china 于 2008-8-15 09:44 编辑 ]

086-china

原帖由 ganrong 于 2008-8-14 15:54 发表
docmd.openquery
docmd.openreport

是这样吗，不行哦，提示ＡＣＣＥＳＳ找不到函数名称

Function Openreport(strreportName As String) As Integer
On Error GoTo Err_Openreport
    DoCmd.Openreport strreportName
Exit_Openreport:
    Exit Function
Err_Openreport:
    MsgBox Err.Description
    Resume Exit_Openreport
End Function

麻烦朋友再帮我看看那里错了

[ 本帖最后由 086-china 于 2008-8-15 08:58 编辑 ]

086-china

麻烦朋友再帮我看看那里错了

liwen

好象没错
引用=Openreport("报表名")应该是可以
注意：如果你不想直接打印，你后面还要加上参数如
    DoCmd.Openreport strreportName, acViewPreview