Đánh giá chủ đề:
  • 1 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lỗi Font trong VBA giữa Win7 và WinXP
#1
Mình sử dụng hàm đọc số thành chữ (như đính kèm). Mình viết chương trình access tren win7, nhưng khi để sang máy winxp thì bị lỗi font, mình đã chọn font trong option của VBA rồi là arial (vietnamese) rồi và bảng mã là unicode tổ hợp nhưng vẫn ko được, nhưng nếu để sang máy win7 thì đọc ngon lành. Nó đây ạ!

Public Function ChuSoUni(So As Variant) As String
On Error GoTo Exit_ChuSoUni
Dim i As Integer, J As Integer, S As Double, T As String
Dim FI(4) As Integer, FJ(3) As Integer, GI(4) As String, GJ(3) As String
ChuSoUni = ""
So = Int(Abs(So))
If So > 999999999999# Then GoTo Exit_ChuSoUni
S = So
For i = 1 To 4
FI(i) = Right(S, 3)
For J = 1 To 3
FJ(J) = Right(S, 1)
GJ(J) = Choose(FJ(J) + 1, "", " Mét", " hai", " ba", " bèn", " n¨m", " s¸u", " b¶y", " t¸m", " chÝn")
S = Int(S / 10)
Next J
GJ(3) = IIf(FJ(3) > 0, GJ(3) & " tr¨m", "")
GJ(2) = IIf(FJ(2) > 1, GJ(2) & " m­¬i", IIf(FJ(2) = 1, " m­êi", IIf(FJ(3) > 0 And FJ(1) > 0, " l?", "")))
If FJ(2) > 0 And FJ(1) = 5 Then GJ(1) = " l¨m"
If FJ(2) > 1 And FJ(1) = 1 Then GJ(1) = " mèt"
GI(i) = IIf(FI(i) = 0, "", GJ(3) & GJ(2) & GJ(1) & Choose(i, "", " ngµn,", " triÖu,", " tû,"))
Next i
If So > 1000 And FI(1) > 0 And FI(1) < 10 Then GI(1) = " l?" & GI(1)
T = Trim(GI(4) & GI(3) & GI(2) & GI(1))
ChuSoUni = UCase(Left(T, 1)) & Right(T, Len(T) - 1)
Exit_ChuSoUni:
Exit Function
End Function

Rất mong các thành viên có kinh nghiệm vấn đề này giúp đỡ với, mình đang cần gâp!
Chữ ký của phuonglam1405 Xin chào, mình là phuonglam1405, Tham gia http://thuthuataccess.com/forum từ ngày 08-04 -12.
Reply
Những người đã cảm ơn
#2
Không có thuốc nào cả bạn ạ. Gõ Unicode trong khung editor VBA là chuyện khó khăn nhất và gần như không thể.

Chỉ còn cách phát biểu dạng code, rồi cho hiện code đó ra thôi!
Tham khảo bài này
http://thuthuataccess.com/forum/thread-4302.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(22-05-12, 03:12 PM)Noname Đã viết: Không có thuốc nào cả bạn ạ. Gõ Unicode trong khung editor VBA là chuyện khó khăn nhất và gần như không thể.

Chỉ còn cách phát biểu dạng code, rồi cho hiện code đó ra thôi!
Tham khảo bài này
http://thuthuataccess.com/forum/thread-4302.html

Xin hỏi Noname cách làm như thế nào ạ?

Có thể giúp mình sửa luôn trên hàm này được ko Noname, mình đang khá gấp trong ngày nay, cảm ơn Noname nhiều lắm!
Chữ ký của phuonglam1405 Xin chào, mình là phuonglam1405, Tham gia http://thuthuataccess.com/forum từ ngày 08-04 -12.
Reply
Những người đã cảm ơn
#4
Bài cũ rồi nhưng ai có gặp phải điều tương tự thì xem bài này nhé:
http://thuthuataccess.com/forum/post-303...l#pid30315
Chỉnh lại hệ thống như bài trên. Với code trong bài này bạn copy những dòng có tiếng việt ra Word sửa lại rồi dán vào là OK nhé.
Và demo:
https://drive.google.com/file/d/0B2yhiz0...sp=sharing
Tiếng Việt hiển thị tốt cả trên Win7 và WinXP không lỗi font.
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
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
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 20,941 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,881 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 819 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 322 18-12-16, 09:43 AM
Bài mới nhất: thanhquyt
  Lấy record từ tbl1 làm thành field trong tbl2. MinhnHang 5 465 13-12-16, 03:05 PM
Bài mới nhất: ongke0711

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ơ