從查詢vba中刪除重複記錄

Question

我已經構建了重複記錄的查詢。我需要運行一些VBA代碼來檢查記錄是否已經在表中（查詢）。如果是這樣，我需要刪除最後一條記錄。

我的形式由帶有值的按鈕，這樣，當你點擊按鈕，數據插入到表

Dim qry As QueryDef 
Set qry = CurrentDb.QueryDefs("duplicate records") 
'which method do i use to see if the query got duplicate record' 

With rstCategories 
.MoveLast 0 
End With 
With rstCategories 
rstCategories.Delete 
End With 

MsgBox "The problem already reported before!" 

Answer 1

好的我解決了它 我使用查找重複查詢嚮導創建了一個查詢。

then i insert this code in "form close" 
Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Set db = Application.CurrentDb 
Set rs = db.OpenRecordset("qry_Duplicates") 


Do Until rs.EOF 
rs.MoveFirst 
rs.delete 
rs.Close 
Set rs = Nothing 
Set rs = db.OpenRecordset("qry_Duplicates") 
Loop 

這個代碼刪除整個行

Answer 2

我會做的是你的桌子上運行快速查詢：

Dim db as Database 
Dim rec as Recordset 

Set db = CurrentDB 
Set rec = db.OpenRecordset ("SELECT * FROM MyTable WHERE MyValue = '" & Me.MyValue & "'") 

If rec.EOF = true then 
    'No match found, so the value isn't in the table. Add it. 
Else 
    'Match found. This value is already in the table. 
    MsgBox "This value is already in the table" 
End If