cần giúp về code xóa record
uyvu > 23-03-12, 04:33 PM
Các bác diễn đàn giúp tôi với, tôi có tạo 1 code dùng để xóa những record không có
Trong table 1 có danh sách các sô phiếu cần xóa.
Trong table 2 là những record mình cần xóa, với điều kiện là số phiếu table 1 = số phiếu table 2
CODE của mình :
Dim I As Byte
Dim SQL As String
Dim TB1, TB2 As DAO.Recordset
SQL = "SELECT [T06 - NHAT KY BH KHACH HANG].SOPHIEU " & _
"FROM [T06 - NHAT KY BH KHACH HANG] LEFT JOIN [T07 - NHAT KY BH MODEL] ON [T06 - NHAT KY BH KHACH HANG].SOPHIEU = [T07 - NHAT KY BH MODEL].SOPHIEU " & _
"WHERE ((([T07 - NHAT KY BH MODEL].SOPHIEU) Is Null)) " & _
"GROUP BY [T06 - NHAT KY BH KHACH HANG].SOPHIEU;"
Set TB1 = CurrentDb.OpenRecordset(SQL)
Set TB2 = CurrentDb.OpenRecordset("T2")
TB1.MoveFirst
For I = 0 To TB1.RecordCount - 1
TB2.Index = "PrimaryKey"
TB2.Seek "=", TB1!SOPHIEU
TB2.Delete
TB1.MoveNext
Next I
TB1.Close
TB2.Close
Set TB1 = Nothing
Set TB2 = Nothing
End Sub
mình bị vứng mắc chõ này :
Khi cái table 2 là table của database hiện hành thì code trên OK, những table 2 của tôi lại là table được link từ 1 database khác.
Khi chạy code trên nó báo lỗi ở dòng TB2.Index = "PrimaryKey", tôi bỏ dòng này luôn thì vẫn báo lỗi, có báo nào chỉ giáo giúp tôi với
Cảm ơn nhiều