Gửi các bác.
Khi em dùng MS Access từ 2007 trở về trước thì em dùng code dưới đây đều xóa vô tư, nhưng giờ em copy nguyên code này sang MS Access 2010 thì báo lỗi ở dòng em bôi đỏ và hiện thông báo như file ảnh kèm theo.
Vậy, rất mong các bác giúp đỡ em ah.
Em cảm ơn nhiều!
Dim dbX As Database, rsX As Recordset, DKX As String
Set dbX = CurrentDb
Set rsX = dbX.OpenRecordset("tblTinhTP", dbOpenDynaset)
DKX = "STT = '" & Me!txtSTT & "'"
rsX.FindFirst DKX
If Not rsX.NoMatch Then
rsX.Delete
End If
rsX.Close
Set dbX = Nothing
Khi em dùng MS Access từ 2007 trở về trước thì em dùng code dưới đây đều xóa vô tư, nhưng giờ em copy nguyên code này sang MS Access 2010 thì báo lỗi ở dòng em bôi đỏ và hiện thông báo như file ảnh kèm theo.
Vậy, rất mong các bác giúp đỡ em ah.
Em cảm ơn nhiều!
Dim dbX As Database, rsX As Recordset, DKX As String
Set dbX = CurrentDb
Set rsX = dbX.OpenRecordset("tblTinhTP", dbOpenDynaset)
DKX = "STT = '" & Me!txtSTT & "'"
rsX.FindFirst DKX
If Not rsX.NoMatch Then
rsX.Delete
End If
rsX.Close
Set dbX = Nothing
File đính kèm
Lần chỉnh sửa cuối:
