Accessの帳票フォームの別テーブルの複数レコード表示方法について

前提・実現したいこと

帳票フォームに、別テーブルから同じIDの複数のデータを引っ張って、1レコード内に表示させたい。

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

VBAの基礎をあまり分かっておらず、コピペでしのいできた者です。

実現したいことで、表示させるところまではできたのですが、
画面がずっとチラツキ続けます。
（画像では静止画のように見えていますが、実際は上のレコードから順に表示を繰り返してパラパラしています。）

「詳細_Paint()」のところが原因かな？と思っていまして、
画面の読み込み回数を「1回」等に設定する方法はないかなと思い、質問させていただきました。

よろしくお願いいたします。

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

回答1件

ベストアンサー

帳票フォームで各行毎に異なる値を表示したいときは、コントロールソースにユーザー定義関数を設定するようにします。

標準モジュールに下記の関数を作成します。

vba
1Public Function Get担当者(受注番号) As String
2   If IsNull(受注番号) Then Exit Function
3   
4   Dim SQL As String
5   Dim rs As DAO.Recordset
6   
7   SQL = "SELECT 担当者名 FROM クエリ1 WHERE 受注番号='" & 受注番号 & "'"
8   Set rs = CurrentDb.OpenRecordset(SQL)
9   Do Until rs.EOF
10       Get担当者 = Get担当者 & rs!担当者名 & vbCrLf
11       rs.MoveNext
12   Loop
13   rs.Close: Set rs = Nothing
14End Function