如何在 Access 2007 的窗体中实现点击按钮打开另一个窗体???
首先有4个名称分别为A、B、C、D的窗体,已经建立好了。我新建了一个空白窗体,希望通过这个空白窗体上面,放4个按钮,点击按钮后输入密码,即可打开对应的窗体。整个数据库放在...
首先有4个名称分别为A、B、C、D的窗体,已经建立好了。
我新建了一个空白窗体,希望通过这个空白窗体上面,放4个按钮,点击按钮后输入密码,即可打开对应的窗体。
整个数据库放在服务器上面(共享),然后这个空白窗体需要下载到不同操作人员的桌面(同一局域网,没有用域),请问,这四个按钮的代码应该怎么写,谢谢了!
我按照向导添加,但是添加后运行的时候,无法代开,麻烦帮忙,谢谢!
向导代码如下,请告知最终应该是什么的代码,谢谢!
Private Sub Command01_Click()
On Error GoTo Err_Command01_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(26032) & ChrW(24314) & ChrW(-28217) & ChrW(-29395) & ChrW(-29790) & ChrW(21333)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command01_Click:
Exit Sub
Err_Command01_Click:
MsgBox Err.Description
Resume Exit_Command01_Click
End Sub 展开
我新建了一个空白窗体,希望通过这个空白窗体上面,放4个按钮,点击按钮后输入密码,即可打开对应的窗体。
整个数据库放在服务器上面(共享),然后这个空白窗体需要下载到不同操作人员的桌面(同一局域网,没有用域),请问,这四个按钮的代码应该怎么写,谢谢了!
我按照向导添加,但是添加后运行的时候,无法代开,麻烦帮忙,谢谢!
向导代码如下,请告知最终应该是什么的代码,谢谢!
Private Sub Command01_Click()
On Error GoTo Err_Command01_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(26032) & ChrW(24314) & ChrW(-28217) & ChrW(-29395) & ChrW(-29790) & ChrW(21333)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command01_Click:
Exit Sub
Err_Command01_Click:
MsgBox Err.Description
Resume Exit_Command01_Click
End Sub 展开
5个回答
展开全部
1、打开要操作的数据库,在左侧导航窗格中,右击要使用的窗体,在弹出菜单中选择“设计视图”。
2、确定“使用控件向导”按钮处于选中状态,然后单击选中“控件”组中的“按钮”控件,在窗体中的适当位置单击鼠标左键。
3、打开“命令按钮向导”对话框,在“类别”列表框中选择“记录操作”项,在“操作”列表框中选择“添加新记录”项,然后单击“下一步”按钮。
4、在打开的界面中选择“文本”单选钮,在其右侧的文本框中输入“添加记录”,然后单击“下一步”按钮。
5、在打开的界面中将按钮名称改为“添加记录”,单击“完成”按钮,完成对命令按钮的设置。
6、用同样的方法添加“删除记录”、“保存记录”按钮,以及“查找记录”按钮。
7、保存并关闭窗体,至此我们就完成了使用“控件向导”创建命令按钮的操作,在数据库的导航窗格中,双击打开窗体,查看效果。
展开全部
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
更多追问追答
追问
明白了,我就是按照这个操作的,刚才又仔细检查了一下,是自己给宏禁止运行的原因。
另外问一下,我想打开每个新的窗体的时候,都需要输入密码,这个怎么写代码啊,在哪加入啊
追答
是不是前面的窗体挡住了后面的窗体。
DoCmd.OpenForm stDocName, , , stLinkCriteria
在这句话下一行添加,
me.visible=false
来自:求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-03-05
展开全部
你在创建按钮时,会有个命令按钮向导,在类别中选择,窗体操作,在操作中选择打开窗体,然后下一步,会让你选 择打开的窗体名称,然后下一步,之后的根据你的需求选择就好了,你试一下吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2015-07-04
展开全部
添加宏
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询