Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Định dạng mặc định chữ HOA khi nhập liệu
#1
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
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#2
Bạn tìm trên diễn đàn :
 http://thuthuataccess.com/forum/thread-69.html
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
(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 đó.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
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.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#5
Để 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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Minh Tiên , ongke0711
#6
(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é.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (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
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 197 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module Minh Tiên 8 612 18-11-16, 09:29 AM
Bài mới nhất: MinhnHang
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 138 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  Định dạng trong listbox feeling 3 154 06-10-16, 02:44 PM
Bài mới nhất: jeck09nt
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,320 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

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ơ