FLD1 FLD2
001 A
001 C
002 B
002 D
002 E
003 F
003 C
といったテーブルがあるのですが、これを基に
001 AC
002 BDE
003 FC
というクエリを作成するには
どうしたらよいでしょうか。
実際には
001 A
C
002 B
といったように
AとCの間には改行が入るようにしたいです。
クエリのみでこの操作は、無理と思われます。
VBAを記述する必要があります。
RecordSet1 : 元のテーブル
RecordSet2 : 回答テーブル(テーブル名:TBL_2)
とすれば、
Do Until(RecordSet1.EOF)
SQL_2="SELECT * FROM TBL_2 WHERE FLD1 = '" & RecordSet1!FLD1 & "';"
Set RecordSet2=Currentdb.OpenRecordset(SQL_2,dbOpenDynaset)
if RecordSet2.RecordCount > 0 then
RecordSet2.Edit
RecordSet2!FLD2 = RecordSet2!FLD2 & chr$(13) & CHR$(10) & RecordSet1!FLD2
RecordSet2.update
else
RecordSet2.AddNew
RecordSet2!FLD1 = RecordSet1!FLD1
RecordSet2!FLD2 = RecordSet1!FLD2
RecordSet2.Update
end if
RecordSet1.MoveNext
Loop
的なプログラムを記述する必要があります。
ありがとうございます。
試してみます。