• 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

  DooHoaangPhuuc > 24-04-18, 05:33 PM

  Chào Chú Ongke0711,
  Cháu theo hướng dẫn trên và thử áp dụng nhiều loại theo trên mà không được, rồi cuối cùng phát hiện ra lỗi xuất phát từ Access-32bit được cài trên PC máy bàn. Khi qua máy Laptop với hệ điều hành Win7 + Access-64bit (các phầm mềm đều có bản quyền) thì hoạt động thật trơn tru, và nhất là sử dụng Code của Chú Ngọc (paulsteigel), được Việt hoá hoàn toàn.
  Thật nhức đầu với các phần mềm 32bit và 64bit. Nó như cuộc đua lôi người sử dụng xoáy vào dòng chảy, để người dùng phải luôn chi hầu bao . Mà ảnh hưởng nhất đối với những người như cháu, chỉ dùng phần mềm cr@ck.
  Chân thành cảm ơn Các Chú thật nhiều.
  DooHoaangPhuuc

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

  ongke0711 > 24-04-18, 06:35 PM

  Đối với Win 64bit bạn chỉ cần khai báo lại 2 dòng thư viện api ở trên là đc rồi (PtrSafe). Khai báo 64bit có bài của bạn MTNQ trang 2 rồi đó Phucc.

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

  mrsiro > 24-04-18, 06:41 PM

  (24-04-18, 05:33 PM)DooHoaangPhuuc Đã viết: Chào Chú Ongke0711,
  Cháu theo hướng dẫn trên và thử áp dụng nhiều loại theo trên mà không được, rồi cuối cùng phát hiện ra lỗi xuất phát từ Access-32bit được cài trên PC máy bàn. Khi qua máy Laptop với hệ điều hành Win7 + Access-64bit (các phầm mềm đều có bản quyền) thì hoạt động thật trơn tru, và nhất là sử dụng Code của Chú Ngọc (paulsteigel), được Việt hoá hoàn toàn.
  Thật nhức đầu với các phần mềm 32bit và 64bit. Nó như cuộc đua lôi người sử dụng xoáy vào dòng chảy, để người dùng phải luôn chi hầu bao . Mà ảnh hưởng nhất đối với những người như cháu, chỉ dùng phần mềm cr@ck.
  Chân thành cảm ơn Các Chú thật nhiều.
  DooHoaangPhuuc

  
  Bởi vậy nên hạn chế dùng mấy cái hàm mà có call api trong đó. Dân pro thì người ta viết luôn file dll để gọi mỗi khi cần, còn mình ko viết được phải phụ thuộc vào dll của phiên bản.

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

  DooHoaangPhuuc > 24-04-18, 08:13 PM

  Vâng, cháu cũng đã khai báo PtrSafe, nhưng code không chạy ổn định. Lúc trước cháu cũng hỏi đề cập đến vấn đề này. Nay mai cháu tìm bản loại 64bit cài lại để đồng bộ . Cảm ơn Chú .
  Cháu DooHoaangPhuuc

• Msgbox tiếng việt!

  NguyenDungAnh > 11-09-18, 04:35 PM

  Chào mọi người em có tìm thấy cách làm msgbox bằng tiếng việt này khá hay, áp dụng tốt không cần phải khai báo nhiều nhưng em không hiểu ở chỗ em đã khai báo trong modun rồi mà không thể gọi được hàm ra. Muốn sử dụng hàm thì phải copy function đó vào forms mà mình định tạo msgbox tiếng việt thì mới sử dụng được chứ không gọi trực tiếp hàm ra được, các hàm khác như uniVND thì vẫn gọi ra bình thường.
  
  

  Mã PHP:

  Function uniconvert(text As String, InputMethod As String) As String
  Dim VNI_Type, Telex_Type, CharCode, Temp, i As Long
 uniconvert = text
 VNI_Type = Array("a81", "a82", "a83", "a84", "a85", "a61", "a62", "a63", "a64", "a65", "e61", _
     "e62", "e63", "e64", "e65", "o61", "o62", "o63", "o64", "o65", "o71", "o72", "o73", "o74", _
     "o75", "u71", "u72", "u73", "u74", "u75", "a1", "a2", "a3", "a4", "a5", "a8", "a6", "d9", _
     "e1", "e2", "e3", "e4", "e5", "e6", "i1", "i2", "i3", "i4", "i5", "o1", "o2", "o3", "o4", _
     "o5", "o6", "o7", "u1", "u2", "u3", "u4", "u5", "u7", "y1", "y2", "y3", "y4", "y5")
 Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
     "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
     "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
     "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
     "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
 CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
     ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
     ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), _
     ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(225), _
     ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), ChrW(259), ChrW(226), ChrW(273), ChrW(233), ChrW(232), _
     ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), ChrW(7881), ChrW(297), ChrW(7883), _
     ChrW(243), ChrW(242), ChrW(7887), ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(250), ChrW(249), _
     ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
 Select Case InputMethod
   Case Is = "VNI": Temp = VNI_Type
   Case Is = "Telex": Temp = Telex_Type
 End Select
 For i = 0 To UBound(CharCode)
   uniconvert = Replace(uniconvert, Temp(i), CharCode(i))
   uniconvert = Replace(uniconvert, UCase(Temp(i)), UCase(CharCode(i)))
 Next i
End Function 


  
  khi gọi msgbox tiếng việt thì làm như thế này
  
  

  Mã PHP:

  Application.Assistant.DoAlert "THÔNG BÁO", uniconvert("Chuooxi msgbox Tieesng vieejt", "TELEX"), 0, 4, 0, 0, 0 


  
  Thì nó sẽ hiện ra msgbox nôi dung là Chuỗi msgbox Tiếng Việt

• RE: Msgbox tiếng việt!

  ongke0711 > 11-09-18, 05:59 PM

  Có cái hàm MsgBoxuni trên diễn đàn có rồi đó e. Đơn giản hơn nhiều. Khi dùng thì cũng gọi hàm MsgBoxuni như bình thường thôi, chi có thêm chữ "uni".

• RE: Msgbox tiếng việt!

  NguyenDungAnh > 11-09-18, 06:28 PM

  Cám ơn bác đã trả lời, em có cái thắc mắc là tại sao em copy cái hàm này vào module mà lại không gọi được nó ra. trong khi các hàm khác thì vẫn gọi bình thường.

• RE: Msgbox tiếng việt!

  ledangvan > 11-09-18, 06:30 PM

  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 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

• RE: Msgbox tiếng việt!

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

  Viết tiếng việt vào thẳng hàm luôn hả bạn
  ví dụ msgboxuni "Đây là msgbox tiếng việt",vbokonly

• RE: Msgbox tiếng việt!

  maidinhdan > 11-09-18, 11:43 PM

  Để tránh loãng chuyên mục bài viết sẽ được kết hợ với link sau rong 24h tới: [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
• Bài trước Bài tiếp