• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tùy biến Msgbox Unicode dễ dàng mà không lỗi font

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Tùy biến Msgbox Unicode dễ dàng mà không lỗi font
• Tùy biến Msgbox Unicode dễ dàng mà không lỗi font

• Tùy biến Msgbox Unicode dễ dàng mà không lỗi font

  tranthanhan1962 > 31-10-14, 01:43 AM

  Thấy các bạn quan tâm nhiểu về việc này, mình xin đưa ra giải pháp mà mình đã thược hiện. Tạo msgbox unicode tiếng Việt không lỗi mà không phải dùng hàm hay thiết đặt phức tạp. Bằng cách dùng Vietnames keyboard của Windows
  1/ Cài đặt Vietnames keyboard trong control panel.
  2/ Khi sử dụng Vietnames keyboard, phải tắt tất cả các bộ gõ tiếng việt khác.
  3/ Vì khi soạn thảo bằng cách này trong module của Access bị lỗi con trỏ chỉ sai vị trí ký tự nên hay nhất là viết code trên notepad rồi dán vào module.
  4/ Kiểu gõ của Vietnames keysboard như sau (bạn nào biết rồi khỏi đọc phần này): 1=ă, 2=â, 3=ê, 4=ô, [=ư, ]=ơ, 5= huyền, 6= hỏi, 7= ngã, 8= sắc, 9= nặng, 0= đ.
  Các bạn có thể copy các code bên dưới rồi dán thử vào module để test. Nhở là trước khi copy và dán phải chọn Vietnames keyboard và tắt tất cả các bộ gõ khác, không thì Font sẽ bị lỗi từa lưa đó
  
  Msgbox thường
  
  Private Sub Nut1_Click()
  MsgBox "THỦ THUẬT ACCESS là trang web cực kỳ bổ ích", , "Không lỗi Font Unicode"
  End Sub
  
  Msgbox chữ đậm
  
  Private Sub Nut3_Click()
  Eval ("MsgBox (" & _
  " ' Đặt đúng các dấu a móc, dấu nháy và cặp ký tự Chr xuống dòng theo mẫu,' & " & _
  " '@Không sử dụng các từ vb gán biểu tượng mà sử dụng số để gán biểu tượng cho msgbox. ' & Chr(13) & Chr(10) & " & _
  " 'Để không lỗi Font Unicode tiếng Việt. Thiết đặt và sử dụng Vietnamese keyboard trong Control Panel." & Chr(13) & Chr(10) & _
  ProcNo & "Chúc các bạn thành công! Không ̣được bỏ từ khóa ProcNo ở dòng cuối." & " @@',16,' Cách làm Font chữ ̣đậm và xuống dòng ' ) ")
  End Sub
  
  
  Private Sub Nut4_Click()
  Eval ("MsgBox (" & _
  " ' Sử dụng Vietnamese keyboard, tắt hết các bộ gõ khác ' & " & _
  " '@Viết code trong giao diện modul Access sẽ sai vị trí dấu nháy của con trỏ ' & Chr(13) & Chr(10) & " & _
  " 'Viết code trong notepad sẽ dễ hơn, rồi dán vào modul" & Chr(13) & Chr(10) & _
  "Chúc các bạn thành công! Khi bỏ từ khóa ProcNo ở dòng cuối, giảm bớt dấu nháy đơn " & " @@',16,' Viết mã trực tiếp bằng Font Unicode code cho hàm msgbox không lỗi font ' ) ")
  End Sub
  
  Chúc các bạn thành công
• Bài trước Bài tiếp