输入时更新文本框

Question

在 Access 中，我有一个包含三个文本框的表单。 我正在尝试使用两者的组合更新一个名为 tbxCombinedName 的文本框：

• 文本框 tbxLastName（人的姓氏）
• 文本框 tbxFirstName（人的名字）

我的问题是：我使用什么文本框属性，所以当我在 tbxLastName 中输入文本时，CombinedName 文本框会立即更新，然后保存在表格中联系人。

在Microsoft's website，我发现在文本框输入时的步骤流程如下：

KeyDown → KeyPress → BeforeInsert → Change → KeyUp

我尝试使用 OnChange 和 OnKeyDown 属性，但无济于事。哪个属性与什么代码相结合，将允许 update-as-you-type 操作起作用？

这是我之前写的，没用：

Private Sub tbxLName_change()

Dim lastName As String
Dim nameCode As String

lastName = tbxLName.Value
Debug.Print lastName
nameCode = tbxNameCode.Value
nameCode = lastName
Debug.Print nameCode

End Sub

提前感谢您的所有帮助。

Answer 1

这是您应该引用 .text 属性的少数情况之一。

在更改事件中：

lastName = tbxLName.Text

.text 属性仅在控件具有焦点并且引用控件的可见内容时可用。

但是，这是一个数据库，一般规则是您不能不存储计算字段。可以通过查询轻松获得全名。

Answer 2

只是几个注意事项：

您可能希望使用 KeyPress，因为它提供了更改或取消用户按下的键的能力。

在下面的例子中，只允许使用字母，小写字母是大写的：

Private Sub tbxLName_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        Const ASCII_LOWER_RANGE = 65
        Const ASCII_UPPER_RANGE = 122
        Const ASCII_LOWER_A = 97
        Const ASCII_LOWER_Z = 122
        Const UPPER_MODIFIER = -32
        Const ASCII_CANCEL_CODE = 0

        Select Case KeyAscii
            Case ASCII_LOWER_RANGE To ASCII_UPPER_RANGE
                If KeyAscii >= ASCII_LOWER_A And KeyAscii <= ASCII_LOWER_Z Then
                    KeyAscii = KeyAscii + UPPER_MODIFIER
                End If
            Case Else
                KeyAscii = ASCII_CANCEL_CODE  'Cancel Key Press
        End Select
End Sub