Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1365 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7476】クエリの重複情報をクエリに出力したい Hg-0310 06/3/10(金) 11:47 質問[未読]
【7478】Re:クエリの重複情報をクエリに出力したい Gin_II 06/3/10(金) 12:31 回答[未読]
【7481】Re:クエリの重複情報をクエリに出力したい hg−0310 06/3/10(金) 14:37 質問[未読]
【7482】Re:クエリの重複情報をクエリに出力したい Gin_II 06/3/10(金) 15:40 回答[未読]
【7483】Re:クエリの重複情報をクエリに出力したい hg−0310 06/3/10(金) 16:28 質問[未読]
【7484】Re:クエリの重複情報をクエリに出力したい Gin_II 06/3/10(金) 17:00 回答[未読]
【7487】Re:クエリの重複情報をクエリに出力したい Hg-0310 06/3/11(土) 9:28 質問[未読]
【7489】Re:クエリの重複情報をクエリに出力したい Gin_II 06/3/11(土) 21:40 回答[未読]
【7512】Re:クエリの重複情報をクエリに出力したい Hg-0310 06/3/14(火) 21:39 質問[未読]
【7476】クエリの重複情報をクエリに出力したい
質問  Hg-0310 E-MAIL  - 06/3/10(金) 11:47 -
引用なし
パスワード
   二つのクエリがあります、ここでそれぞれのクエリの発注コード、
製品コードの重複をチェックし、重複があるものをチェッククエリに
出力したいと思います。試行錯誤でやってみましたが、詰まっています。
ご指導ください。
よろしくお願いします。

発注クエリ
発注コード　　発注元
A1　　　　　　あ
A2　　　　　　い
A1　　　　　　う

納品クエリ
製品コード　　製品名
B1　　　　　　アア
B3　　　　　　イイ
B1　　　　　　エエ

チェッククエリ
発注コード　　発注元　　　製品コード　　　製品名
A1　　　　　　あ　　　　　B1　　　　　　　アア　　　　　　
A1　　　　　　う　　　　　B1　　　　　　　エエ
【7478】Re:クエリの重複情報をクエリに出力したい
回答  Gin_II  - 06/3/10(金) 12:31 -
引用なし
パスワード
   > 発注クエリ
> 発注コード　　発注元
> A1　　　　　　あ
> A2　　　　　　い
> A1　　　　　　う
>
> 納品クエリ
> 製品コード　　製品名
> B1　　　　　　アア
> B3　　　　　　イイ
> B1　　　　　　エエ

この情報では、重複なんて判断はできませんよね？
発注クエリに、製品コードフィールドがあるんでしょうか？
【7481】Re:クエリの重複情報をクエリに出力したい
質問  hg−0310  - 06/3/10(金) 14:37 -
引用なし
パスワード
   確かにこんなような構成だと、実現できません。すみませんでした。

一応Accessの重複ツールを使って、一つのクエリに対して、重複のレコードを
抽出することができました。
ＳＱＬコードは
SELECT Report.発注コード, Report.商品名, Report.管理, Report.単位, Report.合計
FROM Report
WHERE (((Report.発注コード) In (SELECT [発注コード] FROM [Report] As Tmp GROUP BY [発注コード] HAVING Count(*)>1 )))
ORDER BY Report.発注コード;

もしこのコードをモジュールのＶＢコードに訳す場合は、どのようなコードに
なるのでしょうか？
おしえていただけませんか？
【7482】Re:クエリの重複情報をクエリに出力したい
回答  Gin_II  - 06/3/10(金) 15:40 -
引用なし
パスワード
   >もしこのコードをモジュールのＶＢコードに訳す場合は、どのようなコードに
>なるのでしょうか？

VBAで、どのように使うのでしょうか？
DAO の Recordset としたいのなら、

Dim strSql As String
Dim rst As DAO.Recordset

strSql = "SELECT Report.発注コード, Report.商品名, Report.管理, Report.単位, Report.合計 " _
　　　 & "FROM Report " _
　　　 & "WHERE (((Report.発注コード) " _
　　　 & "In (SELECT [発注コード] FROM [Report] As Tmp GROUP BY [発注コード] HAVING Count(*)>1 ))) " _
　　　 & "ORDER BY Report.発注コード;"

Set rst = Currentdb.OpenRecordset(strSql)

とか。
【7483】Re:クエリの重複情報をクエリに出力したい
質問  hg−0310  - 06/3/10(金) 16:28 -
引用なし
パスワード
   Gin_IIさん
　提示していただいたコードをまねして、マクロの「プロシージャの実行」を
使って、動かしてみました。要領が悪いだと思いますが、画面上で重複の結果は
でていません。
　問題はどこでしょうか？ご指導ください。
【7484】Re:クエリの重複情報をクエリに出力したい
回答  Gin_II  - 06/3/10(金) 17:00 -
引用なし
パスワード
   >画面上で重複の結果はでていません。

クエリのデータシートビューを開きたいということでしょうか？
それなら、クエリとして保存しておいて、

DoCmd.OpenQuery "クエリ名"
としてください。
【7487】Re:クエリの重複情報をクエリに出力したい
質問  Hg-0310  - 06/3/11(土) 9:28 -
引用なし
パスワード
   ▼Gin_II さん：
>>画面上で重複の結果はでていません。
>
>クエリのデータシートビューを開きたいということでしょうか？
>それなら、クエリとして保存しておいて、
>
>DoCmd.OpenQuery "クエリ名"
>としてください。

DoCmd.OpenQuery "重複結果"
どこに入れるでしょうか?
【7489】Re:クエリの重複情報をクエリに出力したい
回答  Gin_II  - 06/3/11(土) 21:40 -
引用なし
パスワード
   >DoCmd.OpenQuery "重複結果"
>どこに入れるでしょうか?

>VBAで、どのように使うのでしょうか？
これの回答をもらっていませんけど。
【7512】Re:クエリの重複情報をクエリに出力したい
質問  Hg-0310  - 06/3/14(火) 21:39 -
引用なし
パスワード
   Gin_IIさん
　返事遅くなりました、すいません。
　VBAを使って、重複の結果をクエリＡに出力したいです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1365 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free