设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3051|回复: 6
打印 上一主题 下一主题

[与其它组件] [求助]怎么用VBA更改ENTER键行为?

[复制链接]
跳转到指定楼层
1#
发表于 2004-8-7 00:25:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问如何用VBA实现以下功能:

在“按 Enter 键后光标移动方式”下,请执行下列操作之一:

若要在按 Enter 后插入点保留在当前字段中不动,请单击“不移动”。

若要在按 Enter 后将插入点移到下一个字段,请单击“下一个字段”。

若要在按 Enter 后将插入点移到下一个记录的当前字段,请单击“下一条记录”。 [em06]*注意,并不是更改单个控件的Enter键行为,那个我知道可以用EnterKeyBehavior 属性来设置,我是要整个数据库的。也不能弹出那个选项卡的对话框,只要在后台更改它的值就行。[em06]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2004-8-9 23:59:00 | 只看该作者
[em03]怎么没人回复呀?自己顶一下,别掉下去了............各位大虾,帮帮忙呀........
3#
发表于 2004-8-10 00:08:00 | 只看该作者
后台控制?????为什么不能用端台呢?通过窗体加代码多好看呀
4#
 楼主| 发表于 2004-8-12 02:57:00 | 只看该作者
[em01]经过几天的摸索,总算找到了答案,用APPLICATION的Setoption和Getoption方法,可以设置ACCESS的“选项”里的选项卡的值,现将CODE附上,以免遇上同样问题的朋友和我一样苦恼。Option Compare Database

Dim xy As VariantPrivate Sub GRN_Details_Enter()

xy = Application.GetOption("Move After Enter")

Application.SetOption "Move After Enter", 2

End SubPrivate Sub GRN_Details_Exit(Cancel As Integer)

Application.SetOption "Move After Enter", xy

End Sub
5#
发表于 2007-10-19 16:07:55 | 只看该作者
这个怎么用啊?
6#
发表于 2008-1-24 13:48:53 | 只看该作者
学习中!!!!!!!!!!!
7#
发表于 2011-9-22 09:53:56 | 只看该作者
谢谢斑竹,找了很久,非常有用,谢谢。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-4-28 08:29 , Processed in 0.101931 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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