如何使用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