ComboBox.SelText プロパティ (Access)

SelText プロパティは、選択したテキストを含む文字列を返します。 読み取り/書き込みが可能な String です。

構文

式。SelText

式ComboBox オブジェクトを表す変数。

注釈

テキストが選択されていない場合、SelText プロパティには Null 値が含まれます。

SelText プロパティは、コントロール内で選択されたテキストを含む文字列式を使います。 このプロパティが設定されている場合、コントロールに選択テキストが含まれていると、そのテキストは新しい SelText の設定値に置き換えられます。

コントロールに対してこのプロパティを使うには、そのコントロールにフォーカスを移動しておく必要があります。 フォーカスをコントロールに移動するには、SetFocus メソッドを使います。

例

次の例では、2 つのイベント プロシージャを使用して、ユーザーによって指定されたテキストを検索します。 検索するテキストは、フォームの Load イベント プロシージャで設定されます。 [検索] ボタン (ユーザーがクリックして検索を開始する) の Click イベント プロシージャは、検索するテキストをユーザーに求め、検索が成功した場合はテキスト ボックス内のテキストを選択します。

Sub Form_Load() 
 Dim ctlTextToSearch As Control 
 Set ctlTextToSearch = Forms!Form1!TextBox1 
 ctlTextToSearch.SetFocus ' SetFocus to text box. 
 ctlTextToSearch.SelText = "This company places large orders " _ 
 & "twice a year for garlic, oregano, chilies and cumin." 
End Sub 
 
Sub Find_Click() 
 Dim strSearch As String, intWhere As Integer 
 Dim ctlTextToSearch As Control 
 ' Get search string from user. 
 With Me!Textbox1 
 strSearch = InputBox("Enter text to find:") 
 ' Find string in text. 
 intWhere = InStr(.Value, strSearch) 
 If intWhere Then 
 ' If found. 
 .SetFocus 
 .SelStart = intWhere - 1 
 .SelLength = Len(strSearch) 
 Else 
 ' Notify user. 
 MsgBox "String not found." 
 End If 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。