MDBにテーブルは１つでテーブル名は「商品情報」としています。
そのテーブルの中に商品レコードが、10,000件程あるのですが、
その内、数十件、商品コードが重複しているレコードがあると思われます。
その重複しているレコードにフラグを立てたいのです。
丸１日考えましたがだめでした。

最初にMDBに重複なしの設定をすればよかったのですが、
許可したままの設定であとのまつりです。

どなたかよい方法をお教えください。
よろしくお願いいたします。

> その重複しているレコードにフラグを立てたいのです。
> 丸１日考えましたがだめでした。

SELECT 商品コード FROM テーブル GROUP BY 商品コード HAVING COUNT(*) >= 2

のような SQL を使えば、重複している商品コードを取り出せるので、
これと繋いで UPDATE してやれば、フラグを更新できるかと。

> SELECT 商品コード FROM テーブル GROUP BY 商品コード HAVING COUNT(*) >= 2
>
> のような SQL を使えば、重複している商品コードを取り出せるので、
> これと繋いで UPDATE してやれば、フラグを更新できるかと。

ご回答ありがとうございます。

商品コード以外にフレキシブルグリッドにフィールドを表示したいと、

　　Dim Db      As Database
    Dim Res     As Recordset
    
    strSQL = "SELECT 商品ID,商品コード,商品名 FROM 商品情報 GROUP BY 商品コード HAVING COUNT(*) >= 2"
    
    Set Db = OpenDatabase(ItemPath)
    Set Res = Db.OpenRecordset(strSQL, dbOpenDynaset)
    Set Data1.Recordset = Res

    Res.Close
    Db.Close
    Set Db = Nothing
    Set Res = Nothing
    Set Data1.Recordset = Nothing

してみたのですが、「集計関数の一部として'商品ID'を含んでないクエリを実行使用としました」とエラーが出ます。

よい方法をお教えいただけないでしょうか。
よろしくお願いいたします。

分からなかったらACCESSのクエリとかで作ってみるといいですよ。（重複抜き出す部分）
おのずと分かってきます。
SELECTの参照項目とGROUPで指定した項目を見比べて下さい。

> してみたのですが、「集計関数の一部として'商品ID'を含んでないクエリを実行使用としました」とエラーが出ます。

> strSQL = "SELECT 商品ID,商品コード,商品名 FROM 商品情報 GROUP BY 商品コード HAVING COUNT(*) >= 2"

GROUP BY しているのが、商品コードだけだからでしょう。
集計関数(COUNT)を使っているのに、商品ID はグループ化されていませんよね。


集計関数(COUNT)の使い方を御存知無いようであれば、必要列に対して
ORDER BY でソートしておき、その Recordset を順に MoveNext していって
「ひとつ前の行と、現在の行が同じ内容だったら重複と見なす」
という形で処理することもできるかと思います。効率は落ちますけれどね。

> GROUP BY しているのが、商品コードだけだからでしょう。
> 集計関数(COUNT)を使っているのに、商品ID はグループ化されていませんよね。
>
>
> 集計関数(COUNT)の使い方を御存知無いようであれば、必要列に対して
> ORDER BY でソートしておき、その Recordset を順に MoveNext していって
> 「ひとつ前の行と、現在の行が同じ内容だったら重複と見なす」
> という形で処理することもできるかと思います。効率は落ちますけれどね。

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

SELECT 商品情報.商品ID,商品情報.商品名,商品情報.商品コード FROM 商品情報 WHERE (((商品情報.商品コード) In (SELECT [商品コード] FROM [商品情報] As TEMP GROUP BY [商品コード] HAVING Count(*)>1 )))

上記のクエリで重複を絞り込んだ上で必要なフィールドを表示できました。

お教えくださった、皆様有難うございました。