Tùy chọn
Msg Box tiếng Việt Unicode có định dạng chữ đậm
- Msg Box tiếng Việt Unicode có định dạng chữ đậm
-
Msg Box tiếng Việt Unicode có định dạng chữ đậm
tranthanhan1962 > 31-05-15, 04:02 PM
Khi tiếng Việt có Font chữ Unicode thì Msgbox Access lại không tương thích (bị lỗi font). Điều này làm đau đầu nhiều cao thủ Access. Trước đây mình cũng tham khảo tham gia nhiều diễn đàn về cách xử lý vụ việc này, nhưng thật ra mình cũng chưa thỏa mãn.
Nhớ lại thời gian mới có access 2003 (lúc đó xử dụng với font Vni nên không bị lỗi font). Khi còn xử dụng Access 97, MsgBox của nó cho phép định dạng chữ đậm, xuống hàng dễ dàng nên mình thích msgBox 97 hơn 2003. Cuối cùng mình đã xử lý được hàm gọi lại chức năng này trong Access 2003.
Thời gian gần đây khi tham gia trở lại Thủ thuật Access mình hay lục lọi tàng kinh các để có cái post lên cho vui cùng các bạn thì thật bất ngờ. Nó lại tương thích với Unicode.
Mình post lên đây bạn nào thích thì dùng.
![[Hình: X7vxJzF.png]](http://i.imgur.com/X7vxJzF.png)
Cách thực hiện cũng đơn giản. Trước hết tạo một table có tên là TB (thông báo) có 2 field là ID và ND. Để tạo nội dung cho VietUniMsgBox.
![[Hình: Mvt7qrz.png]](http://i.imgur.com/Mvt7qrz.png)
Tạo một module chứa function
Gọi VietUniMsgBox Kiểu 1Mã PHP:Function VietUniMsgBox(Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Gọi VietUniMsgBox Kiểu 2Mã PHP:VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 2"), vbCritical + vbAbortRetryIgnore, DLookup("[ND]", "TB", "[ID] = 1")
Gọi VietUniMsgBox Kiểu 3Mã PHP:VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 4"), vbExclamation + vbSystemModal, DLookup("[ND]", "TB", "[ID] = 3")
Mã PHP:VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 6"), vbQuestion, DLookup("[ND]", "TB", "[ID] = 5")
Nếu không thích tạo thêm table và dùng hàm Dlookup để gọi nội dung thông báo cho Msgbox các bạn có thể dịch thẳng nội dung ra mã font rồi đưa trực tiếp vào VietUniMsgBox mà không cần phải thêm thao tác nào.
Gọi VietUniMsgBox Kiểu 1
Gọi VietUniMsgBox Kiểu 2Mã PHP:VietUniMsgBox ChrW(272) & "ây là MsgBox Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) _
& "t!@Không l" & ChrW(7895) & "i Font Unicode ti" & ChrW(7871) & "ng Vi" _
& ChrW(7879) & "t.@Có th" & ChrW(7875) & " t" & ChrW(7841) & "o ch" & _
ChrW(7919) & " nét " & ChrW(273) & ChrW(7853) & "m.", vbCritical + _
vbAbortRetryIgnore, "Msg Box Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t"
Gọi VietUniMsgBox Kiểu 3Mã PHP:VietUniMsgBox "Th" & ChrW(7911) & " thu" & ChrW(7853) _
& "t Acess là trang web b" & ChrW(7893) & " ích cho m" _
& ChrW(7885) & "i ng" & ChrW(432) & ChrW(7901) & "i.", _
vbExclamation + vbSystemModal, "Trân tr" & ChrW(7885) _
& "ng thông báo!"
Mã PHP:VietUniMsgBox " Công cha nh" & ChrW(432) & _
" núi thái s" & ChrW(417) & "n." & vbCrLf & _
"Ngh" & ChrW(297) & "a m" & ChrW(7865) & " nh" _
& ChrW(432) & " n" & ChrW(432) & ChrW(7899) & _
"c trong ngu" & ChrW(7891) & "n ch" & ChrW(7843) _
& "y ra.", vbQuestion, "Ca dao Vi" & ChrW(7879) & "t Nam" -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
kieu manh > 24-06-15, 02:36 PM
Nếu bạn Nào thích Msgbox Uni TV đơn giản thì làm vậy cũng ok nè Trên VBA hay VB6 điều được Tuốt Còn VB.Net thì Cóc Cần
Mã PHP:Public Sub MsgboxUni_TiengViet()
CreateObject("WScript.Shell").PopUp "Ki" & ChrW(7873) & "u M" & ChrW(7841) & "nh Xin Chào", , "Thông Báo", vbInformation
End Sub -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
maidinhdan > 20-07-15, 06:03 PM
Hỏi: Đoạn code nào cho phép chữ đậm vậy? hay chỉ khi sử dụng tham số vbCritical + vbAbortRetryIgnore mới có chữ đậm. Xin giải thích dùm em. -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
tranthanhan1962 > 20-07-15, 07:47 PM
-
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
bvchauthanh > 20-07-15, 09:28 PM
(20-07-15, 07:47 PM)tranthanhan1962 Đã viết:
(20-07-15, 06:03 PM)maidinhdan Đã viết: Hỏi: Đoạn code nào cho phép chữ đậm vậy? hay chỉ khi sử dụng tham số vbCritical + vbAbortRetryIgnore mới có chữ đậm. Xin giải thích dùm em.
Khi có ký tự @ thì dòng đầu tiên sẽ có chữ đậm còn tham số vb thì vẫn sử dụng bình thường như Msgbox.
Thế đặt ký tự @ vào vị trí nào vậy bạn vì trên code phía trên (dùng table) mình không thấy ký tự @ ở đâu cả, mong bạn chỉ giáo -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
tranthanhan1962 > 21-07-15, 01:12 AM
(20-07-15, 09:28 PM)bvchauthanh Đã viết: Thế đặt ký tự @ vào vị trí nào vậy bạn vì trên code phía trên (dùng table) mình không thấy ký tự @ ở đâu cả, mong bạn chỉ giáo
Hì hì, bạn nhìn kỹ trong table tại ID 2 Nội dung nó là:
Đây là MsgBox Tiếng Việt@Không lỗi … tiếng Việt.@Có thể…
Có 2 chữ @, một nằm giữa hai từ Việt và Không, chữ thứ 2 nằm giữa 2 từ Việt. và Có. Khi access biên dịch mã thì sẽ kiểm tra đoạn nội dung thông báo xem có @ không để xử lý in đậm đoạn nội dung phía trước ký tự @ đầu tiên. Nên bạn có quyền đặt nó bất kỳ ở đâu dù trực tiêp trong code hay tham chiếu giá trị của biến qua table đều có giá trị như nhau
Chú ý:
- Phải có đủ 2 ký tự @ trong nội dung thông báo, nếu chỉ có một ký tự @ nó sẽ viết liền như @ là một ký tự thông thường.
- Ký tự @ thứ 2 còn có nhiệm vụ xuống dòng.
- Nếu không muốn xuống dòng trong đoạn sau. @ phải đặt nằm cuối đoạn thông báo.
- Không xử dụng dấu @ thứ 3 để xuống dòng vì nội dung sau dấu @ thứ 3 sẽ bị cắt mất. Nếu muốn xuống dòng nữa phải xử dụng từ khóa vbCrLf -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
bvchauthanh > 21-07-15, 12:32 PM
Bài viết rất bổ ích, thanks bạn rất nhiều. -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
rainkv > 22-07-15, 10:17 PM
Mình đọc mà chưa hiểu chổ này nha,bạn giải thích giúp mình nhs:
Mình muốn dùng msg tv cho thông báo trùng mả số hs thì mình làm sao? Để dịch ra font vietunimsg như trên thì dịch sao vậy bàn? -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
tranthanhan1962 > 22-07-15, 11:22 PM
Để báo lỗi bằng tiếng Việt trước hiết bạn phải xử lý bẩy lỗi của bạn hay dịch lỗi của Access.
Để xử lý lỗi của access bạn phải tra xem nó lỗi gì và dịch thông báo của nó ra tiếng Việt, rồi xử lý trong Form_Error.
Ví dụ trùng mã khóa chính là lỗi 3058
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3058
VietUniMsgBox “thông báo lỗi”
End Select
End Sub
Muốn chuyển đổi chuỗi bạn vào bài “Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA” của bác Noname nghiên cứu. -
RE: Msg Box tiếng Việt Unicode có định dạng chữ đậm
maidinhdan > 23-07-15, 12:22 AM
Đã sử dụng hàm này, phát hiện vấn đề là: ( chỉ hiện thông báo tiếng việt)
Nếu có tham số đi kèm, để bắt code Yes, No, Cancel dùng không được. anh Ân test lại code dùm và xin vài ý kiến từ anh.
Cụ thể đoạn code sau: Khi nhấn Yes vẫn hiện MsgBox "Da huy lenh"
Mã PHP:Private Sub Command0_Click()
Dim xacnhan As Long
xacnhan = VietUniMsgBox (ChrW(272) & "ây là MsgBox Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) _
& "t!@Không l" & ChrW(7895) & "i Font Unicode ti" & ChrW(7871) & "ng Vi" _
& ChrW(7879) & "t.@Có th" & ChrW(7875) & " t" & ChrW(7841) & "o ch" & _
ChrW(7919) & " nét " & ChrW(273) & ChrW(7853) & "m.", vbCritical + vbYesNo, "Msg Box Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t")
If xacnhan = vbYes Then
MsgBox "Da ok"
Else
MsgBox "Da huy lenh"
End If
End Sub