怎样使用SETFOCUS使光标进入下一条记录而不是进入下一字段?

想做NO.1

怎样使用SETFOCUS使光标进入下一条记录而不是进入下一字段?

例:
     字段1  字段2  字段3
       A       AA     AB
       B       BB     BC

当光标在"A"上时,按回车键后我希望光标直接跳到"B"上,而不是跳到"AA"上,请问怎样实现?多谢了.(我知道在"工具-选项"里设置可以,但我想用别的方法.)

    (呵呵,新手提的问题,请见笑.)

tmtony

一般只能设置tab是在单条记录 循环,还是在整个表循环.
如果要实现这个功能,必须要在 键盘事件中 写代码,关闭如果是tab ,就模拟 上下键

想做NO.1

请问好心大哥能把这键盘事件的代码写出来吗?非常感谢啊!(如果非常复杂那就不麻烦了)

ACMAIN_CHM

当光标在"A"上时,按回车键后我希望光标直接跳到"B"上,而不是跳到"AA"上,

试一下一在"A"所在的这个控件上的keydown或其它事件中对按键判断一下，如果KeyCode=13则DoCmd.GoToRecord acNext, 具体可以查看ACCESS的VBA帮助中的 KeyDown 事件，DoCmd.GoToRecord 方法， 注意把 KeyCode=0清除一下。





******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

想做NO.1

弹出一个对话框说"这个操作需要object name 参数."

哎,我真菜呀,不知如何是好.

Henry D. Sy

sendkeys语句

changweiren

模拟上下键

ACMAIN_CHM

弹出一个对话框说"这个操作需要object name 参数."

哎,我真菜呀,不知如何是好.
想做NO.1 发表于 2009-2-14 17:24

有在ACCESS的帮助手册中查过 GoToRecord 语法和用法说明吗？！

以下摘自 Microsoft Access 2003 Help
GoToRecord 方法


在 Visual Basic 中，GoToRecord 方法执行 GoToRecord 操作。

expression.GoToRecord(ObjectType, ObjectName, Record, Offset)

expression      必需。返回“应用于”列表中的一个对象的表达式。

ObjectType   可选 AcDataObjectType 型。

AcDataObjectType 可以是下列 AcDataObjectType 常量之一：

acActiveDataObject 默认

acDataForm

acDataFunction

acDataQuery

acDataServerView

acDataStoredProcedure

acDataTable

ObjectName     可选 Variant 型。字符串表达式，表示 objecttype    参数所选类型的对象的有效名称。

Record   可选 AcRecord。

AcRecord 可以是下列 AcRecord 常量之一：

acFirst

acGoTo

acLast

acNewRec

acNext 默认

acPrevious 如果将该参数留空，将采用默认常量 (acNext)。

Offset     可选 Variant 型。数值表达式，如果将 record    参数指定为 acNext 或 acPrevious，则该表达式表示向前或向后移动的记录数。如果将 record 参数指定为 acGoTo，则该表达式表示移动到的记录编号。该表达式的值必须在有效记录数范围之中。




Option Compare Database
Option Explicit
Private Sub fd01_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        DoCmd.GoToRecord , Me.Name, acNext
        KeyCode = 0
    End If
End Sub




******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

红尘如烟

既然系统本身就有这样的功能,干嘛不用非要去想别的办法呢?如果你只是不想通过菜单来控制,可以在代码中使用SetOption方法来设置:
setOption "Move After Enter", 1    '按Enter键后光标移到下一字段
setOption "Move After Enter", 2    '按Enter键后光标移到下一记录

想做NO.1

结贴!非常感谢大家的热心帮助.

其中特别感谢"ACMAIN_CHM"先生.谢谢先生的帮助!