Accessで重複データを削除する方法

Accessはほぼ扱わないので
他に優秀なやり方があるかもしれません。
また、簡単なテストしかしていませんので
責任あるコードではありません。

課題テーブルに「フラグ」：数値タイプの作業列を追加し
こんなコードをマクロで実行すれば
期待の動作になるものと思います。

なお、残すレコードは
都道府県ごとにIDフィールドの一番小さなレコードです。


Sub Sample()
　Dim sql As String

　DoCmd.SetWarnings WarningsOn:=False
　
　'作業列全レコードに0をセット
　sql = ""
　sql = sql & "Update テーブル名" & vbCrLf
　sql = sql & "Set フラグ = 0" & vbCrLf
　DoCmd.RunSQL sql

　'作業列、残すレコードに1をセット
　sql = ""
　sql = sql & "Update テーブル名" & vbCrLf
　sql = sql & "Set フラグ = 1" & vbCrLf
　sql = sql & "Where ID in (" & vbCrLf
　sql = sql & "Select Min(ID)" & vbCrLf
　sql = sql & "FROM テーブル名" & vbCrLf
　sql = sql & "GROUP By 都道府県名)" & vbCrLf
　DoCmd.RunSQL sql
　
　'作業列、0のレコードを削除
　sql = ""
　sql = sql & "delete From テーブル名" & vbCrLf
　sql = sql & "Where フラグ = 0" & vbCrLf
　DoCmd.RunSQL sql
　
　DoCmd.SetWarnings WarningsOn:=True

End Sub

お礼

2018/09/02 17:56

HohoPapaさん、回答ありがとうございます。アクセスでは、エクセルの様に、データ　重複の削除　の様に簡単操作で、私の希望する結果は出せないのですか？。回答内容の構文を教科書を見ながら学習します。マクロは私には、ハードルが高いです。

質問者