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

Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
• Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 12-09-18, 10:40 PM

  Bac dan giúp em được không sao cái hàm uniconvert này em copy vào module mà lại không gọi được nó ra ở forms, hay report muốn sử dụng lại phải copy lại hàm uniconvert này vào form ấy mới gọi ra được.

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  ongke0711 > 13-09-18, 12:23 AM

  (12-09-18, 10:40 PM)NguyenDungAnh Đã viết: Bac dan giúp em được không sao cái hàm uniconvert này em copy vào module mà lại không gọi được nó ra ở forms, hay report muốn sử dụng lại phải copy lại hàm uniconvert này vào form ấy mới gọi ra được.

  
  
  Anh ledangvan đã copy cái hàm Msgboxuni ở post trước cho cho bạn rồi đó, sao không dùng nó cho đơn giản hơn không. Cái hàm của bạn lồng hàm này trong hàm kia rồi phải cung cấp một đống tham số kèm theo.
       uniconvert("Chuooxi msgbox Tieesng vieejt", "TELEX"), 0, 4, 0, 0, 0 
  
  Nếu dùng Msgboxuni: chỉ nhập câu thông báo tiếng Việt đã chuyển sang mã VBA Unicode là dùng tương tự hàm Msgbox của hệ thống rồi.
  
  Việc chuyển chuỗi tiếng Việt Unicode sang mã VBA Unicode thì có cái tool trong demo đầu bài rồi, gõ vô rồi copy/paste thôi. Đơn giản hơn nhiều.
  
  
  
  
  
  

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 21-09-18, 06:09 PM

  a1 by anh nguyễn, trên Flickr
  
  em chuyển qua máy cài office 64 bit thì báo lỗi này các bác chỉ giáo giúp với code em copy của levandang cùng bài:
  
  

  Mã PHP:

  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 String, ByVal lpCaption As String, 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 String, ByVal lpCaption As String, 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

'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
' Phat bieu de hien thong bao tieng viet

'MsgBoxUni UNC("Chµo c¸c b¹n"), vbInformation, _
            UNC("TCVN3")

'MsgBoxUni VNI("Chaøo caùc baïn"), vbInformation, _
            VNI("VNI") 


• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  ongke0711 > 21-09-18, 07:14 PM

  Trong phần #If VBA7 Then... đổi kiểu Long còn sót mấy biến chưa đổi.
  
  #If VBA7 Then
    Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As LongPtr) As LongPtr

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 21-09-18, 11:11 PM

  [/url][url=https://flic.kr/p/2bi1Da6]a2 by anh nguyễn, trên Flickr
  
  Vẫn bị bác ạ em chụp lại cả lỗi đây, bấm ok xong thì báo dòng: được bôi màu vàng
  
  Public Function msgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  
  Chữ MessageBoxW bị bôi đen
  
  2 dòng sau thì bị màu đỏ. 
  #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
  
  tất cả như hình trước em đã post mong mọi người giải cứu em với, em vừa copy sang laptop thì gặp lỗi này

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 21-09-18, 11:30 PM

  Em có copy qua thử ở máy win 7 64bit cài office 2013 thì vẫn chạy bình thường không vấn đề gì. Nhưng mang qua con laptop của em cài win 7 , office 2016 64 bít thì bị lỗi như trên

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 22-09-18, 12:28 AM

  em vừa xem một bài viết bằng tiếng anh như thế này, tiếng anh em kém đọc gg dịch cũng nửa hiểu nửa không 
  
  #if Vba7 then
  '  Code is running in the new VBA7 editor
      #if Win64 then
      '  Code is running in 64-bit version of Microsoft Office
      #else
      '  Code is running in 32-bit version of Microsoft Office
      #end if
  #else
  ' Code is running in VBA version 6 or earlier
  #end if
  
  #If Vba7 Then
  Declare PtrSafe Sub...
  #Else
  Declare Sub...
  #EndIf
  
  thế này có nghĩa là office 32 và 64 là phải khai báo riêng còn win 32 hay 64 cũng phải khai báo riêng phải ko

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 22-09-18, 12:36 AM

  em thử debug => compile thì báo lỗi ở MessageBoxw trong dòng
  msgBoxUni = MessageBoxw(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
  lỗi compile error: type mismatch

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  ongke0711 > 22-09-18, 12:29 PM

  Bạn khai báo lại, dùng hàm MessageBoxA xem thử.
  
  Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
  
  ...
  ...
  msgBoxUni = MessageBox(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
  ...

• RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access

  NguyenDungAnh > 22-09-18, 12:40 PM

  em cài lại office 2013 32 bit rồi bác ạ. để qua xong mấy hôm nay rồi em test thử
• Bài trước Bài tiếp