• 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

  maidinhdan > 04-05-20, 08:56 PM

  * Bổ sung Modules ngày 4/5/2020: ModViethoaThongbao.bas chỉ cần import vào ứng dụng của mình. và gọi hàm MsgBox hoặc Inputbox như bình thường là hiển thị tiếng viết 100%, nhớ kết hợp chuyển chữ từ UNI to Chr (tại bài #2: HamChr to VBA Uni.zip ).
  
  Link download thứ 3, tại bài #1 của chủ đề 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

  ongke0711 > 04-05-20, 09:22 PM

  Cái hàm cuối cùng này tổng hợp lại gọn gàng quá rồi maidinhdan. Test trên Windows 10 chưa Dân? Windows 10 hay bị lỗi một số ký tự ă ắ ấ gì đó.

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

  maidinhdan > 04-05-20, 10:52 PM

  (04-05-20, 09:22 PM)ongke0711 Đã viết: Cái hàm cuối cùng này tổng hợp lại gọn gàng quá rồi maidinhdan. Test trên Windows 10 chưa Dân? Windows 10 hay bị lỗi một số ký tự ă ắ ấ gì đó.

  
  test rồi, link dưới

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

  ongke0711 > 04-05-20, 11:44 PM

  "Ký tự" hay cố ý viết "kư tự" vậy maidinhdan?

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

  maidinhdan > 04-05-20, 11:51 PM

  (04-05-20, 11:44 PM)ongke0711 Đã viết: "Ký tự" hay cố ý viết "kư tự" vậy maidinhdan?

  
  Cái này do ứng dụng chuyển Uni to Chr lỗi,, từ [ý] không viết được trong VBA, mà mã Chr không chuyển được từ đó. Chứ không phải lỗi Modules này đâu....Để em viết lại Demo chuyển Uni to Chr

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

  Xuân Thanh > 05-05-20, 12:04 AM

  (04-05-20, 11:51 PM)maidinhdan Đã viết:

  (04-05-20, 11:44 PM)ongke0711 Đã viết: "Ký tự" hay cố ý viết "kư tự" vậy maidinhdan?

  
  Cái này do ứng dụng chuyển Uni to Chr lỗi,, từ [ý] không viết được trong VBA, mà mã Chr không chuyển được từ đó. Chứ không phải lỗi Modules này đâu....Để em viết lại Demo chuyển Uni to Chr

  
  Không biết máy của mọi người ra sao chứ máy tôi chuyển Chr đúng
  "Ký t" & ChrW(7921) & " " & ChrW(259) & ", â" ====> Ký tự ă, â

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

  maidinhdan > 05-05-20, 12:20 AM

  (05-05-20, 12:04 AM)Xuân Thanh Đã viết:

  (04-05-20, 11:51 PM)maidinhdan Đã viết:

  (04-05-20, 11:44 PM)ongke0711 Đã viết: "Ký tự" hay cố ý viết "kư tự" vậy maidinhdan?

  
  Cái này do ứng dụng chuyển Uni to Chr lỗi,, từ [ý] không viết được trong VBA, mà mã Chr không chuyển được từ đó. Chứ không phải lỗi Modules này đâu....Để em viết lại Demo chuyển Uni to Chr

  
  Không biết máy của mọi người ra sao chứ máy tôi chuyển Chr đúng
  "Ký t" & ChrW(7921) & " " & ChrW(259) & ", â" ====> Ký tự ă, â

  
  Em đồng ý chuyển ra từ Ký; nhưng em muốn nó chuyển thành : "K" & Chr(63); vì VBE kg cho phép viết từ Ý==> nó sẽ ra ư, còn viết ư thì ra ?

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

  Xuân Thanh > 05-05-20, 12:45 AM

  Khi muốn viết tiếng Việt trong VBE tôi hay dùng hàm này
  
  

  Mã:

  Option Compare Database
Option Explicit
Dim n As Integer, uni1 As String, uni2 As String

Function VbaUni(chuoi As String) As String
    If chuoi = "" Then
        VbaUni = """"""
    Else
        chuoi = chuoi & " "
        If AscW(Left(chuoi, 1)) < 256 Then VbaUni = """"
        For n = 1 To Len(chuoi) - 1
            uni1 = Mid(chuoi, n, 1)
            uni2 = AscW(Mid(chuoi, n + 1, 1))
            If AscW(uni1) > 255 And uni2 > 255 Then
                VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
            ElseIf AscW(uni1) > 255 And uni2 < 256 Then
                VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
            ElseIf AscW(uni1) < 256 And uni2 > 255 Then
                VbaUni = VbaUni & uni1 & """ & "
            Else
                VbaUni = VbaUni & uni1
            End If
        Next
        If Right(VbaUni, 4) = " & """ Then
            VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
        Else
            VbaUni = VbaUni & """"
        End If
    End If
End Function

  
  
  Chữ cần hiển thị : Đây là MsgBox tiếng Việt. Mọi ký tự đều được chuyển hóa bằng hàm ChrW()
  Viết trong VBE : VBAUni(Đây là MsgBox tiếng Việt. Mọi ký tự đều được chuyển hóa bằng hàm ChrW()) = ChrW(272) & "ây là MsgBox ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t. M" & ChrW(7885) & "i ký t" & ChrW(7921) & " " & ChrW(273) & ChrW(7873) & "u " & ChrW(273) & ChrW(432) & ChrW(7907) & "c chuy" & ChrW(7875) & "n hóa b" & ChrW(7857) & "ng hàm ChrW()"
  
  P/S : Hàm của NoName

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

  Xuân Thanh > 05-05-20, 07:15 AM

  (05-05-20, 12:20 AM)maidinhdan Đã viết: Em đồng ý chuyển ra từ Ký; nhưng em muốn nó chuyển thành : "K" & Chr(63); vì VBE kg cho phép viết từ Ý==> nó sẽ ra ư, còn viết ư thì ra ?

  
  Post bài xong mới đọc cái này. Dân thử chuyển bằng ChrW xem sao, chuyển bằng Chr hay bị lỗi ký tự lắm

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

  maidinhdan > 09-05-20, 03:03 AM

  Mất gần 12h để tạo hàm Uni to ChrW, và xử luôn tất cả các lỗi do ký tự đặt biệt gây ra cho ChrW trước giờ:
  
  Xem hình nhé các Anh
  
  Demo Post sau, lại có thêm đồ mới.
  
  Từ không gõ được trong VBA:
  

  Mã PHP:

  ã,Ã,ấ,Ấ,ầ,Ầ,ắ,Ắ,ằ,Ằ,ẫ,Ẫ,ẵ,Ẵ,ả,Ả,ẩ,Ẩ,ẳ,Ẳ,ạ,Ạ,ậ,Ậ,ặ,Ặ,ẽ,Ẽ,ế,Ế,ề,Ề,ễ,Ễ,ẻ,Ẻ,ể,Ể,ẹ,Ẹ,ệ,Ệ,ì,Ì,ĩ,Ĩ,ỉ,Ỉ,ị,Ị,ò,Ò,õ,Õ,ố,Ố,ồ,Ồ,ỗ,Ỗ,ỏ,Ỏ,ổ,Ổ,ọ,Ọ,ớ,Ớ,ờ,Ờ,ỡ,Ỡ,ộ,Ộ,ở,Ở,ợ,Ợ,ũ,Ũ,ủ,Ủ,ụ,Ụ,ứ,Ứ,ừ,Ừ,ữ,Ữ,ử,Ử,ự,Ự,ý,Ý,ỳ,Ỳ,ỹ,Ỹ,ỷ,Ỷ,ỵ,Ỵ 


  
  Mã AscW Không gõ được
  

  Mã PHP:

  195,204,210,213,221,227,236,242,245,253,296,297,360,361,7840,7841,7842,7843,7844,7845,7846,7847,7848,7849,7850,7851,7852,7853,7854,7855,7856,7857,7858,7859,7860,7861,7862,7863,7864,7865,7866,7867,7868,7869,7870,7871,7872,7873,7874,7875,7876,7877,7878,7879,7880,7881,7882,7883,7884,7885,7886,7887,78887889,7890,7891,7892,7893,7894,7895,7896,7897,7898,7899,7900,7901,7902,7903,7904,7905,7906,7907,7908,7909,7910,7911,7912,7913,7914,7915,7916,7917,7918,7919,7920,7921,7922,7923,7924,7925,7926,7927,7928,7929 


  
  Từ,gõ,được trong VBA:
  

  Mã PHP:

  a,A,á,Á,à,À,â,Â,ă,Ă,b,B,c,C,d,D,đ,Đ,e,E,é,É,è,È,ê,Ê,f,F,g,G,h,H,i,I,í,Í,j,J,k,K,l,L,m,M,M,n,o,O,ó,Ó,ô,Ô,ơ,Ơ,p,P,q,Q,r,R,s,S,tT,u,U,ú,Ú,ù,Ù,ư,Ư,v,V,w,W,x,X,y,Y,z,Z 


  
  Hai ký tự ơ,Ơ <=> õ,Õ: thật ra không gõ được --> khi gõ kiểu VNI [o+4 ] => ơ (nguy hiểm hok)
• Bài trước Bài tiếp