Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Unicode trên cửa sổ viết code VBA (IDE)
#1
Chào các Bạn,
Rất nhiều Bạn gặp khó khăn khi phải nhập chuỗi tiếng Việt Unicode trong cửa sổ viết code VBA (IDE). Sau đây là một giải pháp khả thi và rất nhẹ nhàng, đó là:
Thay vì nhập Unicode sẽ không được, ta sẽ nhập bằng 1 bảng mã tiếng Việt khác Unicode, sau đó ta dùng hàm Convert để yêu cầu ứng dụng chuyển chuỗi đã nhập sang Unicode.
Thí dụ: tôi dùng bảng mã "Bách khoa 1 byte" (sau đây viết tắt là Bk1) để nhập một chuỗi SQL trong câu lệnh trên cửa sổ IDE và viết 1 function để chuyển chuỗi BK1 đó thành Unicode.
Đoạn code sau đây dùng để gán RowSource cho 1 ListBox có 2 cột hiển thị danh sách các mặt hàng có tiêu đề cột là "Mã số Hàng hóa" và "Tên Hàng hóa", có sử dụng 1 function tự viết để chuyển mã BK1 sang Unicode là BK1ToUni
Mã:
Dim sqlSt as string
sqlst="SELECT tblDmHangHoa.MSHH AS " & BK1ToUni("MÁ sê h¿ng hÍa") & ", tblDmHangHoa.TenHangHoa AS " & BK1ToUni("Tãn H¿ng hÍa")"
sqlst=sqlst & " FROM tblDmHangHoa"
sqlst=sqlst & " ORDER BY tblDmHangHoa.MSHH"
Me.ListHangHoa.RowSource = sqlst 

Tôi đính kèm theo đây:
1. file chứa module Convert, các Bạn có thể tùy biến theo yêu cầu. Để viết module này tôi đã tham khảo các bài viết về Unicode và code VB từ trang www.vovisoft.com
2. file mdb minh họa giải pháp trên. Link download: http://www.mediafire.com/file/l7hsams6ao...stlist.zip


File đính kèm
.zip   mdlConvertVnFont.zip (Kích cỡ: 6.1 KB / Tải về: 38)
Chữ ký của lehongduc Lê Hồng Đức
Số ĐT: 0913.941.144
Email: lhongduc@gmail.com, lehongduc@quantribanhang.vn
Website: http://quantribanhang.vn
Reply
Những người đã cảm ơn MTNQ , Noname , maidinhdan , thegioi2018


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Code đánh số phòng thi! NguyenDungAnh 11 432 27-09-18, 12:19 PM
Bài mới nhất: NguyenDungAnh
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 39 8,469 22-09-18, 12:40 PM
Bài mới nhất: NguyenDungAnh
  [Help] So sánh giá trị record trên cùng 1 trường trong 1 bảng để có kết quả tính toán đúng tvn_hut 5 489 29-05-18, 10:39 PM
Bài mới nhất: ongke0711
  [Hỏi] AddNew và Edit dữ liệu trên UnboundForm Access pherotao 12 1,612 03-01-18, 10:16 AM
Bài mới nhất: pherotao
  Hướng Dẫn Thêm nút lăn chuột giao diện viết code VBA maidinhdan 0 379 27-11-17, 05:03 PM
Bài mới nhất: maidinhdan

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line