24-09-17, 02:56 PM
(Được chỉnh sửa: 24-09-17, 02:57 PM bởi tranthanhan1962.)
Tôi có một đoạn code đơn giản chạy 2 lệnh RunSQL đặt trong event form current. Nó hoạt động tốt trên access 2003, nhưng lại không hoạt động trên access 2016. Kiểm tra kỹ thì thấy không vấn đề gì. Mong các bạn test xem có phải access 2016 bị tào lao hay bản cài access 2016 của tôi bị lỗi (bản office 2016 của tôi đang sử dụng có bản quyền nghiêm chỉnh chứ không phải bảng cr@ck)
post lên cả 2 tập tin mbd và accdb để các bạn hỗ trợ dùm
http://www.mediafire.com/file/92al071dui97krz/Demo.rar
Mã:
Private Sub Form_Current()
txtcourentrowID = MaDoiTuong
DoCmd.RunSQL "UPDATE tblDanhSachDoiTuong SET tblDanhSachDoiTuong.DoiMa = '';"
DoCmd.RunSQL "UPDATE tblDanhSachDoiTuong SET tblDanhSachDoiTuong.DoiMa = 'gggggggggggggggggggggggggggggggggggggggggggg'" _
& "WHERE (((tblDanhSachDoiTuong.MaDoiTuong)=[Forms]![tblDanhSachDoiTuong]![txtcourentrowID]));"
Me.Refresh
End Sub
http://www.mediafire.com/file/92al071dui97krz/Demo.rar