Office中国论坛/Access中国论坛

标题: 如何用VB输ACCESS报表 [打印本页]

作者: lixiaoai 时间: 2011-11-4 11:35
标题: 如何用VB输ACCESS报表
本帖最后由 lixiaoai 于 2011-11-4 12:12 编辑

Private Sub Command1_Click()
Dim s As Access.Application
Set s = New Access.Application
s.OpenCurrentDatabase ("F:\机加车间工时管理系统\forjjcj.mdb")
s.DoCmd.OpenReport "车间流水月报表", acViewNormal
's.CloseCurrentDatabase
'Set s = Nothing
End Sub[attach]47214[/attach]

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