Office中国论坛/Access中国论坛

标题: 请问在Autokeys宏中，方向键怎样描述 [打印本页]

作者: zyp 时间: 2008-11-19 22:15
标题: 请问在Autokeys宏中，方向键怎样描述
在使用autokeys宏中，宏名用{INSERT}可以代表按下的是insert键，那么如果要指向四个方向键，这个宏名要怎样写？

请各位大侠支招，谢谢！

以下内容为2008/11/20新增：

或者如何实现在窗体中用上下键可跳至上一条记录的当前控件和下一条记录的当前记录。就如同在数据中（或窗体的数据表视图下那样使用上下键）。不过不是那种在每个控件上都写代码的那种，那样工作量太吓人了

谢谢了！

[ 本帖最后由 zyp 于 2008-11-20 21:04 编辑 ]

作者: Henry D. Sy 时间: 2008-11-19 22:44
TRY
{LEFT}，{RIGHT}，{UP}，{DOWN}

作者: zyp 时间: 2008-11-19 23:32

原帖由 dddddd 于 2008-11-19 22:44 发表
TRY
{LEFT}，{RIGHT}，{UP}，{DOWN}

谢谢! 试过，不行

作者: zyp 时间: 2008-11-20 20:50
哪位大哥救救我！！！

作者: Henry D. Sy 时间: 2008-11-20 21:19
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
DoCmd.GoToRecord , , acPrevious
ElseIf KeyCode = 40 Then
DoCmd.GoToRecord , , acNext
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

eof 和 bof 你自己添加来控制

作者: Henry D. Sy 时间: 2008-11-20 21:28
还是完善了给你

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
If CurrentRecord > 1 Then
DoCmd.GoToRecord , , acPrevious
End If
ElseIf KeyCode = 40 Then
If Not NewRecord Then
DoCmd.GoToRecord , , acNext
End If
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub

复制代码

作者: zyp 时间: 2008-11-21 22:53

原帖由 dddddd 于 2008-11-20 21:28 发表
还是完善了给你

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
      If CurrentRecord > 1 Then
         DoCmd.GoToRecord , , acPrevious
      End  ...

谢谢dddddd，功能OK。

作者: changweiren 时间: 2008-11-22 10:57
标题: 回复 6# 的帖子
谢谢，学习了。

作者: 790729 时间: 2009-3-21 14:25
好好东西，解决现问题，谢谢

作者: chaojianan 时间: 2009-3-21 16:40
学习了，谢谢分享。

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