Tùy chọn
Bị lỗi chạy VBA access 2003 và 2013
- Bị lỗi chạy VBA access 2003 và 2013
-
Bị lỗi chạy VBA access 2003 và 2013
anhai88 > 28-08-13, 09:55 AM
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!
![[Hình: 1236327_3370112749054_320947945_n.jpg]](https://fbcdn-sphotos-c-a.akamaihd.net/hphotos-ak-ash3/q71/s720x720/1236327_3370112749054_320947945_n.jpg)
![[Hình: 579010_3370112829056_2133932221_n.jpg]](https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-frc1/q71/s720x720/579010_3370112829056_2133932221_n.jpg)
Muốn đi đường dài... hãy thong thả... -
RE: Bị lỗi chạy VBA access 2003 và 2013
anhai88 > 28-08-13, 10:09 AM
-
RE: Bị lỗi chạy VBA access 2003 và 2013
Noname > 28-08-13, 12:05 PM
Bạn nên đặt file Access vào một thư mục full quyền thử xem -
RE: Bị lỗi chạy VBA access 2003 và 2013
Noname > 28-08-13, 01:01 PM
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 -
RE: Bị lỗi chạy VBA access 2003 và 2013
anhai88 > 28-08-13, 02:24 PM
(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 -
RE: Bị lỗi chạy VBA access 2003 và 2013
Noname > 28-08-13, 03:11 PM
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. -
RE: Bị lỗi chạy VBA access 2003 và 2013
anhai88 > 28-08-13, 03:48 PM
(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 
cảm ơn bác chỉ bảo ạ