• 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

  ongke0711 > 18-04-20, 11:08 AM

  (18-04-20, 10:49 AM)Xuân Thanh Đã viết: @ongke0711
  lpText và lpCaption sao lại là LongPr? hwnd thì OK

  
  À cái hàm MsgboxUni này em có sửa một chút là trỏ thẳng ngay tới địa chỉ của cái message text trên bộ nhớ để khỏi phải qua công đoạn chuyển đổi từ chuỗi Unicode sang ANSI, lưu xuống bộ nhớ rồi chyển đổi lại Unicode để hiển thị. Chuyển Unicode qua ANSI dễ bị lỗi ký tự lắm.
  Do dùng Pointer nên phải dùng LongPtr.

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

  Xuân Thanh > 18-04-20, 12:14 PM

  (18-04-20, 11:08 AM)ongke0711 Đã viết:

  (18-04-20, 10:49 AM)Xuân Thanh Đã viết: @ongke0711
  lpText và lpCaption sao lại là LongPr? hwnd thì OK

  
  À cái hàm MsgboxUni này em có sửa một chút là trỏ thẳng ngay tới địa chỉ của cái message text trên bộ nhớ để khỏi phải qua công đoạn chuyển đổi từ chuỗi Unicode sang ANSI, lưu xuống bộ nhớ rồi chyển đổi lại Unicode để hiển thị. Chuyển Unicode qua ANSI dễ bị lỗi ký tự lắm.
  Do dùng Pointer nên phải dùng LongPtr.

  
  OK. Hiểu rồi

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

  Vanlinhmt > 19-04-20, 01:05 AM

  (18-04-20, 10:02 AM)ongke0711 Đã viết:

  (18-04-20, 12:24 AM)Vanlinhmt Đã viết: Em cũng nghĩ vậy. Theo em hiểu thì trước khi tắt file acc Compact database nên phát sinh các lần mở sau.
  Có điều nếu giữ nguyên file của anh gửi dạng .mdb thì chạy không bao giờ bị lỗi bật tắt mấy trăm phát vẫn ok nên em nghĩ có vấn đề gì đó khi nén định dạng khi data mới accdb
  
  từ đó test trên máy khác nhưng lại không bị ==> Chỉ có Máy em có vấn đề với định dạng file mới
  
  Hiện đã cài lại office nhưng vẫn bị lỗi chưa khắc phục được. Em dùng office 2016-64bit
  
  Đau đầu và nan giải. Để em thử thêm xem tn

  
  À lúc đầu tôi tưởng bạn làm trên office 32 bit. Tôi mới test trên Windows 64 bit + Office 64 bit thì đúng là nó có lỗi khi bấm mũi tên qua phải -> khi đó nó sẽ gọi hàm MsgboxUni để thông báo lỗi nếu tên vật tư bạn gõ không có.
  Lỗi là do cái hàm MsgBoxuni này không tương thích hệ 64 bit. Bạn copy đoạn code dưới đây thay vào cái module MsgBoxTV là hết. Muốn chuyển qua .accdb cũng không lỗi.
  
  

  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 


  
  Tôi cũng đã cập nhật lại file gốc để tương thích 64 bit.

  
  Sau khi thay Function msgBoxUni trên vẫn bị lỗi xung đột như ban đầu. Có lẽ lỗi của máy em không phải ở msgBoxUni 
  Tạm thời em không dùng F faytComBo_longList và sử dụng một hàm đơn giản hơn để chạy chương trình trên máy của mình trước rồi từ từ khám phá lại vậy
  Nếu vượt qua lỗi em sẽ báo lại bác
  Cảm ơn bác đã hỗ trợ rất nhiều.

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

  tranthanhan1962 > 19-04-20, 07:59 AM

  Mình sử dụng office 2019 64 bit. Cũng lỗi tùm lum. Sau khi xoá bỏ module chứa function msgBoxUni và thay thế hàm msgBoxUni = hàm msgBox vẫn hiển thị tiếng Việt và hết lỗi. Vanlinhmt xoá hàm msgBoxUni và thay bằng hàm msgBox thử xem. Mình chưa test trên access 2016 64 bit.

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

  ongke0711 > 19-04-20, 09:13 AM

  Anh tranthanhan1962 lúc rảnh test thử giùm em chạy riêng cái hàm msgboxuni trong office 2019 xem nó báo lỗi gì nhe. Cảm ơn anh.

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

  thuyyeu99 > 19-04-20, 10:00 AM

  Offi 2019 32bit em không thấy lỗi gì

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

  tranthanhan1962 > 19-04-20, 10:33 AM

  Sử dụng hàm msgBox dùng chung access 32 bit + 64 bit (chỉ mới test với hiển thị msgbox tiếng Việt)
  Option Compare Database
  Option Explicit
  #If VBA7 Then
          Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongLong
          Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongLong, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As LongLong) As LongLong
      #Else
          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
      #End If
  
  Public Function msgBox(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  'BStrMsg,BStrTitle : La chuoi Unicode
      Dim BStrMsg, BStrTitle
      'Hàm StrConv Chuyen chuoi ve ma Unicode
      BStrMsg = StrConv(PromptUni, vbUnicode)
      BStrTitle = StrConv(TitleUni, vbUnicode)
      msgBox = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
  End Function
  
  sử dụng hàm msgBoxUni gọi thông báo tiếng Việt:
  msgBoxUni DLookup("[BAOLOI]", "BAOLOI", "[LOI] = 6"), vbCritical, DLookup("[BAOLOI]", "BAOLOI", "[LOI] = 12")
  Lỗi font:
  
  Sử dụng hàm msgBox của hệ thống gọi thông báo tiếng Việt nhưng không xoá function msgBoxUni trong module
  msgBox DLookup("[BAOLOI]", "BAOLOI", "[LOI] = 6"), vbCritical, DLookup("[BAOLOI]", "BAOLOI", "[LOI] = 12")
  Lỗi font kiểu khác:
  
  Xoá function msgBoxUni và sử dụng hàm msgBox của hệ thống chạy OK.
  
  Vậy hiểu ra msgBox trên access 2019 hiểu tiếng Việt. Nhưng không hiểu tại sao không dùng hàm msgBoxUni (vẫn để nó trên module) nó vẫn lỗi. Chỉ khi xóa nó ra khỏi module nó mới hết lỗi.
  => trên access 2019. Một module bị lỗi khi không sử dụng. Vẫn có thể tạo ra lỗi tập tin accdb. Khác với mdb code nào không xài thì thôi, không ảnh hưởng đến tập tin. Những lỗi khác lặt vặt mình không để ý. Nhưng từ khi xoá module msgBoxUni đến giờ thì nó chạy OK. Không thấy còn lỗi gì! 

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

  Xuân Thanh > 19-04-20, 11:13 AM

  @tranthanhan1962
  Bản Office2019 đang cài trên máy là bản tiếng Việt đúng không? Thế thì cái hàm MsgBoxUni bị lỗi là cái chắc. Dùng MsgBox thông thường là OK rồi. Thử chuyển Language về tiếng Anh xem có lỗi không?

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

  tranthanhan1962 > 19-04-20, 11:37 AM

  (19-04-20, 11:13 AM)Xuân Thanh Đã viết: @tranthanhan1962
  Bản Office2019 đang cài trên máy là bản tiếng Việt đúng không? Thế thì cái hàm MsgBoxUni bị lỗi là cái chắc. Dùng MsgBox thông thường là OK rồi. Thử chuyển Language về tiếng Anh xem có lỗi không?

  Đã thử đủ cách chuyển về tiếng Anh cũng vẫn vậy. Mình chuyển tiếng Việt để giảm viết một số Thông báo và sử dụng tốt hơn popup menu. Mặc dùng sử dụng ngôn ngữ hệ thống tiếng việt nhưng viễt code tiếng việt trong giao diện code vẫn bị lỗi. Muốn hiển thị tiếng việt trong code không bị lỗi phải dùng bộ gõ VIE bàn phím tiếng Vietnamese của window và gõ trong word rồi dán qua chứ nếu gõ trong giao diện code thì dấu nháy con trỏ một đường ký tự một nẻo rất chán. Sử dụng table dùng hàm Dlookup nhanh hơn. Tuy nhiên khi viết phần mềm thì vẫn sử dụng tiếng Anh

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

  ongke0711 > 19-04-20, 11:37 AM

  (19-04-20, 10:33 AM)tranthanhan1962 Đã viết: Public Function msgBox(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult

  
  Nếu tên hàm trên anh viết đúng như vậy "msgBox" thì nó bị trùng trên hàm mặc định của hệ thống nên khi anh dùng Msgbox() nó cũng còn báo lỗi.
  À anh thử dùng qua cách hàm msgboxUni em dùng tham chiếu trực tiếp địa chỉ trên bộ nhớ xem có lỗi font chữ không?
  
  

  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 = "Thông báo") As VbMsgBoxResult
    msgBoxUni = MessageBoxW(0, StrPtr(sMsgUni), StrPtr(sTitleUni), Buttons)
End Function 

• Bài trước Bài tiếp