sử dụng hàm Inhoachucaidau của bác Noname hay chuanchuoi của nhattiensinh đều được
-hàm Inhoachucaidau
+ có một lỗi nho nhỏ là thiếu móc ")" ở dòng temp = CStr(LCase(Word) sửa lại là: temp = CStr(LCase(Word))
+ Nên dùng Unicode dựng sẵn vì nếu dùng Unicode tổng hợp thì chữ "n" luôn được chuyển thành "N" (Bác Noname xem sửa giúp ACE với nghen)
-VD: Muốn chuyển txtTEN sang in hoa chử cái đầu sau khi nhập bạn làm như sau:
Mã:
Private Sub txtTEN_AfterUpdate()
Me.txtTEN = Inhoachucaidau(txtTEN)
End Sub
mình làm trên file DEMO LOCK RECOR:
Download File DEMO (388KB)
->Bổ sung thêm chút:
-Nếu muốn chuyển hết sang in hoa thì dùng hàm Ucase(chuỗi ký tự) (như bác Noname đã nói ở trên )
VD: Me.txtDIACHI = UCase(txtDIACHI)