hatena
hatena
2023/07/17 (月) 22:05:40
情報が不足しているので、下記のようだと仮定して、回答します。
テーブル名 あるテーブル
フィールド名 AutoNo, F1, F2, F3, F4, F5
AutoNo以外のフィールドはテキスト型とします。
下記のような削除クエリを作成して実行すればいいでしょう。
DELETE *
FROM あるテーブル
WHERE AutoNo>DMin("AutoNo","あるテーブル","F1='" & [F1] & "' AND F2='" & [F2] & "' AND F3='" & [F3] & "' AND F4='" & [F4] & "' AND F5='" & [F5] & "'");
VBAならば、
Dim strSQL As String
strSQL = "DELETE * FROM あるテーブル " & _
"WHERE AutoNo > DMin(""AutoNo"",""あるテーブル"",""F1='"" & [F1] & ""' AND F2='"" & [F2] & ""' AND F3='"" & [F3] & ""' AND F4='"" & [F4] & ""' AND F5='"" & [F5] & ""'"");"
currentDb.execute strSQL, dbFailOnError
通報 ...