请问在Autokeys宏中，方向键怎样描述

zyp

在使用autokeys宏中，宏名用{INSERT}可以代表按下的是insert键，那么如果要指向四个方向键，这个宏名要怎样写？

请各位大侠支招，谢谢！


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

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

谢谢了！

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

Henry D. Sy

TRY
{LEFT}，{RIGHT}，{UP}，{DOWN}

zyp

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

谢谢! 试过，不行

zyp

哪位大哥救救我！！！

Henry D. Sy

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

还是完善了给你

1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
2.     If KeyCode = 38 Then
   
3.         If CurrentRecord > 1 Then
   
4.             DoCmd.GoToRecord , , acPrevious
   
5.         End If
   
6.     ElseIf KeyCode = 40 Then
   
7.         If Not NewRecord Then
   
8.             DoCmd.GoToRecord , , acNext
   
9.         End If
   
10.     End If
    
11. End Sub
    
12. 
    
13. Private Sub Form_Load()
    
14.     Me.KeyPreview = True
    
15. End Sub

复制代码

zyp

原帖由 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

谢谢，学习了。

790729

好好东西，解决现问题，谢谢

chaojianan

学习了，谢谢分享。