テーブルからの値でtextBoxを塗りつぶします

Question

私はいくつかのtextBoxを持つフォームを持っていて、そのうちの1つにSQLクエリの値を入力したいと思います。

テーブルはtbl-apartnerと呼ばれ、serviceid（sid2）と一致するすべてのmailadressを選択します。

SELECT [tbl-apartner].[EMail] FROM [tbl-apartner] WHERE [tbl-apartner].[SID] = sid2; 

このSELECT文の出力は正しいものの、textBoxを入力することはできません。

私の考えは、メールの受信者として使用するために、SIDと一致するすべてのメールアドレスを含む文字列を作成することでした。

私は使用しようとしましたdlookup(" [EMail]" ; "qry-apartner") 出力は私のクエリの最初のエントリだけです。

Answer 1

クエリ結果を通じてVBA関数の反復処理を記述し、テキストボックスに割り当てる単一の文字列を作成する必要があります。あなたのフォームの振る舞いに応じて、適切なイベントに配置することができます。例えば、フォームが開いたらOnOpenを使用し、sid2をユーザーが変更できる場合は、関連コントロールのAfterUpdateイベントを使用します。

サンプルコード：

Dim ThisDB As DAO.Database 
Set ThisDB = CurrentDb 
Dim d As DAO.Recordset 
Dim q As String 
q = "SELECT [tbl-apartner].[EMail] FROM [tbl-apartner] WHERE [tbl-apartner].[SID] = " & sid2 
Set d = ThisDB.OpenRecordset(q, dbOpenDynaset) 
Dim Result As String 
Result = "" 
If d.EOF = False Or d.BOF = False Then 
    d.MoveFirst 
    Do While Not d.EOF 
     If Result <> "" Then Result = Result & vbCrLf 
     Result = Result & d!Email 
     d.MoveNext 
     Loop 
    End If 
d.Close 

上記のように、各メールアドレスに対して新しい行が作成されます。例えば ​​"vbCrLf"をカンマで区切った電子メールを生成するようなものに置き換えてください。