[求助] 用vb如何打开有代码的access数据库
Sub main()On Error Resume Next
Dim objAccess As Access.Application
Set objAccess = New Access.Application
objAccess.OpenCurrentDatabase App.Path & "\测试.mdb" '数据库
objAccess.Visible = True
objAccess.DoCmd.OpenForm "窗体", acDesign, , , acFormEdit, acDialog'数据库的窗体
(1).SetFocus
End Sub
想用vb打开access的窗体,然后关闭vb,显示access数据库的窗体,请老师帮忙修改代码。