Office中国论坛/Access中国论坛

标题: 这个看似简单的问题害得我忙了一天也没搞定 [打印本页]

作者: 软件下载 时间: 2004-11-26 00:20
标题: 这个看似简单的问题害得我忙了一天也没搞定
大家知道有个“forms!窗体名!控件名.属性”语法，如forms!ordery_name!文本1.setfocus，现在的问题是：看下面代码：

function Command1_Click()

dim frm_nam,ctl_nam as string '此名不要也无妨

frm_nam= Screen.Activeform.Name　　'获取当前活动的窗体名

ctl_nam=screen.Activecontrol.Name　　　'获取当前获得焦点的控件名

forms!frm_nam!ctl_nam.AutoTab=true '将此控件的自动索引设为真。

End function

大家应该理解我的意思，上面的代码通不过，应该怎样改写？

作者: 软件下载 时间: 2004-11-26 01:04
没人知道？

上面代码关键是最后一个不行，无法将frm_nam替换成窗体名。

作者: yachtz 时间: 2004-11-26 01:15
这样引用 forms(frm_nam).Controls(ctl_nam)

另外，按扭是无Autotab的

作者: 软件下载 时间: 2004-11-26 06:11

以下是引用yachtz在2004-11-25 17:14:36的发言：

这样引用 forms(frm_nam).Controls(ctl_nam)

另外，按扭是无Autotab的

谢谢，此法可用，不过刚才得到另一高人指点，决定用更简单的sendkeys "{f2}"

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