一部選択

下記のような名前のテキストボックスとボタンを用意。

先頭3文字を選択するサンプル

Option Compare Database
Option Explicit

Private Sub btn_1_Click()
    
    'フォーカスあてる。
    Me.txt_1.SetFocus
    
    '最初の1文字目も選択に含める時は0。
    Me.txt_1.SelStart = 0
    
    '3文字分選択。
    Me.txt_1.SelLength = 3
    
End Sub

実行結果。

全角半角まわり。

テキストボックスの文字数 < VBAで指定した文字数の場合、例外にならず全選択になる。

全選択

テキストボックスやボタンは一部選択と同じなので省略。

全選択するサンプル

Option Compare Database
Option Explicit

Private Sub btn_1_Click()
    
    'フォーカスあてる。
    Me.txt_1.SetFocus
    
    '最初の1文字目も選択に含める時は0。
    Me.txt_1.SelStart = 0
    
    '末尾まで選択。
    '何も入力していない場合『Me.txt_1.Value』はNULLとなり、
    'Len()に通すと例外になる為、Nz()をかませる。
    Me.txt_1.SelLength = Len(Nz(Me.txt_1.Value, ""))
    
End Sub

SelLengthに0を指定した場合

例外にならない。
何も選択されないだけ。

SelLengthに負の値を指定した場合

例外になる。

参考サイトさん

バージョン

Windows 10 Pro 22H2 OSビルド 19045.2673
Microsoft Access for Microsoft 365 MSO (バージョン 2301 ビルド 16.0.16026.20196) 32 ビット