ms-access - 按键时清除文本框

Question

有没有办法像 Excel 一样清除按键时的文本框。

我尝试了以下代码，但单击文本框时它会清除文本。我希望它在按下某个键时清除它。

Private Sub Text10_GotFocus()
Text10.Value = ""
End Sub

Answer 1

只要该控件获得焦点，您就可以选择该控件的整个文本内容。然后您的按键将替换所选的文本。

如果您希望每个表单上的每个文本框都发生这种情况，您可以将“输入字段的行为”设置设置为“选择整个字段”。 (在 Access 2007 中，从 Office 按钮 -> Access 选项 -> 高级中找到该设置，然后查看该对话框的“编辑”标题。对于 Access 2003，请参阅 this page。)

该设置不仅会应用于表单控件，还会应用于数据 TableView 中的表和查询。如果这不是您想要的，您可以在表单模块中使用 VBA 仅选择特定控件的文本:

Private Sub MyTextBox_GotFocus()
    Me.MyTextBox.SelStart = 0
    Me.MyTextBox.SelLength = Len(Me.MyTextBox)
End Sub

如果您想对多个控件执行此操作，您可以创建一个通用过程:

Private Sub SelectWholeField()
    Me.ActiveControl.SelStart = 0
    Me.ActiveControl.SelLength = Len(Me.ActiveControl)
End Sub

然后从单个控件的获得焦点事件中调用该过程，如下所示:

Private Sub MyTextBox_GotFocus()
    SelectWholeField
End Sub