Máy tính của em đang chạy Win 8 và Office 2013. trước đây cái file access này chạy trên office 2003-winxp vẫn bình thường. nhưng khi em đưa sang office 2013 thì nó bị lỗi không chạy được code (em có chụp hình mong các pro giúp đỡ )

- Sau khi mày mò không được, em cài thêm cái access 2003 vào (chạy song song với access 2013) thì vẫn bị lỗi tương tự! hoang mang quá các bác ạ!

Mong các bác giúp đỡ em với!

---

Muốn đi đường dài... hãy thong thả...

Bạn nên đặt file Access vào một thư mục full quyền thử xem

(28-08-13, 12:05 PM)Noname Đã viết: Bạn nên đặt file Access vào một thư mục full quyền thử xem

Là sao bác. tức là vào properties. click cho nó quyền chạy full luôn à bác cảm ơn bác chỉ bảo ạ

Mình vừa search trên trang của Microsoft. Để An toàn, từ Win 7 trở đi,họ buộc bạn chia tay với hàm Sendkey đi. Hoặc nếu bạn cần thì search thêm trên các trang nước ngoài vì dùng các hàm API khá phức tạp.
http://office.microsoft.com/en-us/access...26289.aspx

(28-08-13, 01:01 PM)Noname Đã viết: Mình vừa search trên trang của Microsoft. Để An toàn, từ Win 7 trở đi,họ buộc bạn chia tay với hàm Sendkey đi. Hoặc nếu bạn cần thì search thêm trên các trang nước ngoài vì dùng các hàm API khá phức tạp.
http://office.microsoft.com/en-us/access...26289.aspx

Bác giúp em nốt cái lệnh được không bác e đội ơn ạ!

Private Sub Command51_Click()
Dim thongbao As String
DoCmd.GoToControl "xong"
If IsNull(fromdmy) Then
MsgBox "XIN CHI DINH THOI KHOANG XU LY ", vbExclamation, "XIN LOI KHONG THI HANH!"
Else
SendKeys Chr(13) + "Y" + Chr(13), False
DoCmd.OpenQuery "Q00 QUYETTOAN_KH", acViewNormal
SendKeys Chr(13) + "Y" + Chr(13), False
DoCmd.OpenQuery "Q00 QUYETTOAN_LSX", acViewNormal
'SendKeys Chr(13) + "Y" + Chr(13), False
'DoCmd.OpenQuery "Q00 QUYETTOAN_LSXTONG", acViewNormal
thongbao = " DA TINH XONG TON KHO VAT TU" & Chr(13)
MsgBox thongbao, 64, "HE QUAN LY CHUNG TU KE TOAN"
End If
End Sub

Sửa thành thế này:

Đoạn sendkeys chỉ làm nhiệm vụ nhấn yes nếu hiện bảng thông báo. Thật ra Access đã hỗ trợ hàm SetWarnings rồi. Không cần dùng sendkeys nữa.

(28-08-13, 03:11 PM)Noname Đã viết: Sửa thành thế này:

Mã:

Private Sub Command51_Click()
Dim thongbao As String
DoCmd.GoToControl "xong"
If IsNull(fromdmy) Then
MsgBox "XIN CHI DINH THOI KHOANG XU LY ", vbExclamation, "XIN LOI KHONG THI HANH!"
Else
Docmd.Setwarnings False

DoCmd.OpenQuery "Q00 QUYETTOAN_KH", acViewNormal

DoCmd.OpenQuery "Q00 QUYETTOAN_LSX", acViewNormal

'DoCmd.OpenQuery "Q00 QUYETTOAN_LSXTONG", acViewNormal
Docmd.Setwarnings True
thongbao = " DA TINH XONG TON KHO VAT TU" & Chr(13)
MsgBox thongbao, 64, "HE QUAN LY CHUNG TU KE TOAN"

End If
End Sub

Đoạn sendkeys chỉ làm nhiệm vụ nhấn yes nếu hiện bảng thông báo. Thật ra Access đã hỗ trợ hàm SetWarnings rồi. Không cần dùng sendkeys nữa.

Ngàn lần cảm ơn bác ạ nó chạy rồi