AccessVBAでクリック時に全選択を共通部品化：数字を消さずに上書き入力

Private Sub Txt_Suryo_Click()
    Me.Txt_Suryo.SelStart = 0
    Me.Txt_Suryo.SelLength = Len(Me.Txt_Suryo.Text)
End Sub

'--- マウスボタンの状態を調べるWindows API ---
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

'--- 全選択の予約フラグ（クリックで欄に入った直後だけTrue）---
Private m_blnSelPending As Boolean

'=========================================================
'  プロシージャ名：gf_SEL_ENTER
'  機能　　：マウスのクリックで欄に入ったときだけ、
'            全選択を予約します。
'            テキストボックスの「フォーカス取得時」に設定します。
'
'  【設定例】
'    フォーカス取得時 ＝ =gf_SEL_ENTER()
'=========================================================
Public Function gf_SEL_ENTER()
    '=== 左ボタンが押されている＝クリックで入った ===
    m_blnSelPending = (GetAsyncKeyState(vbKeyLButton) And &H8000) <> 0
End Function

'=========================================================
'  プロシージャ名：gf_SEL_CLICK
'  機能　　：予約されていれば、アクティブなコントロールの
'            内容を全選択します。
'            テキストボックスの「クリック時」に設定します。
'
'  【設定例】
'    クリック時 ＝ =gf_SEL_CLICK()
'=========================================================
Public Function gf_SEL_CLICK()
    On Error Resume Next
    '=== 予約がなければ何もしない（2回目以降のクリック）===
    If Not m_blnSelPending Then Exit Function
    m_blnSelPending = False
    '=== 全選択 ===
    With Screen.ActiveControl
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Function

'=========================================================
'  プロシージャ名：gf_SEL_CHANGE
'  機能　　：入力が始まったら全選択の予約を解除します。
'            テキストボックスの「変更時」に設定します。
'
'  【設定例】
'    変更時 ＝ =gf_SEL_CHANGE()
'=========================================================
Public Function gf_SEL_CHANGE()
    m_blnSelPending = False
End Function

Private Sub Txt_Hinmei_Enter()
    '=== 既存の処理（IMEをオンにする等）===
    Me.Txt_Hinmei.IMEMode = 1
    '=== 全選択を予約 ===
    Call gf_SEL_ENTER
End Sub

'=========================================================
'  プロシージャ名：gs_SET_SEL_EVENT
'  機能　　：指定フォームの入力可能なテキストボックスに
'            全選択用のイベントプロパティを一括設定します。
'
'  【引数】
'    strFormName ：対象フォーム名
'
'  【処理概要】
'    ・フォームをデザインビューで開く
'    ・入力可能なテキストボックスだけを対象にする
'      （使用不可・編集ロック・演算コントロールは対象外）
'    ・既にイベントが設定されているプロパティは上書きしない
'    ・保存して閉じ、設定件数をイミディエイトウィンドウに出力
'
'  【使用例】
'    Call gs_SET_SEL_EVENT("F_受注入力")
'=========================================================
Public Sub gs_SET_SEL_EVENT(strFormName As String)
    On Error GoTo err_SET_SEL_EVENT
    Dim l_frm As Form             ' 対象フォーム
    Dim l_ctl As Control          ' コントロール
    Dim l_cnt As Long             ' 設定件数
    Dim l_skip As Long            ' 既存イベントありで一部スキップした件数
    '=== デザインビューで開く ===
    DoCmd.OpenForm strFormName, acDesign, , , , acHidden
    Set l_frm = Forms(strFormName)
    For Each l_ctl In l_frm.Controls
        If l_ctl.ControlType = acTextBox Then
            '=== 入力できない欄は対象外 ===
            If l_ctl.Enabled And Not l_ctl.Locked _
               And Left(l_ctl.ControlSource, 1) <> "=" Then
                '=== 空のプロパティだけ設定（既存イベントは上書きしない）===
                If Len(l_ctl.OnEnter) = 0 Then l_ctl.OnEnter = "=gf_SEL_ENTER()"
                If l_ctl.OnEnter <> "=gf_SEL_ENTER()" Then l_skip = l_skip + 1
                If Len(l_ctl.OnClick) = 0 Then l_ctl.OnClick = "=gf_SEL_CLICK()"
                If Len(l_ctl.OnChange) = 0 Then l_ctl.OnChange = "=gf_SEL_CHANGE()"
                l_cnt = l_cnt + 1
                Debug.Print strFormName & "." & l_ctl.Name & _
                            IIf(l_ctl.OnEnter = "=gf_SEL_ENTER()", "", "　※フォーカス取得時は既存のため要手動追加")
            End If
        End If
    Next l_ctl
    '=== 保存して閉じる ===
    DoCmd.Close acForm, strFormName, acSaveYes
    Debug.Print "設定件数：" & l_cnt & "件（うちフォーカス取得時が既存：" & l_skip & "件）"
    Exit Sub
err_SET_SEL_EVENT:
    MsgBox "【gs_SET_SEL_EVENT】設定中にエラー発生" & vbCrLf & _
           "番号：" & Err.Number & vbCrLf & _
           "内容：" & Err.Description, vbCritical
    '=== デザインビューで開いたままにしない（変更は保存しない）===
    On Error Resume Next
    DoCmd.Close acForm, strFormName, acSaveNo
End Sub

Call gs_SET_SEL_EVENT("F_受注入力")

Debug.Print IIf(l_ctl.ControlType = acComboBox, l_ctl.LimitToList, "-")