为 Access 2007 表单中的按钮分配键盘快捷键

Posted 2023-05-07

【中文标题】为 Access 2007 表单中的按钮分配键盘快捷键

【英文标题】：Assigning a Keyboard shortcut to a button in an Access 2007 form

【发布时间】：2009-05-05 09:43:32

【问题描述】：

假设我有一个表单，上面有许多按钮。单击按钮时，一切正常。如何为我的按钮分配键盘快捷键，以便 Alt+A 运行按钮 A 的操作，Alt+B 运行按钮 B 的操作等。

这似乎是微不足道的，但我无法看到我可以在哪里设置它。

【参考方案1】：

在创建按钮时，在要 Alt+ 的字母前使用 & 号？在 Caption 属性中。

例子：

&File ---> F文件

&编辑 ---> E编辑

F&orge --> Forge

够了->够了够了够了

【讨论】：

谢谢尼克。就是这么简单:-)

刚刚意识到我的下划线没有出现。我认为 html 在这里工作？

这也适用于选项卡，尽管它会弄乱 Access 2003 中的文本对齐方式。

谢谢@Andre。我相信这可能是自从我第一次发布以来，Office 的更高版本发生了变化。 8 年来发生了很大变化！

【参考方案2】：

如果您想设置一个无论您在当前数据库中的哪个位置都可以使用的全局键盘快捷键，那么您可以创建一个名为 AutoKeys 的特殊宏并进行如下设置：

注意用于表示特殊键的特殊字符：

^ for Ctrl
+ for Shift
% for Alt

F11代表F11（功能）键

【参考方案3】：

在访问为您提供帮助时不要输入

[Ctrl]+[;] 插入当前日期。 如果您保留历史记录，或者在数据库的任何注释或其他字段中包含日期，这将是非常宝贵的。它不仅可以节省时间，还可以确保数据的准确性，让您不必记住日期。

[Ctrl]+[:] 插入当前时间。 与“插入日期”快捷方式一样，此功能可以节省比您想象的更多的时间，并且还有助于保持数据的准确性。

[Ctrl]+['] 在上一条记录中插入来自同一字段的值。 当您需要连续输入多条记录时，您可能会发现记录之间的许多字段是相同的。使用剪贴板复制数据会有所帮助，但您可能需要输入多个重复信息字段（您的姓名在一个字段中，日期在另一个字段中，一些通用 cmets 在第三个字段中）。使用此快捷方式从上一条记录中插入相同字段的值。

[Ctrl]+[Alt]+[Spacebar] 为当前字段插入默认值。 这在您开始输入时会派上用场，然后意识到您应该保留默认值。

可以使用键盘时不要使用鼠标

[Ctrl]+Arrow 组合键加速导航

[Ctrl]+[Left/Right Arrow] 将您移动到最后一个/下一个单词的开头。

[Ctrl]+[Up/Down Arrow] 将您移至最后/下一段的开头。

[Shift] +Arrow组合键选择文字

[Shift]+[Left/Right Arrow] 选择一个字母。

[Shift]+[Up/Down Arrow] 选择一行。

[Ctrl]+ [Shift]+[Left/Right Arrow] 选择一个词。

`[Ctrl]+ [Shift]+[Up/Down Arrow] 选择一个段落。

[F2] 在编辑模式和导航模式之间切换 编辑模式显示插入点。导航模式隐藏插入点，并选择整个字段。在导航模式下，使用箭头键在字段之间移动。

[F4] 打开一个组合框或列表框 使用此键盘快捷键下拉列表，然后使用箭头键从列表中选择一个值。

[Ctrl]+[+] 添加新记录

[Ctrl]+[-]删除当前记录

[Shift]+[Enter]保存当前记录 切换记录也会保存数据，但最好经常保存，尤其是在输入大量数据时。

[Ctrl]+[PgUp] 转到上一条记录

[Ctrl]+[PgDn] 转到下一条记录

【参考方案4】：

如果您想将功能键添加为表单的快捷方式，请将以下代码添加到您的表单 VB 代码中。

需要将KeyPreview 设置为Yes 才能工作（见下图）

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF5
        'Process F5 key events.
           Msgbox "F5"
        Case vbKeyF4
        ' Process F4 key events.
           MsgBox "F4"
        Case Else
    End Select
End Sub