Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xin hỏi cách chuyển Font từ TCVN3 sang Unicode của cả Table,Forn, report trên Access
#1
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
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Hạ Vàng , bangnguyencong
#3
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)
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng
#4
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;
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Hạ Vàng , bangnguyencong
#5
Cảm ơn bác Noname nhiều nhiều, em làm được rồi
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
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
Chữ ký của cong_agribankPT Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
Vậy mình cũng có thể chuyển từ font VNI sang Unicode được chứ?
Thank!!!!
Chữ ký của bangnguyencong Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 145 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,688 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  Summary bằng VBA trong MS Access. MinhnHang 6 316 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 631 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Hỏi] Số Thứ Tự Theo Nhóm Hàng Hóa Trong Access pherotao 2 141 02-11-16, 03:05 PM
Bài mới nhất: pherotao

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ