Office中国论坛/Access中国论坛

标题: 求组:回车键功能,具体内容;请进 [打印本页]

作者: cangqiong 时间: 2007-8-29 10:24
标题: 求组:回车键功能,具体内容;请进
有这样一个窗体
在进入窗体输入时.我按回车键.会跳到下一个字段.但是到删除按钮位置,在按回车键就会删除...我不想跳到删除按钮的位置,
我想输入到"出生日期"位置后,在按回车键就会跳到下一行的"姓别"字段.
请问如何设置.或如何写代码?

作者: ytf123 时间: 2007-8-29 10:28
属性—制表位—否

作者: kangking 时间: 2007-8-29 11:31
Private Sub 出生日期_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
DoCmd.GoToRecord , , acNewRec
Me.姓别.SetFocus
End If

End Sub

作者: cangqiong 时间: 2007-8-29 11:34
在哪个里面?
格式,事件,其它,全部?
没找到

作者: cangqiong 时间: 2007-8-29 11:52
谢了.OK了
If KeyCode = 13 这句为什么等于13啊? 不明白

作者: 一点通 时间: 2007-8-29 11:58
常见的普通设置是:在窗体设计状态下, 右击空白处, 在弹出菜单中选"TAB键次序",按需要设置一下全局的次序就行了

作者: kangking 时间: 2007-8-29 12:03

原帖由 cangqiong 于 2007-8-29 11:52 发表
谢了.OK了
If KeyCode = 13 这句为什么等于13啊? 不明白

因为回车键的键码是13.
另外,上面的例子只是在最后记录中录入后的回车效果,如果不是在最后上条记录上,则还要进行一些处理.比如是最后一条记录时就新增加一条记录,但不是最后一条记录时,则只移动到下一条记录.

作者: cangqiong 时间: 2007-8-29 12:49
首先回答一下一点通大哥的话...
我一开我是那样设置的....但是不能把那个COMMAND按钮设没. 所以没有办法
kangking 大哥
我只想在"出生日期"按回车键.然后到下一条记录的"姓别"
DoCmd.GoToRecord , , acNewRec '这句是什么意思. acNewRec是什么?

作者: cangqiong 时间: 2007-8-29 12:57
我是在一条新记录里,填写..填写到出生日期,回车后.会出现报警
运行时错误'2105'
您不能转到指定的记录

作者: cangqiong 时间: 2007-8-29 13:00
报警,已经解决... 想问一下.8楼问题

作者: ytf123 时间: 2007-8-29 13:06
是不是这样？是的话方法在2楼

[ 本帖最后由 ytf123 于 2007-8-29 13:09 编辑 ]

作者: goto2008 时间: 2007-8-29 13:15
学习一下...........

作者: kangking 时间: 2007-8-29 14:15
Private Sub 出生日期_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next '有错误发生时继续执行
If KeyCode = 13 Then
'如果按下回车键
If Me.Recordset.AbsolutePosition + 1 = Me.Recordset.RecordCount Then
      如果到了最后一条记录
      DoCmd.GoToRecord , , acNewRec    '生成一条新的空记录
      Me.姓别.SetFocus
Else
      '否则移动到下一条记录
      Me.Recordset.MoveNext
      Me.姓别.SetFocus
End If
End If

End Sub

作者: cangqiong 时间: 2007-8-29 14:38
谢谢 ytf123 和 kangking 两位兄弟
两种方法都可以.
这个问题已经困绕我很久了.
今天我很有收获.谢谢

作者: rym_yy 时间: 2008-2-27 09:48
OK,学习大家的好经验!!!!

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