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

Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thảo Luận Access
  • [Help] Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt
• Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

• Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  tranthanhan1962 > 16-01-19, 04:39 PM

  Mình sử dụng function msgBoxUni để xử lý tiếng Việt cho mgsbox trước đây mọi việc vẫn bình thường:
  
  
  
  Nhưng vừa rồi cài lại win 10 và office 2016 thì các msgbox tiếng Việt lại hiện tiếng Trung như thế này đây:
  
  
  
  Kiểm tra các thiết đặt win và office vẫn thấy bình thường. chuyển qua máy khác thì vẫn lên tiếng Việt. Không biết mình đã xử lý sai chỗ nào? Có bạn nào đã gặp trường hợp này và đã xử lý được, hỗ trợ dùm mình.
  Thành thật cám ơn.
  *Mình chỉ cài lại win và asscess chứ chưa làm gì trên CSLD cả.

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  MTNQ > 26-01-19, 05:28 PM

  Lâu quá không ghé TTAC...
  cái vụ hiển thị toàn tiếng Trung khi dùng các hàm API có hỗ trợ Unicode như MessageBoxW , SendMessageW,... thì MTNQ  từng ngâm cứu qua khi viết class hiển thị thông báo TV cho icon ở khay hệ thống. Nó liên quan đến địa chỉ bộ nhớ
  Bác đưa code lên đi 

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  tranthanhan1962 > 26-01-19, 06:07 PM

  Thank MTNQ , đây là code:
  

  Mã:

  Option Compare Database


Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Function msgBoxUni(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)
   
   msgBoxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function

  Mấy hôm nay phải chỉnh sửa dùng hàm Msgbox căn bản rồi dùng Vietnamese Keyboard để xử lý mà nhiều quá nên làm không xong 

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  MTNQ > 26-01-19, 10:34 PM

  Bác thử sửa lại như sau:
  
  

  Mã:

  Option Compare Database

#If VBA7 Then
   Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
   Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As LongPtr
#Else
   Private Declare Function GetActiveWindow Lib "user32" () As Long
   Private 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 PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  msgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(PromptUni), StrPtr(TitleUni), Buttons)
End Function

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  tranthanhan1962 > 27-01-19, 07:04 AM

  MTNQ ơi! Bị lỗi!
  
  

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  MTNQ > 27-01-19, 08:27 AM

  MTNQ cũng đang dùng Acc 2016 và win 10 32Bit. Nếu Office 2016 thì phiên bản là VBA 7.1
  bác đang dùng phiên bản nào hệ thống báo lỗi 2 dòng trên vậy ?

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  MTNQ > 27-01-19, 08:42 AM

  Nếu Code bác đưa lên đang chạy tốt, chỉ vướng chỗ hiển thị tiếng Trung thì sửa lại như sau:
  
  

  Mã:

  Option Compare Database
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long

Public Function msgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  msgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(PromptUni), StrPtr(TitleUni), Buttons)
End Function

  
   Các sửa  đổi:
  
  -hàm MessageBoxW :
  Thay tất cà các tham số truyền vào kiểu string thành kiểu Long (ByVal lpText As Long, ByVal lpCaption As Long)
  
  -Hàm msgBoxUni:
  Do kiểu tham số thay đổi từ string sang Long nên ta phải mượn đến hàm StrPtr:
  

  Mã:

  msgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(PromptUni), StrPtr(TitleUni), Buttons)

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  mrsiro > 27-01-19, 12:19 PM

  Chào bạn MTNQ, nếu được bạn có thể mình ở topic này chuyển module loaddata, savedata và module ghi nhật kí thành class được không. Hiện tại mình đã chuyển ứng dụng của mình lên sqlserver và dùng ADO kết nối.
  http://thuthuataccess.com/forum/post-392...l#pid39206

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  MTNQ > 27-01-19, 02:21 PM

  (27-01-19, 07:04 AM)tranthanhan1962 Đã viết: MTNQ ơi! Bị lỗi!

  
  Ẹc...
  Nhìn thấy 2 dòng code bị tô đỏ cứ tưởng lỗi ở đó, bây giờ nhìn kỹ lại thông báo lỗi mới "ngộ ra" là lỗi kiểu dữ liệu của 2 dòng phía trên (của VBA7):
  do hàm GetActiveWindow MTNQ khai báo kiểu LongPtr trong khi tham số hwnd của hàm MessageBoxW lại khai báo kiểu Long
  
  Đôi lúc cũng "lú lẫn" bác nhỉ 
  
  MTNQ đã sửa lại, bác test thử xem nhé:
  
  

  Mã:

  Option Compare Database
#If VBA7 Then
'  Code is running in the new VBA7 editor
    #If Win64 Then
    '  Code is running in 64-bit version of Microsoft Office
       Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
       Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As LongPtr, ByVal lpCaption As LongPtr, ByVal wType As Long) As Long
    #Else
    '  Code is running in 32-bit version of Microsoft Office
       Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
       Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
    #End If
#Else
' Code is running in VBA version 6 or earlier
   Private Declare Function GetActiveWindow Lib "user32" () As Long
   Private 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 PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
 msgBoxUni = MessageBoxW(GetActiveWindow, StrPtr(PromptUni), StrPtr(TitleUni), Buttons)
End Function

Sub testMSBox()
   msgBoxUni ChrW(272) & "ây là MsgBox Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t!", vbInformation, "MsgBox Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t!"
End Sub

• RE: Nhờ các bạn hỗ trợ lỗi msgbox tiếng Việt

  tranthanhan1962 > 27-01-19, 07:18 PM

  Giờ thì đã hết lỗi code như lại bị lỗi font.    Như cũng hơi lạ là chừ â thì lỗi mà chữ ê thì được. Không lẽ do windows 10
  
• Bài trước Bài tiếp