设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3674|回复: 11
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2007-10-21 19:24:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
打开窗体时,如何才能显示选项卡中指定的页?
比如有两件窗体:窗体A和窗体B,其中窗体B中有个选项卡C,有页1和页2
--我在窗体A中做了一个按钮"打开",当按这个按钮时,打开窗体B,并且显示到选项卡中的页2
---------------如何实现这个功能,请高手赐教!谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-10-21 20:08:19 | 只看该作者
加载事件中
me.页2.setfocus
3#
 楼主| 发表于 2007-10-21 20:28:35 | 只看该作者

打开窗体时,如何才能显示到选项卡中指定的页?

要在窗体B中加载吗?我不是这样的意思,我只是在想窗体A中操作命令按钮,打开窗体B后指定到页2,而让窗体B在其他情况下开启时,默认显示的是页1
4#
发表于 2007-10-21 20:39:19 | 只看该作者
传上你的例子
5#
发表于 2007-10-21 20:47:17 | 只看该作者
先给打开按纽加代码,假设按纽为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
6#
 楼主| 发表于 2007-10-21 21:01:25 | 只看该作者

OpenArgs 是什么?

OpenArgs 是什么?程序出错
7#
发表于 2007-10-21 21:03:02 | 只看该作者
怎么会出错,出现什么提示??
8#
发表于 2007-10-21 21:07:03 | 只看该作者
原帖由 xryacc 于 2007-10-21 21:01 发表
OpenArgs 是什么?程序出错

OpenArgs是打开窗体时的一个参数,传递一个Variant字符串
9#
发表于 2007-10-21 21:09:14 | 只看该作者
DoCmd.OpenForm "窗体B"
Forms!窗体B.选项卡控件C.Value = 1     '0值为页1,1值为页2
10#
 楼主| 发表于 2007-10-21 21:22:16 | 只看该作者

谢谢andymark

谢谢andymark!!!我之前也是用这种方法
Forms!窗体B.选项卡控件C.Value = 1 或者:
Form_窗体B.选项卡控件C.Value = 1 都不行,后来我发现了问题的所在,但不明其所以然,
原来我的打开代码是这样写的:
DoCmd.OpenForm "窗体B" , acNormal, windowmode:=acDialog
正当我百思不得其要领时,我把打开代码变成oCmd.OpenForm "窗体B" ,(后面的不要了)
再用以上任何一种代码都可以显示指定的页了,唉,也不知是个什么原因用对话框方式开户就不行.不过我可以把"窗体B" 设为弹出方式
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 05:31 , Processed in 0.097502 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表