vba - 如何使用 Access VBA 在 textBox.Setfocus 之后选择 TextBox 中的所有文本

Question

当我单击(或双击)Access 表单的文本框时，我需要选择其中的所有文本。我尝试了以下代码，但没有成功:

Me.txt_CompraPreco.SelStart = 0
Me.txt_CompraPreco.SelLength = Len(Me.txt_CompraPreco)

提前致谢。

Answer 1

您可以使用下面显示的代码。如果不行，就在代码的第一行打断点。如果它没有在您的断点处停止，那么您的事件将无法识别。

Option Compare Database
Option Explicit

Private Sub txt_CompraPreco_Click()
    If Len(Me.txt_CompraPreco & "") = 0 Then Exit Sub
    Me.txt_CompraPreco.SelStart = 0
    Me.txt_CompraPreco.SelLength = Len(Me.txt_CompraPreco)
End Sub