いつもお世話になりますm(__)m
Access2003で、以下のテーブルがあるとします。
例)tableA
項目1|項目2
---------
部署1|あいうえお
部署2|かきくけこ
部署1|さしすせそ
部署1|たちつてと
部署2|なにぬねの
上記のテーブルの項目1が同じものを、別テーブルの1つのフィールドにスペースでまとめたいと思っています。
例)結果テーブル
項目1|項目3
---------
部署1|あいうえお さしすせそ たちつてと
部署2|かきくけこ なにぬねの
可能であればクエリで処理したいのですが、無理でしたらVBA他でも結構です。
お詳しい方、ご教授のほど宜しくお願い致しますm(__)m
No.4ベストアンサー
- 回答日時:
見るだけなら、
TRANSFORM First(項目2) AS 値
SELECT 項目1 FROM
(SELECT tableA.項目1, tableA.項目2, Count(*) AS Temp番号
FROM tableA INNER JOIN tableA AS TT ON (tableA.項目2 >= TT.項目2) AND (tableA.項目1 = TT.項目1)
GROUP BY tableA.項目1, tableA.項目2) AS WW
GROUP BY 項目1 PIVOT "項目2" & "-" Temp番号;
このクエリからデータを抜き取ってもいいのですが、
方法はそれこそいろいろですが。ベタにレコードセットから。
NoMatchプロパティを利用してもいいのですが、
思いっきりループの入れ子で。
(1)
以下を標準モジュールに貼り付けます。
DAOを使っているので、コード表のツールから
参照設定を選択して、
Microsoft DAO xx Object Library
にチェックを入れて、OKとします。xxは3.6のような数字です。
このとき、
Microsoft ActiveX Data Objects xx Library
にチェックが入っていたらはずしてください。
Sub test()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim strSQL As String
Dim myStr1 As String
Dim myStr2 As String
strSQL = "SELECT tableA.項目1 FROM tableA GROUP BY tableA.項目1;"
Set db = CurrentDb
Set rs1 = db.OpenRecordset("tableA")
Set rs2 = db.OpenRecordset("結果テーブル", dbOpenDynaset)
Set rs3 = db.OpenRecordset(strSQL)
If rs3.RecordCount > 0 Then
rs3.MoveFirst
Do Until rs3.EOF
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do Until rs1.EOF
If rs3!項目1 = rs1!項目1 Then
myStr1 = rs1!項目1
myStr2 = myStr2 & " " & rs1!項目2
End If
rs1.MoveNext
Loop
rs3.MoveNext
End If
rs2.AddNew
rs2!項目1 = myStr1
rs2!項目2 = myStr2
rs2.Update
myStr1 = ""
myStr2 = ""
Loop
End If
rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
rs3.Close: Set rs3 = Nothing
db.Close: Set db = Nothing
End Sub
(2)
フォームにコマンドボタンを設定し、そのクリックイベントで
Private Sub コマンド0_Click()
Call test
End Sub
以上です。
No.3
- 回答日時:
YU-TANG さんの、DJoin関数を試されては?
DJoin 関数 - リスト文字列を取得する方法
http://www.f3.dion.ne.jp/~element/msaccess/AcTip …
Optional delimiter As String = ","
Optional delimiter As String = " "
にしてみたら半角スペースで区切られるかな・・未検証
No.1
- 回答日時:
クエリやSQLはレコード間(テーブルで別行の間の)の処理が苦手だと思うので、VBAでのレコード処理しか方法で無いのでは。
ADOででも読んでSortする。
http://www.accessclub.jp/ado/22.html
ーー
今度は順読みで、同じ部署名の間は、項目フィールドを文字列に結合。
直前レコードの部署と比較して、部署の(コントロール、続き)が切れたら、前の部署と連結文字列を書き出し。文字列を空白にする。(コントロールブレークの処理)
そして新部署としての結合処理を繰り返す。
以上をヒントにコードは自分で作ってください。(上記のWEB記事のコードで少し変えるだけ)
この方法は同じ部署のレコードを探すやり方より、やさしいやり方でしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Access(アクセス) Access クエリ 同一テーブル内 複数フィールドの同時集計のやり方について 1 2022/05/18 19:01
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- いじめ・人間関係 部署異動について 1 2022/12/09 18:39
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- JavaScript html javascriptにてWeb SQLを操作したい。 2 2022/12/16 17:43
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスで複数のレコード情報を1レコードにまとめる方法
Access(アクセス)
-
ACCESS 一つのフィールドに複数レコードの値をセットしたい
その他(データベース)
-
ACCESSのテーブル複数行を1行にしてエクスポートは?
Access(アクセス)
-
-
4
Access:クエリーにて集計後に文字列結合したい。
その他(データベース)
-
5
Accessでグループ化した結果フィールドをつなげるには?
その他(Microsoft Office)
-
6
アクセス 同じフィールド(テキスト型)のレコードを連結させたい
Access(アクセス)
-
7
アクセスで複数レコードを1レコードにできますか?
その他(ソフトウェア)
-
8
ACCESSでひとつのフィールドに内容をまとめる
Access(アクセス)
-
9
アクセス 項目毎にデータを横に並べる方法
Access(アクセス)
-
10
Accessでテキストが合体できる関数ないですか?
Access(アクセス)
-
11
ACCESS クエリで重複データを最新の1件だけ表示
Access(アクセス)
-
12
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
13
キーが同じを複数行を1行にまとめるには?
Oracle
-
14
アクセス2003 複数の列に分かれたデータを1列にまとめたい
Access(アクセス)
-
15
access 複数フィールドを1フィールドに
Access(アクセス)
-
16
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
17
[Access]異なるレコード間の文字列連結
その他(データベース)
-
18
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
19
2つ目のレコードの値を取得するには?
Access(アクセス)
-
20
Accessのクエリで2つのフィールドが同条件の場合に結合したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
エクセルグラフの凡例スペース
-
Access テキスト型に対する指定...
-
access2000:フォームで入力し...
-
Accessで数値型にNULLをInsert...
-
セルの右クリックで出る項目を...
-
ORACLEでLONG項目からCHAR項目...
-
Joy To Keyのマウスやキーボー...
-
ある講演を聴いての感想レポー...
-
access フォーム 大分類、小分類
-
Excelで空白以外の値がある列の...
-
複数のレコードを1つのレコード...
-
エクセル表のグループ分け
-
Accessレポート上でCountif。
-
空白をそのままインポートする...
-
PhoenixBIOSの設定について
-
正しく入力されていない項目も...
-
第2正規化と第3正規化の違い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
株に関する用語集
-
他テーブルで一致する列から名...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報