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

Định dạng mặc định chữ HOA khi nhập liệu

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Định dạng mặc định chữ HOA khi nhập liệu
• Định dạng mặc định chữ HOA khi nhập liệu

• Định dạng mặc định chữ HOA khi nhập liệu

  cannguyen > 07-04-16, 11:29 AM

  Các bác cho em hỏi. Mình muốn mặc định khi nhập liệu trên Form: Nhập bất kỳ chữ HOA, chữ thường thì nó tự động chuyển sang chữ HOA thì làm cách nào các Bác
  Cảm ơn các bác

• RE: Định dạng mặc định chữ HOA khi nhập liệu

  jeck09nt > 07-04-16, 01:31 PM

  Bạn tìm trên diễn đàn :
   http://thuthuataccess.com/forum/thread-69.html

• RE: Định dạng mặc định chữ HOA khi nhập liệu

  maidinhdan > 08-04-16, 10:53 AM

  (07-04-16, 11:29 AM)cannguyen Đã viết: Các bác cho em hỏi. Mình muốn mặc định khi nhập liệu trên Form: Nhập bất kỳ chữ HOA, chữ thường thì nó tự động chuyển sang chữ HOA thì làm cách nào các Bác
  Cảm ơn các bác

  
  Thêm dấu > vào phần Format của cột đó.

• RE: Định dạng mặc định chữ HOA khi nhập liệu

  ongke0711 > 08-04-16, 01:32 PM

  Cách thêm dấu > sẽ gặp lỗi font một số từ nếu dùng Unicode dựng sẳn.

• RE: Định dạng mặc định chữ HOA khi nhập liệu

  tranthanhan1962 > 11-04-16, 04:50 PM

  Để không bị lỗi font dùng mod sau đây để cắt từng ký tự rồi chuyển thành chữ hoa sẽ không bị lỗi.
  

  Mã:

  Function HOA(KYTU As String)
Dim sochu, SOLAN    As Integer
   sochu = Len(KYTU)
       For SOLAN = 0 To sochu
     HOA = HOA & UCase(Mid(KYTU, SOLAN + 1, 1))
   Next SOLAN
End Function

  Tại textbox (ví dụ texbox0)
  

  Mã:

  Private Sub Text0_AfterUpdate()
Text0.Value = HOA(Text0.Value)
End Sub

• RE: Định dạng mặc định chữ HOA khi nhập liệu

  ongke0711 > 14-04-16, 10:30 AM

  (11-04-16, 04:50 PM)tranthanhan1962 Đã viết: Để không bị lỗi font dùng mod sau đây để cắt từng ký tự rồi chuyển thành chữ hoa sẽ không bị lỗi.
  

  Mã:

  Function HOA(KYTU As String)
Dim sochu, SOLAN    As Integer
   sochu = Len(KYTU)
       For SOLAN = 0 To sochu
     HOA = HOA & UCase(Mid(KYTU, SOLAN + 1, 1))
   Next SOLAN
End Function

  Tại textbox (ví dụ texbox0)
  

  Mã:

  Private Sub Text0_AfterUpdate()
Text0.Value = HOA(Text0.Value)
End Sub

  
  Anh Ân và các bạn nào khác có nghiên cứu ra cách nào đổi thành chữ HOA ngay khi gõ ký tự tiếng Việt Unicode không?
  Mình cũng không rành về các mã ASCII của Unicode nó hoạt động như thế nào ở sự kiện KeyPress nên làm thử mà không được.
  Cách mình là: đổi mã ASCII chữ thường thành mã chữ HOA
  Ví dụ:
  Private Sub TestText_KeyPress (KeyAscii as Integer)
      Select Case KeyAscii
             Case 225  ' mã của chữ "á"
                    KeyAscii=193   ' mã chữ "Á"
             Case ...
      .....
      End Select
  End Sub
  
  Các bạn nào biết sửa giùm nhé.
• Bài trước Bài tiếp