Office中国论坛/Access中国论坛

标题: 如何定义打印函数--2008-08-15 [打印本页]

作者: 086-china 时间: 2008-8-14 15:41
标题: 如何定义打印函数--2008-08-15
这是论坛上的定义打开窗体函数　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 编辑 ]

作者: ganrong 时间: 2008-8-14 15:54
提示: 作者被禁止或删除内容自动屏蔽

作者: 086-china 时间: 2008-8-14 21:17

原帖由 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 时间: 2008-8-15 09:00
标题: 定义打函数---求助----再帮帮吧
麻烦朋友再帮我看看那里错了

作者: liwen 时间: 2008-8-15 13:30
好象没错
引用=Openreport("报表名")应该是可以
注意：如果你不想直接打印，你后面还要加上参数如
DoCmd.Openreport strreportName, acViewPreview

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)