Dim objACC As Object Set objACC = CreateObject("Access.Application") objACC.OpenCurrentDatabase "c:\db.mdb" objACC.DoCmd.OpenReport "表报一" objACC.Quit Set objACC = Nothing |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-2 12:09 , Processed in 0.072611 second(s), 17 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.