标题:如何用VB按钮单击事件打开ACCESS数据库窗体?
只看楼主
llq0615
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2011-7-6
结帖率:33.33%
已结贴  问题点数:10 回复次数:12 
如何用VB按钮单击事件打开ACCESS数据库窗体?
问题,如题~!
 我想用单击VB窗体的一个按钮来打开一个用ACCESS数据库设计的窗体,该怎样写代码?
 能给个完整的代码源代码不?不会啊....还有我是要用VB按钮打开access数据库的窗体哦....各位高手帮帮忙啦~!

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

[ 本帖最后由 llq0615 于 2011-7-14 11:38 编辑 ]
搜索更多相关主题的帖子: access 源代码 局域网 数据库 
2011-07-13 11:59
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:2 
???
程序代码:
Private Sub Command1_Click()
    Shell "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE C:\NorthWind.mdb"
End Sub

不要選我當版主
2011-07-13 17:13
llq0615
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2011-7-6
得分:0 
回复 2楼 wube
我是要打开设计好的ACCESS数据库的一个窗体,不是整个数据库文件哦。
2011-07-13 17:46
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
得分:2 
假设数据库窗体的Name属性为Form2,那么代码就是 Form2.Show

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-07-13 17:56
W11400661
Rank: 8Rank: 8
来 自:达拉达斯
等 级:蝙蝠侠
威 望:2
帖 子:163
专家分:834
注 册:2008-10-12
得分:2 
既然都知道是窗体,那就是show撒
2011-07-13 21:28
llq0615
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2011-7-6
得分:0 
回复 3楼 llq0615
版主大大能给个完整的代码源代码不?不会啊....还有我是要用VB按钮打开access数据库的窗体哦....各位高手帮帮忙啦~!

窗体名称:CoachM  路径:D:

[ 本帖最后由 llq0615 于 2011-7-14 09:43 编辑 ]
2011-07-14 09:22
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
得分:0 
    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

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-07-14 12:39
llq0615
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2011-7-6
得分:0 
回复 7楼 不说也罢
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


版主,我用这个代码,打开一闪窗口就关闭了诶~该怎么解决啊?
2011-07-15 12:42
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
得分:0 
我不知道你是如何在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

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-07-15 17:51
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:2 


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

无知
2011-07-15 21:08



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-345387-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.411730 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved