Office中国论坛/Access中国论坛

标题: 打开窗体时,如何才能显示到选项卡中指定的页? [打印本页]

作者: xryacc 时间: 2007-10-21 19:24
标题: 打开窗体时,如何才能显示到选项卡中指定的页?
打开窗体时,如何才能显示选项卡中指定的页?
比如有两件窗体:窗体A和窗体B,其中窗体B中有个选项卡C,有页1和页2
--我在窗体A中做了一个按钮"打开",当按这个按钮时,打开窗体B,并且显示到选项卡中的页2
---------------如何实现这个功能,请高手赐教!谢谢!

作者: Henry D. Sy 时间: 2007-10-21 20:08
加载事件中
me.页2.setfocus

作者: xryacc 时间: 2007-10-21 20:28
标题: 打开窗体时,如何才能显示到选项卡中指定的页?
要在窗体B中加载吗?我不是这样的意思,我只是在想窗体A中操作命令按钮,打开窗体B后指定到页2,而让窗体B在其他情况下开启时,默认显示的是页1

作者: Henry D. Sy 时间: 2007-10-21 20:39
传上你的例子

作者: Henry D. Sy 时间: 2007-10-21 20:47
先给打开按纽加代码，假设按纽为command0
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "b"
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "abc"
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub

再给窗体B，写上如下代码：
Private Sub Form_Load()
If Me.OpenArgs = "abc" Then
Me.页2.SetFocus
Else
Me.页1.SetFocus
End If
End Sub

作者: xryacc 时间: 2007-10-21 21:01
标题: OpenArgs 是什么?
OpenArgs 是什么?程序出错

作者: Henry D. Sy 时间: 2007-10-21 21:03
怎么会出错，出现什么提示？？

作者: Henry D. Sy 时间: 2007-10-21 21:07

原帖由 xryacc 于 2007-10-21 21:01 发表
OpenArgs 是什么?程序出错

OpenArgs是打开窗体时的一个参数，传递一个Variant 型字符串

作者: andymark 时间: 2007-10-21 21:09
DoCmd.OpenForm "窗体B"
Forms!窗体B.选项卡控件C.Value = 1 '0值为页1,1值为页2

作者: xryacc 时间: 2007-10-21 21:22
标题: 谢谢andymark
谢谢andymark!!!我之前也是用这种方法
Forms!窗体B.选项卡控件C.Value = 1 或者:
Form_窗体B.选项卡控件C.Value = 1 都不行,后来我发现了问题的所在,但不明其所以然,
原来我的打开代码是这样写的:
DoCmd.OpenForm "窗体B" , acNormal, windowmode:=acDialog
正当我百思不得其要领时,我把打开代码变成

oCmd.OpenForm "窗体B" ,(后面的不要了)
再用以上任何一种代码都可以显示指定的页了,唉,也不知是个什么原因用对话框方式开户就不行.不过我可以把"窗体B" 设为弹出方式

作者: xryacc 时间: 2007-10-21 21:24
标题: 也感谢6个D
也感谢6个D，感谢你的帮助。

作者: hywlthj 时间: 2008-8-25 02:30
标题: 只需更改TAB次序
鼠标指向选项卡右击，然后选择TAB次序，把要打开的页放在第行即可

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)