vba - 如何仅在 VBA Access 中捕获 vbKeyReturn

Question

我有一个textbox控制在subForm这是 singleForm 。但是，当我按enter时键它添加了一个 new record和上一个 record躲起来。我有form property已设置为current record 。

我使用下面的代码来捕获 enter关键，有效。

Private Sub txt_1_KeyDown (KeyCode As Intger, Shift as Integer)

Select case KeyCode
    Case vbKeyCode
        KeyCode = 0
        Me.parent.Combo.SetFocus
End Select

End Sub

但是，现在我无法添加 new line使用Ctrl + Enter textbox内因为当我按下 enter 时代码就会触发。有人可以帮助如何更改上面的代码，使其只捕获 enter键并保持按 Ctrl + Enter 添加新行的默认 Access 行为.

Answer 1

您将需要一个条件表达式来测试:

• 已按下 Enter 键(ASCII 字符 13)
• 事件处理程序的 Shift 参数为零，表示没有同时按下 Ctrl、Shift、Alt 和 >输入键。

代码可能如下所示:

Private Sub txt_1_KeyDown(KeyCode As Intger, Shift As Integer)
    If KeyCode = 13 And Shift = 0 Then
        KeyCode = 0
        Me.Parent.Combo.SetFocus
    End If
End Sub