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

Hàm Strconv() bị lỗi font tiếng việt

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Hàm Strconv() bị lỗi font tiếng việt
• Hàm Strconv() bị lỗi font tiếng việt

• Hàm Strconv() bị lỗi font tiếng việt

  Newbee > 31-07-23, 05:33 PM

  Xin chào mọi người,
  
  Mình mới biết dùng Ms Access 2016, hiện tại mình đang tạo 1 form có code VBA (after update event của ô nhập tên khách hàng).
  Chi tiết như này ( me.txtCustomerName = Strconv(me.txtCustomerName, vbProperCase).
  Mình muốn in hoa mỗi chữ cái đầu theo hướng dẫn của hàm trên Microsoft Hỗ Trợ nhưng nó chỉ không bị lỗi khi nhập không dấu, các kí tự có dấu điều bị biến thành "?".
  Xin mọi người hướng dẫn chi tiếc giúp cách khắc phục để khi đánh tiếng việt không bị lỗi "?" mà vẫn in hoa mỗi chữ cái đầu.
  
  Cảm Ơn,

• RE: Hàm Strconv() bị lỗi font tiếng việt

  AnNguyen > 01-08-23, 12:47 PM

  (31-07-23, 05:33 PM)Newbee Đã viết: Xin chào mọi người,
  
  Mình mới biết dùng Ms Access 2016, hiện tại mình đang tạo 1 form có code VBA (after update event của ô nhập tên khách hàng).
  Chi tiết như này ( me.txtCustomerName = Strconv(me.txtCustomerName, vbProperCase).
  Mình muốn in hoa mỗi chữ cái đầu theo hướng dẫn của hàm trên Microsoft Hỗ Trợ nhưng nó chỉ không bị lỗi khi nhập không dấu, các kí tự có dấu điều bị biến thành "?".
  Xin mọi người hướng dẫn chi tiếc giúp cách khắc phục để khi đánh tiếng việt không bị lỗi "?" mà vẫn in hoa mỗi chữ cái đầu.
  
  Cảm Ơn,

  Vậy bạn thử hàm này xem nhé. 
  

  Mã PHP:

  Function VietHoaDauCau(str As String)
    If str <> "" Then
        Dim chuoi As Variant, kq As String
        chuoi = Split(str, " ")
        str1 = ""
        For i = 0 To UBound(chuoi)
            If chuoi(i) <> "" Then
                str1 = chuoi(i)
                VietHoaDauCau = VietHoaDauCau & " " & UCase(Left(str1, 1)) + LCase(Mid(str1, 2, 50))
            End If
        Next
        VietHoaDauCau = Trim(VietHoaDauCau)
    End If
End Function 


• RE: Hàm Strconv() bị lỗi font tiếng việt

  ongke0711 > 01-08-23, 03:00 PM

  (01-08-23, 12:47 PM)AnNguyen Đã viết: ...

  
  Sửa tên hàm lại thành Viết hoa đầu từ nhé, không phải câu.

• RE: Hàm Strconv() bị lỗi font tiếng việt

  Newbee > 04-08-23, 01:17 PM

  (01-08-23, 12:47 PM)AnNguyen Đã viết:

  (31-07-23, 05:33 PM)Newbee Đã viết: Xin chào mọi người,
  
  Mình mới biết dùng Ms Access 2016, hiện tại mình đang tạo 1 form có code VBA (after update event của ô nhập tên khách hàng).
  Chi tiết như này ( me.txtCustomerName = Strconv(me.txtCustomerName, vbProperCase).
  Mình muốn in hoa mỗi chữ cái đầu theo hướng dẫn của hàm trên Microsoft Hỗ Trợ nhưng nó chỉ không bị lỗi khi nhập không dấu, các kí tự có dấu điều bị biến thành "?".
  Xin mọi người hướng dẫn chi tiếc giúp cách khắc phục để khi đánh tiếng việt không bị lỗi "?" mà vẫn in hoa mỗi chữ cái đầu.
  
  Cảm Ơn,

  Vậy bạn thử hàm này xem nhé. 
  

  Mã PHP:

  Function VietHoaDauCau(str As String)
    If str <> "" Then
        Dim chuoi As Variant, kq As String
        chuoi = Split(str, " ")
        str1 = ""
        For i = 0 To UBound(chuoi)
            If chuoi(i) <> "" Then
                str1 = chuoi(i)
                VietHoaDauCau = VietHoaDauCau & " " & UCase(Left(str1, 1)) + LCase(Mid(str1, 2, 50))
            End If
        Next
        VietHoaDauCau = Trim(VietHoaDauCau)
    End If
End Function 


  
  Bạn có thể giải thích cụ thể mình phải làm gì với code ở trên ko? vì mình mới biết dùng Access thôi, cảm ơn bạn, mong bạn thông cảm.

• RE: Hàm Strconv() bị lỗi font tiếng việt

  AnNguyen > 04-08-23, 03:17 PM

  (04-08-23, 01:17 PM)Newbee Đã viết: Bạn có thể giải thích cụ thể mình phải làm gì với code ở trên ko? vì mình mới biết dùng Access thôi, cảm ơn bạn, mong bạn thông cảm.

  Ví dụ bạn có 1 chuỗi như sau: " Chào          mừng bạn đến với thủ thuật       acceess"
  split là để tách chuỗi con trong 1 chuỗi dài bởi dấu " " tức là ngăn cách nhau bởi khoảng trắng
  sau đó dùng vòng lặp duyệt từ vị trí 0 đến vị trí  UBound(chuoi) là cuối cùng
  

  Mã PHP:

  If chuoi(i) <> "" Then 


  là kiểm tra cái chuỗi đó không phải giá trị rỗng thì nhận
  

  Mã PHP:

  UCase(Left(str1, 1)) + LCase(Mid(str1, 2, 50)) 


               Ví dụ lấy được từ "mừng" thì sẽ viết hoa ký từ "m" đầu tiên bằng 

  Mã PHP:

  UCase(Left(str1, 1)) 


  , tiếp theo đó viết thường các ký từ phía sau đó bằng 

  Mã PHP:

  LCase(Mid(str1, 2, 50)) 


  tức là từ ký tự "ư..."
• Bài trước Bài tiếp