Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Bị lỗi chạy VBA access 2003 và 2013
#1
Sad 
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 đỡ sad)

- 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!

040 040 040 040 040


[Hình: 1236327_3370112749054_320947945_n.jpg]
[Hình: 579010_3370112829056_2133932221_n.jpg]

Muốn đi đường dài... hãy thong thả...
Chữ ký của anhai88 Muốn đi đường dài... hãy thong thả... 007
Reply
Những người đã cảm ơn
#2
[Hình: 1236327_3370112749054_320947945_n.jpg]

[Hình: 579010_3370112829056_2133932221_n.jpg]
Chữ ký của anhai88 Muốn đi đường dài... hãy thong thả... 007
Reply
Những người đã cảm ơn
#3
Bạn nên đặt file Access vào một thư mục full quyền thử xem
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(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 crying cảm ơn bác chỉ bảo ạ sad
Chữ ký của anhai88 Muốn đi đường dài... hãy thong thả... 007
Reply
Những người đã cảm ơn
#5
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhai88
#6
(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 sad 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
Chữ ký của anhai88 Muốn đi đường dài... hãy thong thả... 007
Reply
Những người đã cảm ơn
#7
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.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhai88
#8
(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 ạ happy nó chạy rồi big green
Chữ ký của anhai88 Muốn đi đường dài... hãy thong thả... 007
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Phiên bản Bản quyền]Microsoft Office 2003 maidinhdan 4 92 03-12-16, 01:56 AM
Bài mới nhất: maidinhdan
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 108 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  [Lỗi] Không chạy được VBA Code hungthanmx 3 217 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 7 432 05-08-16, 10:53 PM
Bài mới nhất: hungefi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ