Access 抽出した重複データを一つにしたい。

解決済

質問者：siba10
質問日時：2002/04/19 19:01
回答数：3件

Access2002 VBA
教えていただけませんか！

テーブルのフィールドに[日付]と[品名]があるとします。
ある期間の日付で抽出をした時５件のレコードが抽出されました。
（例）
　日付　　　　品名
H14-04-01　プリンター
H14-04-02　ハードディスク
H14-04-03　モニター　
H14-04-04　プリンター
H14-04-05　マウス

このときの品名を表示したいのですが、重複品名は除いて
プリンター
ハードディスク
モニター
マウス
とするにはどうすればいいでしょう？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： TMINET
回答日時：2002/04/22 09:51

ふたたび回答します。

フォームに表示するためだけの抽出であれば、前回と同様にGROUP BYやDISTINCTで
重複しないSQLを生成するのがレスポンス的にも早いです。
あくまで抽出は全レコードというのであれば、ORDER BYでソートして
ループ内でブレイク毎に配列にセットされてはいかがでしょうか。

- 0
- 件

通報する

この回答へのお礼

ご回答有難うございます。

とりあえずフォームで表示するだけですので
GROUP BY を使うことで解決しました。

通報する

お礼日時：2002/04/22 14:09

No.2

回答者： TMINET
回答日時：2002/04/19 20:18

クエリーですとメニューバーの表示(V)に集計(O)という項目があります。

これにチェックすると、「集計:グループ化」と下のセルに追加されます。
これで同じ内容のものは表示されません。
ちなみに、このテーブルに「金額」などがあれば「集計:合計」とすれば
同じ品名のものの金額の計が得られます。
SQLビューに切り替えて生成されたSQL文字列をVBAで使用されてはいかが
でしょうか。
もうひとつの方法は
SELECT distinct テーブル.品名 FROM テーブル;
と、distinctキーワードを追加することで重複を避けることができます。

この回答への補足

ご返事有難うございます。

まったく私の説明不足ですので、質問を書き直します。

次のようなテーブル（テーブル名：明細）があります。
（例）
顧客ID 貸出本タイトル　　　返却予定日
　１　　図解アクセス　　　Ｈ１４年４月１日
　２　　ＶＢＡ入門　　　　Ｈ１４年５月１日
　１　　図解エクセル　　　Ｈ１４年５月１日
　４　　やさしいワード　　Ｈ１４年４月１日
　３　　アクセス解説　　　Ｈ１４年４月１日
　２　　アクセス裏技　　　Ｈ１４年５月１日
　４　　図解ワード　　　　Ｈ１４年４月１日
　１　　アクセス２０００　Ｈ１４年５月１日
　３　　ワードマスター　　Ｈ１４年５月１日

返却予定日がＨ１４年５月１日の顧客を抽出します。

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim mySQL As String
Set db = CurrentDb()

mySQL = "SELECT * FROM 明細 " _
& "WHERE 返却予定日 = #" & _
Format$(Me!txtKey, "yyyy-mm-dd") & "#;"
Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
（注）txtKeyはフォームの抽出条件を入力するテキストボックスです

Dim ID(1 To 100) AS Integer
Dim i AS Integer
i = 0
Do Until rs.EOF
i = i + 1
ID(i) = rs![顧客ID]
rs.MoveNext
Loop

このとき抽出された顧客ID次の通りなりますね。
変数　　顧客ID
ID(1)→　２
ID(2)→　１
ID(3)→　２
ID(4)→　１
ID(5)→　３

これを抽出された顧客IDをフォームで表示するとき
Ｈ１４年５月１日の返却予定者は
　　　顧客ID
　　　　２
　　　　１
　　　　２
　　　　１
　　　　３
と、表示するのではなく
　　　顧客ID
　　　　２
　　　　１
　　　　３
と、したいのです。

長文になり申し訳ありませんがご指導ください。