Tôi có 1 CSDL dạng font Unicode, nhưng khi viết code xử lý sự kiện trong phần chọn, select case " ví dụ " để thực thi thì VB không hiểu. Hay là dùng code chuyển font chữ từ Unicode sang Vni. Xin các bạn hỗ trợ giúp, cảm ơn.[/size]

Cái này trên diễn đàn đã có rồi mà bạn.
Mình hay làm ntn:
tạo bảng VD: tbl_sys_msg
gồm: ID, Msg, ....
tương ứng chẳng hạn: 1, Ví dụ

khi đó bạn kết hợp hàm Dlookup để viết vào lệnh
Select Case forms!tenform!tentxtbook
Case is = Dlookup("Msg","tbl_sys_msg","ID=1")
lệnh gì đó
Case is = Dlookup("Msg","tbl_sys_msg","ID=2")
.....
End Select


Thử xem sao nhé.

Trước hết xin cảm ơn bạn cpucloi đã giúp đỡ, nhưng chắc do phần diễn giải vấn đề của mình chưa rõ nên chưa giải quyết được vấn đề của mình. Mình xin trình bày lại cụ thể 1 chút nhé, mong các bạn thông cảm và giúp đỡ mình.

Mình có 1 table dạng font unicode tên là tblPHAPLY, trong đó có field PHAPLY và PHAPLYS_DIENGIAI như thế này:
PHAPLY PHAPLY_DIENGIAI
TC Diện tạm cư
ĐC Được cấp
ĐCCN Được cấp chuyển nhượng
TĐC Tái định cư
CĐ Theo chỉ đạo

Nhưng khi mình viết sự kiện (event) như thế này:
Private Sub cboPhapLy_Change()
Select Case cboPhapLy
Case "?C", "CT", "C?", "CV223", "CV35"
txtQDCAP.Enabled = True
txtNGAYCAP.Enabled = True
txtNOICAP.Enabled = True

TxtQDxuly.Enabled = False
TxtNgayQDxuly.Enabled = False
TxtNoicapQDxuly.Enabled = False

TxtQDsangnhuong.Enabled = False
TxtNgayQDsangnhuong.Enabled = False
TxtNoicapQDsangnhuong.Enabled = False

Case "?CCN"
txtQDCAP.Enabled = True
txtNGAYCAP.Enabled = True
txtNOICAP.Enabled = True

TxtQDxuly.Enabled = False
TxtNgayQDxuly.Enabled = False
TxtNoicapQDxuly.Enabled = False

TxtQDsangnhuong.Enabled = True
TxtNgayQDsangnhuong.Enabled = True
TxtNoicapQDsangnhuong.Enabled = True
End Select
End Sub

Thì nó không hiểu ở chỗ case "ĐCCN" và case "ĐC" và case "CĐ" để thực thi.
Xin cảm ơn.

Bạn thay "ĐCCN" = 1, .... đi xem nào, hoặc bạn định nghĩa nó là "DCCN" để tránh xung đột nhé (như nhau cả mà bạn ơi!)