Accsessのフォームに配置した「テキストボックス」に入力した文字でデータ抽出する方法です。
Accessのバージョン:Microsoft 365 Apps for business
やりたいこと
フォームヘッダーに配置したテキストボックスに抽出したいデータの文字を入力し、「抽出」ボタンをクリックするとデータが抽出される。
- 抽出する対象は、オプションボタンで選択可能
- 抽出ワードは部分一致
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-kansei.png)
抽出ボックスを設置し曖昧ワードで抽出する
フィールド「名前」で抽出する設定方法です。
(1)フォームをデザインビューで開きます。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-2.png)
(2)フォームヘッダーにテキストボックスとコマンドボタン2つ設置します。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-3.png)
名前は以下のようにつけました。
- テキストボックス:FilWD
- コマンドボタン・抽出:FilButton
- コマンドボタン・全データ:AllButton
- ラベル:FilWD_ラベル
テキストボックス
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-5-2.png)
コマンドボタン
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-4-1.png)
コマンドボタン
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-4-2.png)
ラベル
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-5-1.png)
(3)抽出ボタンを選択し、プロパティシートよりイベントの「クリック時」右側の「・・・」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-6.png)
(4)コードビルダーを選択し、「OK」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-7.png)
(5)コードを入力します。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-7-2.png)
(6)コマンドボタン「全データ」も「抽出」と同じ要領で入力します。
入力は「Me.FilterOn = False」のみです。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-8.png)
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-8-2.png)
設定は以上で終わりです。動作確認をします。テキストボックスに抽出したいデータの一部の文字を入力します。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-9.png)
「抽出」ボタンをクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-9-2.png)
オプションボタンで抽出するフィールドを切り替える
(1)フォームをデザインビューで開きます。
次は、フォームヘッダーにオプションボタングループを設置します。
(2)オプショングループを選択し、フォームヘッダーの設置する場所をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op1.png)
![](https://pc.819oba3.com/wp-content/uploads/2020/07/access-chushutu-op1.png)
(3)ラベル名を入力し、「次へ」をクリックします。ここでは、「種類」と「名前」にしました。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op2.png)
(4)既定値を選択し、「次へ」をクリックします。ここでは「名前」にしました。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op3.png)
(5)値を設定し、「次へ」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op4.png)
(6)「次へ」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op5.png)
(7)「次へ」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op6.png)
(8)オプショングループの表題を入力し「完了」をクリックします。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op7.png)
設置後の画面
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op8.png)
好みの位置に設置します。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op9.png)
(9)オプショングループの名前を変更します。ここでは、「OrderG」としました。
(10)「抽出」ボタンをクリックしたときのコードを変更します。
![](https://officeqa.net/wp-content/uploads/2023/04/access-chushutu-op10.png)
Dim FName As String
Select Case Me.OrderG.Value
Case 1
FName = “種類名 like ‘” & FilWD & “‘”
Case 2
FName = “名前 like ‘” & FilWD & “‘”
End Select
Me.Filter = FName
Me.FilterOn = True