Đá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 43 17,572 18-12-16, 03:37 PM
Bài mới nhất: huuduy.duy
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 124 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 186 13-12-16, 03:05 PM
Bài mới nhất: ongke0711
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 384 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 305 07-12-16, 02:25 PM
Bài mới nhất: toanle

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ơ