Hình như file ở Bài 1 đó bạn à
Công trình dân dụng thì cũng làm bình thường thôi Bạn à. Cứ 1 mã thi công, 1 mã lấy mẫu (Nếu có), một mã nghiệm thu thui
a ơi em bị lỗi không xuất được nhật ký thì xử lý thế nào ạ.mong a giúp đỡ ạ,
Lỗi File Setup HSQLCL.rar hay QLCL Pro190816 vậy bạn
Lâu quá mới gặp lại "người đẹp hai sao vàng". Để trống ngai cho cái cô "Hoa bất tử" lộng hành quá em!
Hì HìLâu quá mới gặp lại "người đẹp hai sao vàng". Để trống ngai cho cái cô "Hoa bất tử" lộng hành quá em!
Chúc em ngày vui.
Bạn ơi file nén này máy mình báo lỗi không giải nén được bạn xử lý giúp mình được không, máy mình win 64bit. Xem youtube mình thấy file này rất hữu ích, cảm ơn bạnn nhiều nhé!
Bạn xem thử file này
Cảm ơn bạn nhé! Mình past vào thì mở lên không bị lỗi nữa nhưng mỗi lần xuất dữ liệu nó lại không được. Mình thấy nó bị lỗi từ dòng lệnh này "Function MsgboxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult" . Nó báo " Sub or Function not defined"Thôi em cứ thấy cái nào có Form hoặc Module là em cho cái Code dưới vào đầu. Không biết có đúng không nữa
Bạn thử chạy xem nó có lỗi không. Mình không có Office 64-bit để thửPHP:#If VBA7 And Win64 Then 'Office 64-bit Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextW" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As LongPtr, ByVal lpString As String) As Long Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As Long Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long #Else ' Office 32-bit Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextW" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #End If
Có phải Bạn thay cái dòngCảm ơn bạn nhé! Mình past vào thì mở lên không bị lỗi nữa nhưng mỗi lần xuất dữ liệu nó lại không được. Mình thấy nó bị lỗi từ dòng lệnh này "Function MsgboxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult" . Nó báo " Sub or Function not defined"
VBA mình không nắm rõ nên mong bạn chỉ giáo
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal HWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongĐúng là mình thay cái dòng trên bằng code của bạn đưa đấy. Sau đấy mỗi khi mình chạy xuất dữ liệu ( Danh mục biên bản, tách biên bản...) đều bị lỗi liên quan đến MsgboxUni bạn ạ
Bạn Test hộ xem còn lỗi không nha
Mình test vẫn không được bạn ạ, bật lên nó báo lỗi luôn!
