Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Làm sao để VB hiểu được tiếng việt có dấu font Unicode
#1
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]
Chữ ký của leminh Xin chào, mình là leminh, Tham gia http://thuthuataccess.com/forum từ ngày 06-03 -14.
Reply
Những người đã cảm ơn
#2
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é. LightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulb
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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 "" để thực thi.
Xin cảm ơn.
Chữ ký của leminh Xin chào, mình là leminh, Tham gia http://thuthuataccess.com/forum từ ngày 06-03 -14.
Reply
Những người đã cảm ơn
#4
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!)
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
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
  [Lỗi] Không chạy được VBA Code hungthanmx 3 217 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  Vô hiệu hóa nút Close của Form (cửa sổ) ChiMai 3 246 07-08-16, 04:34 PM
Bài mới nhất: maidinhdan
  [Lỗi] Không import được hết dữ liệu từ Excel và Access huedhcs 2 158 03-07-16, 11:27 PM
Bài mới nhất: zinzin8x
  [Hỏi] Sử dụng phần mềm viết bằng Access trong mạng LAN chantroi_19 9 751 21-06-16, 10:33 AM
Bài mới nhất: lmthu
  Vô hiệu hóa 1 số phím tắt thanhtruong 1 99 29-05-16, 08:24 AM
Bài mới nhất: ongke0711

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ơ