• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi khi chuyển sang accdb

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Lỗi khi chuyển sang accdb
• Lỗi khi chuyển sang accdb

• RE: Lỗi khi chuyển sang accdb

  thuyyeu99 > 19-04-20, 12:03 PM

  Mã PHP:

  #If VBA7 Then
    Public Declare PtrSafe Function MessageBoxW Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                    ByVal lpText As LongPtr, _
                                    ByVal lpCaption As LongPtr, _
                                    ByVal wType As Long) As Long
#Else
    Public Declare Function MessageBoxW Lib "user32" _
                            (ByVal hwnd As Long, _
                            ByVal lpText As Long, _
                            ByVal lpCaption As Long, _
                            ByVal wType As Long) As Long
#End If

Public Function msgBoxUni(ByVal sMsgUni As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal sTitleUni As String = vbNullString) As VbMsgBoxResult
    msgBoxUni = MessageBoxW(0, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function 


  
  
  em chay tr ên office 64 tiếng anh không thấy lỗi

• RE: Lỗi khi chuyển sang accdb

  tranthanhan1962 > 19-04-20, 12:52 PM

  (19-04-20, 12:03 PM)thuyyeu99 Đã viết:

  Mã PHP:

  #If VBA7 Then
    Public Declare PtrSafe Function MessageBoxW Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                    ByVal lpText As LongPtr, _
                                    ByVal lpCaption As LongPtr, _
                                    ByVal wType As Long) As Long
#Else
    Public Declare Function MessageBoxW Lib "user32" _
                            (ByVal hwnd As Long, _
                            ByVal lpText As Long, _
                            ByVal lpCaption As Long, _
                            ByVal wType As Long) As Long
#End If

Public Function msgBoxUni(ByVal sMsgUni As String, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal sTitleUni As String = vbNullString) As VbMsgBoxResult
    msgBoxUni = MessageBoxW(0, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function 


  
  
  em chay tr ên office 64 tiếng anh không thấy lỗi

  Thay đoạn mã của mình bằng đoạn mã của bạn thuyyeu99, Khi sử dụng hàm Dlookup móc thông báo từ trong table ra (access 2019 64 bit) vẫn bị lỗi:
  
  Nhưng dịch thông báo đưa thẳng vào code thì OK.
  msgBoxUni "Chào mừng bạn đến với phần mềm kế toán ""Ân Soft""" & Chr(10) & "Bạn là người quản trị chương trình và có toàn quyền sử dụng chương trình." & Chr(10) & "Wright teen by: Trần Thanh Ân" & Chr(10) & "Tel: 0972047946" & Chr(10) & "Email: tranthanhan1662@gmail.com"
  Chạy tốt cả 2 hàm msgBoxUni và msgBox Nhưng hàm msgBoxUni thì Title báo error, nếu không gán giá trị còn hàm msgBox thì báo Micorsoft Access
  
  Hàm của mình khi dịch vẫn bị lỗi

• RE: Lỗi khi chuyển sang accdb

  thuyyeu99 > 19-04-20, 01:07 PM

  cái dấu ? này là do không mã hoá được UTF-8

• RE: Lỗi khi chuyển sang accdb

  ongke0711 > 19-04-20, 01:10 PM

  (19-04-20, 12:52 PM)tranthanhan1962 Đã viết: Nhưng dịch thông báo đưa thẳng vào code thì OK.
  msgBoxUni "Chào mừng bạn đến với phần mềm kế toán ""Ân Soft""" & Chr(10) & "Bạn là người quản trị chương trình và có toàn quyền sử dụng chương trình." & Chr(10) & "Wright teen by: Trần Thanh Ân" & Chr(10) & "Tel: 0972047946" & Chr(10) & "Email: tranthanhan1662@gmail.com"
  Chạy tốt cả 2 hàm msgBoxUni và msgBox Nhưng hàm msgBoxUni thì Title báo error, nếu không gán giá trị còn hàm msgBox thì báo Micorsoft Access
  
  Hàm của mình khi dịch vẫn bị lỗi

  
  Cái đoạn mã dịch ở trên anh cũng dùng ứng dụng ngay trong office 2019 - 64bit để dịch đúng không?
  Nếu vậy là do cái VBA của Access không tìm đúng bảng mã unicode (Code page) để dịch ngược lại. Còn dịch sẳn rồi đưa vô thì đúng bảng mã nên không bị lỗi Font.

• RE: Lỗi khi chuyển sang accdb

  tranthanhan1962 > 19-04-20, 01:56 PM

  (19-04-20, 01:10 PM)ongke0711 Đã viết: Cái đoạn mã dịch ở trên anh cũng dùng ứng dụng ngay trong office 2019 - 64bit để dịch đúng không?
  Nếu vậy là do cái VBA của Access không tìm đúng bảng mã unicode (Code page) để dịch ngược lại. Còn dịch sẳn rồi đưa vô thì đúng bảng mã nên không bị lỗi Font.

  Đoạn mã tiếng Việt dịch bằng Macro của Excel. Đúng ra nó  không phải như vậy nhưng khi dán vào Khung soạn thảo thì nó biến thành như vậy
  
  Đoạn mã này macro excel dịch từ unicode rồi đưa vào code VBA. Nói chung chạy ngon lành với function msgBoxUni trên mdb (access 2003). Mình đã test thử excel 2003 và excel 2019 dịch giống hệt nhau. Nhưng trên access 2003 function này dùng Dlookup chạy cũng ngon lành thì trên access 2019 chạy ra như vậy. Về cấu trúc 2 hàm msgBoxUni của mình và thuyyeu99 giống nhau chỉ gán kiểu dữ liệu là hơi khác. Nhưng về lý thuyết LongLong và LongPtr không khác nhau. LongLong cho 64 bit và LongPtr cho 32 bit. Mình đang chạy access 64 nên gán kiểu LongLong hợp lý hơn LongPtr vậy mà bị lỗi nặng hơn. Trường hợp này cũng chảng bì6t cái nào nặng hơn. Một cái không dịch được. Một cái dịch ra chữ Phạn. Có điều hình như cái code của thuyyeu99 không bị ảnh hưởng. Tức là khi mình dùng hàm msgBox lấy thông báo từ table bằng Dlookup thì vẫn OK. Còn cái code function msgBoxUni của mình phải xoá  thì mới hết lỗi.

• RE: Lỗi khi chuyển sang accdb

  Xuân Thanh > 19-04-20, 02:10 PM

  Nguyên văn từ Microsoft
  
  

  Mã:

  LongPtr. VBA now includes the variable type alias LongPtr. The actual data type that LongPtr resolves to depends on the version of Office that it is running in; LongPtr resolves to Long in 32-bit versions of Office, and LongPtr resolves to LongLong in 64-bit versions of Office. Use LongPtr for pointers and handles.

LongLong. The LongLong data type is a signed 64-bit integer that is only available on 64-bit versions of Office. Use LongLong for 64-bit integrals. Conversion functions must be used to explicitly assign LongLong (including LongPtr on 64-bit platforms) to smaller integral types. Implicit conversions of LongLong to smaller integrals are not allowed

  
  
  tranthanhan1962 thử thay LongLong bằng LongPtr xem sao.
  
  Conversion functions must be used to explicitly assign LongLong (including LongPtr on 64-bit platforms) to smaller integral types. Implicit conversions of LongLong to smaller integrals are not allowed

• RE: Lỗi khi chuyển sang accdb

  thuyyeu99 > 22-04-20, 12:29 AM

  bắt chước mò cái msgbox ihihihi
  

• RE: Lỗi khi chuyển sang accdb

  ongke0711 > 22-04-20, 12:38 AM

  Em dùng Form à?

• RE: Lỗi khi chuyển sang accdb

  thuyyeu99 > 22-04-20, 12:40 AM

  Không anh. Cái này em làm trong cái ocx. Nó có chức năng tạo dialog chỉ design màu mè với tiếng việt thôi. Còn chức năng auto close nữa em đang mò
  
  Để em lục lại trong vb6 hình như hồi đó em có làm rồi đưa qua vba thì phải.

• RE: Lỗi khi chuyển sang accdb

  ongke0711 > 22-04-20, 01:40 AM

  (22-04-20, 12:40 AM)thuyyeu99 Đã viết: Không anh. Cái này em làm trong cái ocx. Nó có chức năng tạo dialog chỉ design màu mè với tiếng việt thôi. Còn chức năng auto close nữa em đang mò
  
  Để em lục lại trong vb6 hình như hồi đó em có làm rồi đưa qua vba thì phải.

  
  
  Cái tự động đóng cửa sổ Msgbox hiện giờ khi cần anh chỉ biết dùng của qua thằng VBScript thôi.
• Bài trước Bài tiếp