问题，如题~！
 我想用单击VB窗体的一个按钮来打开一个用ACCESS数据库设计的窗体，该怎样写代码？
 能给个完整的代码源代码不？不会啊....还有我是要用VB按钮打开access数据库的窗体哦....各位高手帮帮忙啦~！

 窗体名称：CoachM  路径：局域网中的数据库
求高手指点，能够有完整代码最好，拜谢~！

[ 本帖最后由 llq0615 于 2011-7-14 11:38 编辑 ]

???

Private Sub Command1_Click()
    Shell "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE C:\NorthWind.mdb"
End Sub

我是要打开设计好的ACCESS数据库的一个窗体，不是整个数据库文件哦。

假设数据库窗体的Name属性为Form2,那么代码就是 Form2.Show

既然都知道是窗体，那就是show撒

版主大大能给个完整的代码源代码不？不会啊....还有我是要用VB按钮打开access数据库的窗体哦....各位高手帮帮忙啦~！

窗体名称：CoachM  路径：D:

[ 本帖最后由 llq0615 于 2011-7-14 09:43 编辑 ]

    Dim objAccess  As Access.Application
    On Error Resume Next
        Set objAccess = New Access.Application
        objAccess.OpenCurrentDatabase "d:\data.mdb"'假设你的ACCESS文件是在D盘
        objAccess.Visible = True
        objAccess.DoCmd.OpenForm "CoachM"'这是你要打开的窗体
        (1).SetFocus

Private Sub Command1_Click()
Dim objAccess   As Access.Application
    On Error Resume Next
        Set objAccess = New Access.Application
        objAccess.OpenCurrentDatabase "d:\CoachM.mdb"
        objAccess.Visible = True
        objAccess.DoCmd.OpenForm "CoachM"
        (1).SetFocus
End Sub


版主，我用这个代码，打开一闪窗口就关闭了诶~该怎么解决啊？

我不知道你是如何在VBA下建立窗体的，用下面的代码试试，看会不会再一闪而过：
On Error Resume Next
    Set objAccess = New Access.Application
    objAccess.OpenCurrentDatabase "d:\CoachM.mdb"
    objAccess.Visible = True
    objAccess.DoCmd.OpenForm "CoachM", acDesign, , , acFormEdit, acDialog
    (1).SetFocus

[ 本帖最后由 Artless 于 2011-7-15 21:11 编辑 ]