Nhờ các bác hỗ trợ về edit dòng trong VBA access (1 người xem)

[thuyetanh01]

Nhờ các bác hỗ trợ kiểm tra đoạn code của em với, khi em chạy nó báo nỗi ở ( C02.Edit )cám ơn các bác

Function CapNhatGhiChu()
Dim Q12 As Recordset
Dim C02 As Recordset
Set C02 = CurrentDb.OpenRecordset("Fresh", dbOpenTable)
Set Q12 = CurrentDb.OpenRecordset("CapNhat", dbOpenTable)
C02.Index = "PrimaryKey"
If Q12.RecordCount > 0 Then
Q12.MoveFirst
Do Until Q12.EOF
C02.Seek "=", Q12!cif
If C02.NoMatch Then
Q12.MoveNext
End If
C02.Edit
C02!GhiChu = Q12!GhiChu
C02.Update
Q12.MoveNext
Loop
End If
C02.Close: Q12.Close
End Function

 

[dai_dong]

đơn giản là bạn kêu EDIT C02, nhưng CurrentDB chẳng biết edit tại record nào của C02.