Code VBA không chạy trong access 2016

[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)

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

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

[ongke0711]

Chỉ có Access 2013 nên test thấy nó cập nhật bình thường anh Ân à.

[tranthanhan1962]

Tôi đã thử cài đặt lại access, cập nhật lại bản quyền cho nó mà vẫn không được. Có lã phải cài lại win! Chán cái thằng 2016 này thật. Ý là có bản quyền mà còn như vậy

[zinzin8x]

đã test 2016 chạy ok. bạn nên xem lại refenrences của bạn thiếu cái gì so với 2013 thì add vào là ok thôi.

[lehongduc]

Chào Bạn,
Tôi đã chạy thử file demo của Bạn trên Access 2016 và không thấy lỗi gì cả.

[tranthanhan1962]

Cám ơn các bạn đã quan tâm nhưng thực sự tôi chán cái access 365 này quá đổi. Càng xử dụng càng lộ ra nhiều khuyết điểm chết người. Với cái kiểu muốn thì chạy buồn thì nghỉ. Mà khi nghỉ thì trơ trơ như khúc gỗ chẳng báo một lỗi nào. Không biết có phải do chạy trên CPU AMD không? Cũng có thể do Windows chơi bài với AMD. Trước đây mình viết android bằng Android studio bình thường như sau một lần udate win thế là máy ảo ADV nghỉ chạy. Cài đặt lại thì báo không hỗ trợ cho AMD.