Q&AAccess2010の「複数のアイテム」フォームに表示されるリストをフィルターして表示する機能を作りたいです。
最終的に、絞り込んだリストの名前一覧をVBA等で抜き出すなどの機能を作ろうと思っています。
項目数が少ないうちは手作業でテキストボックスを設置してVBAでFilterメソッドを使っても良いのですが、項目数が多くなると一つ一つ作るのはかなり手間がかかります。
絞り込みは非常によく使う機能だと思うのですが、簡単に作成する方法は無いのでしょうか？
理想としては、「分割フォーム」の下部分や「データシート」フォームに付いているフィルター機能を「複数アイテム」フォームの上部、またはフッターに搭載したいです。
特に[複数選択リストボックス]は選択形式のリストを複数選択する際に便利なので使いたいです。
●名簿
| ID | 拠点ID | 氏名 |
|---|---|---|
| 1 | 1 | 山田太郎 |
| 2 | 1 | 鈴木次郎 |
| 3 | 2 | 田中花子 |
| 4 | 3 | 斎藤太郎 |
●拠点コード
| ID | 拠点名 |
|---|---|
| 1 | 東京 |
| 2 | 大阪 |
| 3 | 沖縄 |
※「名簿」の「拠点ID」はルックアップで「拠点コード」の「ID」に接続
回答1件
0
自己解決
自己解決です。
下記手順で目的通りのフォームが作れました。
- 一旦「分割フォーム」を作ってから、「詳細」（または「Detail」）の[プロパティ] → [可視]を [はい] にする。
- 「フォーム」の[プロパティ] → [分割フォームの分割バー] を [いいえ] にする。
さらに、下記VBAコードでフィルターで抽出したレコードのみ取り出すことができました。
lang
1Private Sub コマンド11_Click() 2 Dim RS As Recordset 3 4 Set RS = Me.Recordset 5 6 Do Until RS.EOF 7 Debug.Print RS!氏名 8 RS.MoveNext 9 Loop 10 11End Sub
投稿2017/10/27 03:05
総合スコア23
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。