access 进入指定字段时,自动全选当前值

 如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次.

我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常.

但有个小BUG,就是每次点击都会全选当前值,于是我加了个开关变量来配合点击事件.完整代码如下:

Option Compare Database
Dim f As Boolean
Private Sub 申请数量_Click()
    If f Then Exit Sub
    申请数量.SelStart = 0
    申请数量.SelLength = Len(申请数量.Text)
    f = True
End Sub

Private Sub 申请数量_LostFocus()
    f = False
End Sub