Đá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
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 224 7 Giờ trước
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 204 07-12-16, 02:25 PM
Bài mới nhất: toanle
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,693 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 124 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan
  Summary bằng VBA trong MS Access. MinhnHang 6 320 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang

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ơ