Minh Tiên > 10-03-16, 03:28 PM
maidinhdan > 10-03-16, 05:22 PM
(10-03-16, 03:28 PM)Minh Tiên Đã viết: Chào cả nhà !
Tiên có một vấn đề phát sinh lỗi những không viết lý do là gì ? Nhờ các Pro chỉ giáo giúp !
Tiên có 1 File Access sử dụng "Msgbox thông báo lỗi bằng tiếng Việt của bạn "pausteigel" trên diễn đàn", khi chạy trên PC có office 2007 hoặc 2013 thì chạy OK. Nhưng khi gỡ office và chạy Access Runtime 2007 hoặc Access Runtime 2013 thì không chạy được và thông báo lỗi: "Đã dừng thực thi do lỗi thời gian chạy".
Nhờ các pro chỉ giáo cách khắc phục lỗi ! Hoặc hướng dẫn cách sử dụng code để khi chạy Access Runtime ko bị lỗi !
Thanks !
Minh Tiên > 10-03-16, 05:31 PM
Minh Tiên > 11-03-16, 04:47 PM
MTNQ > 11-03-16, 06:49 PM
Function MsgBox(MessageTxt As String, Optional msgStyle As VbMsgBoxStyle, Optional DlgCaption As String = "") As VbMsgBoxResult
hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
MsgBox = Eval("MsgBox('" & MessageTxt & _
"', '" & msgStyle & "', '" & DlgCaption & "')")
End Function
Minh Tiên > 12-03-16, 09:58 PM
maidinhdan > 12-03-16, 11:02 PM
Minh Tiên > 15-03-16, 11:27 AM
MTNQ > 15-03-16, 11:52 PM
(15-03-16, 11:27 AM)Minh Tiên Đã viết: Button số 10 bị lỗi ko chạy được ở môi trường Access Runtime !
Thân !
Function MsgBox(MessageTxt As String, Optional msgStyle As VbMsgBoxStyle, Optional DlgCaption As String = "") As VbMsgBoxResult
DlgCaption = IIf(DlgCaption <> "", DlgCaption, Application.Name)
hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
MsgBox = Eval("MsgBox('" & MessageTxt & _
"', '" & msgStyle & "', '" & DlgCaption & "')")
End Function