Access　VBA　パラメータクエリの結果をサブフォームに表示する

前提・実現したいこと

Accessのフォームに入力した値を基にデータを抽出し、それをサブフォームに表示させたい。
理想としては勤怠管理システムの管理者フォームを目指して作っています、

発生している問題・エラーメッセージ

・サブフォームに一件しか抽出されない。
・フィルターが上手く動作しない。

該当のソースコード

[T-社員]テーブル

ﾌｨｰﾙﾄﾞ名	型	????
社員ID	オート	主キー
氏名	文字列

[T-勤務]テーブル

ﾌｨｰﾙﾄﾞ名	????
データナンバー	オート	主キー
出勤時刻	日付
外出	日付
再入	日付
退勤時刻	日付
有給	数値
欠勤	数値
社員ID	数値	外部キー

[F-勤務時間検索]メインフォーム：単票フォーム
[subsub]サブフォーム：帳票フォーム

サブフォーム・サブフォームコントロール(ﾃｷｽﾄﾎﾞｯｸｽ)ともに非連結状態です。
MsgBoxの時点では社員IDが正常に送られていましたが、抽出が上手く行えず引数として渡した社員IDと関係の無いレコードが一件だけ表示されます。（どの社員IDの値を引数として渡しても常に同じレコードが一件表示されます。）

VBA
1Private Sub コマンド41_Click()
2MsgBox Me.コンボ0
3
4 Call DataRead(Me.コンボ0)
5End Sub
6
7Function DataRead(Datakey As Long)
8    Dim oRS As Recordset
9    With Application.CurrentDb
10    Set oRS = .OpenRecordset("T-勤務", dbOpenDynaset)
11    
12    oRS.FindFirst "社員ID=" & Datakey
13    
14    Me!subsub.Form!出勤時刻.Value = oRS("出勤時刻").Value
15    Me!subsub.Form!外出.Value = oRS("外出").Value
16    Me!subsub.Form!再入.Value = oRS("再入").Value
17    Me!subsub.Form!退勤時刻.Value = oRS("退勤時刻").Value
18    Me!subsub.Form!有給.Value = oRS("有給").Value
19    Me!subsub.Form!欠勤.Value = oRS("欠勤").Value
20    
21    oRS.Close
22    End With
23    
24End Function

試したこと

試そうとしている事ですが、連想配列に一度代入し繰り返し文で記述を行おうとしています。（現時点で自力では難しそうですが。。。）

補足情報（FW/ツールのバージョンなど）

Access2016
ここにより詳細な情報を記載してください。

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

回答1件

ベストアンサー

サブフォーム・サブフォームコントロール(ﾃｷｽﾄﾎﾞｯｸｽ)ともに非連結状態です。

サブフォームコントロールに埋め込まれているサブフォームが非連結(レコードソースが空欄)という意味でしょうか。
サブフォームの名前は「SubSub」ということ？サブフォームコントロールの名前は？

サブフォームコントロールとサブフォームは別物ですが、それは理解してますか。

サブフォームとサブフォームコントロールの違いとは？

まずは、Access用語を理解して、正確な用語を使って説明する努力をしてください。現状の説明では状況が正確に伝わりません。

試そうとしている事ですが、連想配列に一度代入し繰り返し文で記述を行おうとしています。

非連結フォームに配列からデータを代入して連結帳票フォームのように複数レコードを表示させようとしているなら、それは不可能です。非連結フォームは1件分しか表示できません。

複数レコードを表示したいならサブフォームのレコードソースにはテーブルかクエリを設定して、各コントロールのコントロールソースを設定してください。

追記

やりたいことを想像して回答すると、

やりたいこと

メインフォームのコンボボックスで社員名を選択する。
その社員の勤怠データ（T-勤務のデータ）をサブフォームに表示される。

上記の想像があっているなら下記のようにしてくだい。

メインフォーム
レコードソース空欄のまま

コンボボックス
名前　cb社員ID
値集合ソース　T-社員
連結列　1
列数　2
列幅　0

これで名前リストで選択できます。

サブフォームのレコードソースを「T-社員」に設定。
サブフォームのテキストボックスのコントロールソースに適切なフィールド名を設定。
（連結フォームにするということ）

サブフォームコントロールのリンクフィールドを下記のように設定。

リンク親フィールド　cb社員ID
リンク子フィールド　社員ID

以上で、ご希望の動作になります。
VBAは不必要なので削除してください。

追記2

コメントより

・[社員ID/氏名]のコンボボックス

・テキストボックス[年(西暦)]と[月]の二つ
があり、社員IDと日付で抽出して月単位の勤務情報をサブフォームに表示しようとしています。

フォームのモジュールに下記の関数を作成します。

vba
1Function SetFilter()
2    If IsDate(Me.[年(西暦)] & "/" & Me.[月] & "/01") Then
3        Me.subsub.Form.Filter = "出勤時刻>=#" & Me.一時 & "#" & _
4                           " AND 出勤時刻<#" & DateAdd("m", 1, Me.一時) & "#" 
5        Me.subsub.Form.FilterOn = True
6    Else
7        Me.subsub.Form.Filter = "" 
8        Me.subsub.Form.FilterOn = False
9    End If
10End Function

[年(西暦)]と[月]のテキストボックスの「更新後処理」欄に下記のように設定します。

=SetFilter()

投稿2020/07/14 04:48

編集2020/07/14 13:13

hatena19

総合スコア33715

ttakka

2020/07/14 09:49

分かりづらい質問に答えて頂きありがとうございます、分かりづらい上に「実現したい事」に書くべき事を書けていませんでした、申し訳ありません。概ね仰られている通りなのですが、現状・[社員ID/氏名]のコンボボックス・テキストボックス[年(西暦)]と[月]の二つがあり、社員IDと日付で抽出して月単位の勤務情報をサブフォームに表示しようとしています。下記条件式クエリでテーブルやレポートには抽出はできているので、・クエリ結果をサブフォームに表示する・ご教示頂いだ方法に更にフィルターを追加するで求めているものが作れないかと思案しております。社員ID:[Forms]![F-勤務時間検索]![コンボ0] 出勤時刻:>=CDate([Forms]![F-勤務時間検索]![一時]) And <CDate(DateAdd("m",1,[Forms]![F-勤務時間検索]![一時])) [一時]にはテキストボックス[年]と[月]を結合した[2020/07]などが入っています。

ttakka

2020/07/15 07:58

作ろうとしていたものを作ることができました、ありがとうございます！データの流れやどう設定するべきなのか理解を進める事ができました、指摘していただいたAccessのもっと基本的な用語や構造をもっと学習を進めたいと思います。

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