Ðề: Để Msgbox hiển thị ngôn ngữ tiếng Việt
Xin góp với anh em một ý:
Không ai nói là không hiển thị được tiếng Việt trên MsgBox hoặc trên cửa sổ VBA. Nhưng hoặc là anh em phải định lại property trong Desktop - Appearance của hệ thống, hoặc phải viết thêm thủ tục phức tạp cầu kỳ.
Mà bảng mã lại không hề là Unicode, trong khi xu hướng tất yếu hiện nay là Unicode. Một điều các bạn sẽ không ngờ rằng, dù không thể hiện được Unicode có dấu tiếng Việt trên MsgBox nếu làm theo "truyền thống", nhưng vẫn hoàn toàn thực hiện mà không phải tốn quá nhiều công sức.
Các bạn thử nhé:
1. Làm một table resource (tblMessages) chứa các thông báo mà bạn muốn, nó có hai cột:
tagName (Text, 20 hoặc hơn tùy), content (Text, 255)
Trong đó tagName là tên để chúng ta tham chiếu sau này, content là nội dung của thông báo.
Ví dụ tôi có một record mà:
tagName: NO_RECORD
content: Hiện tại bây giờ trong bảng chưa có bất kỳ dữ liệu nào (gõ theo Unicode nhé)
2. Tôi có một thủ tục nào đó, mà trong đó tôi cần hiện thông báo trên:
...
Dim mess
mess = DLookup("content", "tblMessages", "tagName = 'NO_RECORD'")
mess = IIf(IsNull(mess), "chuoi thong bao tu che neu khong tim thay", mess)
MsgBox mess
...
Bạn sẽ thấy nó hiện đầy đủ dấu má nghiêm chỉnh. Thử đi các bạn.