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

Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access
• Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

• Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  ledangvan > 19-10-11, 10:34 AM

  Có bác nào biết cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access chỉ giùm em với, hoặc nếu không phải tất cả thì chỉ cách chuyển giùm em một table cũng được. Em xin cảm ơn

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  Noname > 19-10-11, 10:55 AM

  Nếu bạn muốn chuyển triệt để thì nên dùng công cụ convert của Unikey. Cách sữ dụng :
  Mở Unikey
  Copy đoạn text muốn convert.
  
  Nhấn tổ hợp phím: Ctrl + Shift +F6
  Chọn nguồn là TCVN3, Đích là Unicode
  Click vào nút chuyển mã.
  Paster đè lên text cũ.
  
  
  Còn nếu bạn muốn dùng hàm, tức là dữ liệu của ta vẫn là TCVN3, nhưng khi cần dùng thì ta dùng hàm để hiện nó như Unicode. ta viết 1 hàm chuyển từ TCVN3toUnicode
  Mỗi khi muốn chuyểm, ta cho nội dung vào hàm này đại loại như
  Text1= TCVN3toUniCode("Đoạn text mã TCVN3")
  
  Ta dùng hàm sau:
  

  Mã:

  Function TCVN3toUNICODE(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case "a": c = ChrW$(97)
Case "¸": c = ChrW$(225)
Case "µ": c = ChrW$(224)
Case "¶": c = ChrW$(7843)
Case "·": c = ChrW$(227)
Case "¹": c = ChrW$(7841)
Case "¨": c = ChrW$(259)
Case "¾": c = ChrW$(7855)
Case "»": c = ChrW$(7857)
Case "¼": c = ChrW$(7859)
Case "½": c = ChrW$(7861)
Case "Æ": c = ChrW$(7863)
Case "©": c = ChrW$(226)
Case "Ê": c = ChrW$(7845)
Case "Ç": c = ChrW$(7847)
Case "È": c = ChrW$(7849)
Case "É": c = ChrW$(7851)
Case "Ë": c = ChrW$(7853)
Case "e": c = ChrW$(101)
Case "Ð": c = ChrW$(233)
Case "Ì": c = ChrW$(232)
Case "Î": c = ChrW$(7867)
Case "Ï": c = ChrW$(7869)
Case "Ñ": c = ChrW$(7865)
Case "ª": c = ChrW$(234)
Case "Õ": c = ChrW$(7871)
Case "Ò": c = ChrW$(7873)
Case "Ó": c = ChrW$(7875)
Case "Ô": c = ChrW$(7877)
Case "Ö": c = ChrW$(7879)
Case "o": c = ChrW$(111)
Case "ã": c = ChrW$(243)
Case "ß": c = ChrW$(242)
Case "á": c = ChrW$(7887)
Case "â": c = ChrW$(245)
Case "ä": c = ChrW$(7885)
Case "«": c = ChrW$(244)
Case "è": c = ChrW$(7889)
Case "å": c = ChrW$(7891)
Case "æ": c = ChrW$(7893)
Case "ç": c = ChrW$(7895)
Case "é": c = ChrW$(7897)
Case "¬": c = ChrW$(417)
Case "í": c = ChrW$(7899)
Case "ê": c = ChrW$(7901)
Case "ë": c = ChrW$(7903)
Case "ì": c = ChrW$(7905)
Case "î": c = ChrW$(7907)
Case "i": c = ChrW$(105)
Case "Ý": c = ChrW$(237)
Case "×": c = ChrW$(236)
Case "Ø": c = ChrW$(7881)
Case "Ü": c = ChrW$(297)
Case "Þ": c = ChrW$(7883)
Case "u": c = ChrW$(117)
Case "ó": c = ChrW$(250)
Case "ï": c = ChrW$(249)
Case "ñ": c = ChrW$(7911)
Case "ò": c = ChrW$(361)
Case "ô": c = ChrW$(7909)
Case "­": c = ChrW$(432)
Case "ø": c = ChrW$(7913)
Case "õ": c = ChrW$(7915)
Case "ö": c = ChrW$(7917)
Case "÷": c = ChrW$(7919)
Case "ù": c = ChrW$(7921)
Case "y": c = ChrW$(121)
Case "ý": c = ChrW$(253)
Case "ú": c = ChrW$(7923)
Case "û": c = ChrW$(7927)
Case "ü": c = ChrW$(7929)
Case "þ": c = ChrW$(7925)
Case "®": c = ChrW$(273)
Case "A": c = ChrW$(65)
Case "¡": c = ChrW$(258)
Case "¢": c = ChrW$(194)
Case "E": c = ChrW$(69)
Case "£": c = ChrW$(202)
Case "O": c = ChrW$(79)
Case "¤": c = ChrW$(212)
Case "¥": c = ChrW$(416)
Case "I": c = ChrW$(73)
Case "U": c = ChrW$(85)
Case "¦": c = ChrW$(431)
Case "Y": c = ChrW$(89)
Case "§": c = ChrW$(272)
End Select
TCVN3toUNICODE = TCVN3toUNICODE + c
Next i
End Function

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  ledangvan > 19-10-11, 11:05 AM

  Cảm ơn bác Noname, 2 cái này em làm được rồi tuy nhiên em muốn là bảng A có dữ liệu TCVN3 em vẫn giữ nguyên, em tạo một bảng mới và chuyển toàn bộ dữ liệu bảng A sang và Font cũng đổi luôn thành Unicode (Cái này em định áp dụng cho việc xuất dữ liệu của bảng kê khai thuế, vì thuế họ dùng Unicode, còn phần mềm em viết lại dùng TCVN3, khi xuất ra excel lại phải làm thủ công trên Unikey)

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  Noname > 19-10-11, 11:28 AM

  Vậy thì bạn dùng theo cách thứ 2, tức là xử lý dữ liệu khi make từ A (TCVN3)=> B(Unicode)
  
  Đại loại như vầy:
  

  Mã:

  SELECT TCVN3toUnicode(mahang) as mahang1 , TCVN3toUnicode(tenhang) As tenhang1 INTO tableB
FROM tableA;

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  ledangvan > 19-10-11, 11:44 AM

  Cảm ơn bác Noname nhiều nhiều, em làm được rồi

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access

  cong_agribankPT > 31-12-11, 01:38 PM

  BÁc LEdangvan làm như thế nào vậy?E làm theo bác noname nhưng vẫn chưa được

• RE: Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Acc

  bangnguyencong > 29-11-12, 12:59 AM

  Vậy mình cũng có thể chuyển từ font VNI sang Unicode được chứ?
  Thank!!!!
• Bài trước Bài tiếp