ลบข้อมูลซ้ำ

[Un]

ตอนบันทึกข้อมมูลมากๆ เราจำไม่ได้ว่าบันทึกใครไปบ้าง
พอมาดูในฐานข้อมูลเห็นว่ามีข้อมูลบางคนที่บันทึกซ้ำ
อยากจะลบข้อมูลคนที่บันทึกซ้ำต้องเขียน Query ยังงัย
หรือ ใช้โคตยังงัย ให้ลบข้อมูลซ้ำ และเลือกเอาวันที่บันทึก
หลังสุดครับ

มีฟิล Date กับ MemberCode

ขอบคุณครับ

[ปิ่นณรงค์]

ใช้ ฟังชั้น จากที่โปรแกรมมีมาให้ก็ได้ครับ
ตามในรูปเลย กำหนดว่าจะหาว่า ตรงไหนซ้ำกันแล้วให้แสดงออกมา

[Un]

ผมไม่ได้หาที่ซ้ำครับอาจารย์
ผมต้องการลบข้อมูลที่ซ้ำ
ผมใช้ Query ดึงข้อมูลมา 2 ฟิลด์ คือ
มีฟิลด์ Date กับ MemberCode

ผม Count ที่ Date แล้วใส่เงื่อนไข ว่า
มากกว่า1 ก็จะได้ที่ซ้ำแล้ว ปัญหาคือ
ผมจะลบข้อมูลซ้ำ และเลือกเอาวันที่บันทึก
หลังสุดครับ

[pizza_p]

ตอนคุณ Count หนะ ให้คุณเพิ่ม Max(Date) ไปด้วย เพื่อจะได้รู้ว่าวันที่หลังสุดคือวันอะไร

[Un]

ตอนคุณ Count หนะ ให้คุณเพิ่ม Max(Date) ไปด้วย เพื่อจะได้รู้ว่าวันที่หลังสุดคือวันอะไร

ไม่เข้าใจครับ  Count แล้วจะเพิ่ม Max(Date) ยังงัยครับอาจารย์
พอ Count มันก็จะนับรวมกัน ลบไม่ได้

[pizza_p]

โค๊ด: [Select]

Private Sub Delete_Last()
Dim MySearch As Recordset

Set MySearch = CurrentDb.OpenRecordset("SELECT tblName.MemberCode, Count(*) AS CountRec, Max(tblName.Date) AS MaxOfDate FROM tblName GROUP BY tblName.MemberCode HAVING (Count(*))>1;")
If MySearch.RecordCount > 0 Then
    MySearch.MoveFirst
    Do While Not MySearch.EOF
        DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]='" & MySearch!MemberCode & "' AND [Date]=" & CDbl(MySearch!MaxOfDate)
        MySearch.MoveNext
    Loop
End If

MySearch.Close
Set MySearch = Nothing
   
End Sub

[Un]

มัน Error Type missmatch ที่บรรทัดนี้ครับ
DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]='" & MySearch!MemberCode & "' AND [Date]=" & CDbl(MySearch!MaxOfDate)

MemberCode ผมเป็น Number (long)
Date เป็น DateTime ครับ

[pizza_p]

DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]=" & MySearch!MemberCode & " AND tblName.[Date]=" & CDbl(MySearch!MaxOfDate)

แก้ชือตารางให้ตรงด้วยนะครับ

[Un]

DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]=" & MySearch!MemberCode & " AND tblName.[Date]=" & CDbl(MySearch!MaxOfDate)

แก้ชือตารางให้ตรงด้วยนะครับ

แก้แล้วครับอาจารย์

[Un]