Accessにて検索結果をサブフォームに表示する方法がわかりません。

テーブルの情報をフォーム内で検索して結果をサブフォームに表示させたいのですが、
検索ボタンとサブフォームをどう設定し連携させれば良いかわかりません。

Accessはまだ２日ほどしか触ったことありません。

年齢、住まい、名前、性別をフォームで準備し検索をかけることまではできました（分割フォームにて確認済み）
ただ、分割フォームで作成すると上に表示されておりそこで編集も出来てしまうので
別の方法はないか探してます。また、検索結果のレコードも編集ができないようにしたいです。

単純にテーブルから検索して表示するフォームを作成したいです。
編集はできないように。

色々サイト見ましたが、どれもわかりずらく理解できませんでした。

テキストボックスと検索ボタンの連携させるコードは下記の通りしています。

vba
1Private Sub 検索ボタン_Click()
2    Dim age As String
3    Dim address As String
4    Dim name As String
5    Dim sex As String
6    Dim WhereString As String
7
8    age = Nz(ValueAge)
9    address = Nz(ValueAddress)
10    name = Nz(ValueName)
11    sex = Nz(ValueSex)
12
13    If age <> "" Then
14        If WhereString <> "" Then WhereString = WhereString & " AND "
15        WhereString = WhereString & "(年齢 like '*" & age & "*')"
16    End If
17
18    If address <> "" Then
19        If WhereString <> "" Then WhereString = WhereString & " AND "
20        WhereString = WhereString & "(住まい like '*" & address & "*')"
21    End If
22
23    If name <> "" Then
24        If WhereString <> "" Then WhereString = WhereString & " AND "
25        WhereString = WhereString & "(年齢 like '*" & name & "*')"
26    End If
27
28    If sex <> "" Then
29        If WhereString <> "" Then WhereString = WhereString & " AND "
30        WhereString = WhereString & "(年齢 like '*" & sex & "*')"
31    End If
32
33    Me.Filter = WhereString
34    Me.FilterOn = True
35
36End Sub

イメージは下記のような感じです。

行動規範の内容に同意します

回答2件

ベストアンサー

メイン/サブフォーム形式は、用途が異なるものなので（一対多関係のデータ用）、使わない方がいいでしょう。レイアウトの自由度が高いので、あえて本来の用途以外で使うこともありますが、それはある程度スキルがついてからの方がいいでしょう。Accessをさわって２日でやることではありません。

まず、抽出対象のテーブルを選択した状態で、リボンの[作成]-[フォームウィザード]をクリックして、ウィザードでフォームを作成します。フォームのレイアウトで「表形式」を選択すると、希望のレイアウトになります。表レイアウトの帳票フォームになります。
「作成」→「その他のフォーム」→「複数のアイテム」でもいいでしょう。

デザインビューでフォームヘッダー部分の高さを広げて、そこに検索値入力用のテキストボックスを配置します。

あとは、提示のコードの感じで動作すると思います。
もう少し効率的な記述はありますが。

コード例

仕様
各テキストボックスの名前をtxt年齢、txt住まい、txt名前、txt性別とします。
「年齢」フィールドは数値型、他はテキスト型とします。
年齢と性別は完全一致、住まいと名前は部分一致とします。

vba
1Private Sub 検索ボタン_Click()
2    Dim WhereString As String
3    If Me.txt年齢 >= 0 Then
4        WhereString = WhereString & " AND 年齢 = " & Me.txt年齢    
5    End If
6
7    If Me.txt住まい <> "" Then
8        WhereString = WhereString & " AND 住まい like '*" & Me.txt住まい & "*'"    
9    End If
10
11    If Me.txt名前 <> "" Then
12        WhereString = WhereString & " AND 名前 like '*" & Me.txt名前 & "*'"    
13    End If
14
15    If Me.txt接別 <> "" Then
16        WhereString = WhereString & " AND 性別 = '" & Me.性別 & "'"    
17    End If
18
19    Me.Filter = Mid(WhereString, 6)
20    Me.FilterOn = (WhereString <> "")
21End Sub