[Help] Giúp đở khai báo tên trường chỉ nhận giá trị là 3 chữ cái in hoa

[MTNQ]

Cảm ơn bạn trunghieu đã bổ sung. Về sự kiện OnKeyPress mình đã giới thiệu tại đường link đầu tiên trong bài #7

Theo như đánh giá của Mod Noname thì cách của mình là tệ nhất?
Sao vậy nhỉ?

[MTNQ]

Chào các bạn!
Mình tiếp tục chỗ "một số vấn đề" còn bỏ dở trong bài viết trước (bài #9)

1-Vấn đề 1:
-Trước tiên mình giải thích lý do tại sao mình không dùng sự kiện On KeyPress
Nếu dùng On KeyPress ta không code đơn giản như hướng dẫn của MS hay bạn trunghieu được do vướng mắc về Tiếng Việt có dấu và các bộ gõ khác nhau mà sẽ phải code khá vất vả theo kiểu như sau:

Mã:

Select Case KeyAscii
        Case ... To .., ... to ...
             KeyAscii = 0
        Case 97 To 122
            KeyAscii = Asc(UCase(Chr(KeyAscii)))
        ..........
    End Select

Nhưng chỗ then chốt không nằm ở vấn đề trên mà là nếu người dùng không nhập trực tiếp từ bàn phím mà copy và paste thì sự kiện On KeyPress sẽ vô tác dụng

2-Vấn đề 2:
Do chủ top chỉ đưa ra dk 3 chữ cái in hoa, không đề cập đến có dấu TV hay không nên mình bỏ qua dk này
Nếu thêm Dk không dấu TV vào thì làm như sau:

-Validation rule (trong bảng hoặc trong thuộc tính của text box ) là:

Mã:

(Len([Text3])=3 And Not Like "*[!a-z]*")  ' Hoặc like "???" And Not Like "*[!a-z]*"

Nếu chấp nhận bỏ trống thì thêm Or Is Null

Sau đó tại sự kiện after update của text box bạn code như sau:

Mã:

Private Sub Text3_AfterUpdate()
    Me!Text3 = UCase(ConvertToNotSign(Me!Text3))
End Sub

Trong code trên thì:
-Text3 là tên text box
-ConvertToNotSign là Hàm chuyển từ có dấu sang không dấu trong Tiếng Việt Của Mod Xuân Thanh giới thiệu tại link sau:
http://thuthuataccess.com/forum/thread-7061.html

Như vậy cho dù người dùng nhập chữ in hoa hay chữ thường, có dấu hay không có dấu thì đều được chuyển thành In hoa không dấu

Chúc các bạn luôn trẻ khỏe và diễn đàn ngày một phát triển!

[Xuân Thanh]

Chắc chỉ cần thế này là đủ theo ý của chủ topic

Mã PHP:

Private Sub txtABC_AfterUpdate()
    If UCase(txtABC) <> txtABC Then
        MsgBox "Phai nhap chu hoa" , , "Chu y"
        Exit Sub        '''' hoac gi gi do
    ElseIf Len(txtABC) <> 3 Then
        MsgBox "Chi duoc nhap 3 ky tu" , , "Chu y"
        Exit Sub
    ElseIf IsNumeric(Mid(txtABC,1,1)) = True Or IsNumeric(Mid(txtABC,2,1)) = True Or IsNumeric(Mid(txtABC,3,1)) = True Then
        MsgBox " Khong duoc nhap so" , , "Chu y"
        Exit Sub
    End If
End Sub 


Góp vui, các bạn tiếp tục nhé
Thân mến

[paulsteigel]

Góp vui thêm cùng bác Xuân thanh.... Thay vì dùng Msgbox thì nên dùng ngay lệnh cắt đi mấy ký tự thừa! Hoặc sử dụng kết hợp giữa Mask Edit và các kỹ thuật đã được giới thiệu cùng mấy cái dưới đây mà tôi hay dùng!

Xin giới thiệu thêm một cách vẫn hay làm (mọi người cũng đã nói hết cả rồi) đối với việc ngăn cấm nhập một số loại số liệu và một số loại hành động (ví dụ Cắt chẳng hạn) trong ứng dụng

Mã PHP:

'//Khai báo kiểu cho phép nhập liệu cho dễ dùng sau này
Public Enum KeyinMode
    NumberType = 1      ' Chỉ cho nhập số
    DateType = 2        ' Chỉ cho nhập kiểu ngày
    FormularType = 3    ' Chỉ cho nhập dạng công thức
    NumberOnlyType = 4 ' chỉ cho nhập số
    FreeType = 5 ' cho nhập tất cả
End Enum
'////////////////////Đây là những thủ tục gắn trên form - giả sử là đối với textbox txtFIG_PLNST_DATE
'//
Private Sub txtFIG_PLNST_DATE_keypress(ByVal KeyAscii As MSForms.ReturnInteger)
    ValidateKeycode KeyAscii, DateType
End Sub

'///Cái này để ngăn cấm dùng cắt dán chẳng hạn (tất nhien cả phần bấm phải chuột nữa cũng phải tính đến
Private Sub txtFIG_PLN_DATE_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    NoCutAction KeyCode, Shift
End Sub
'///////////////////Đây là những thủ tục để trong 1 module để có thể dùng nhiều với các textbox khác nhau
'//Cái này cấm dán
Sub NoCutAction(kCde As MSForms.ReturnInteger, ByVal ShiftKey As Integer)
    If (ShiftKey And 2) And (kCde = Asc("V")) Then kCde = 0
End Sub
'//Cái này cho phép gõ một số thứ tùy theo lựa chọn
Sub ValidateKeycode(kCde As MSForms.ReturnInteger, Optional iNum As KeyinMode = 1)
    Select Case iNum
    Case 1:
        If kCde <> vbKeyBack Then
            If InStr("0123456789", ChrW(kCde)) = 0 Then
                If InStr(".", ChrW(kCde)) <> 0 Then
                    kCde = AscW(AppLocale.DecimalSeparator)
                Else
                    kCde = 0
                End If
            End If
        End If
    Case 2:
        If InStr("0123456789/", ChrW(kCde)) = 0 And kCde <> vbKeyBack Then kCde = 0
    Case 3:
        If InStr("()+-*/0123456789", ChrW(kCde)) = 0 And kCde <> vbKeyBack Then kCde = 0
    Case 4:
        If InStr("0123456789", ChrW(kCde)) = 0 And kCde <> vbKeyBack Then kCde = 0
    Case 5:
        ' enable free type
    End Select
End Sub 


Các bạn tham khảo qua nhé. Tất nhiên là tôi chưa kiểm soát phần chiều dài ký tự, cái đó cũng dễ kiểm soát thôi, nhưng sử dụng khi thủ tục lost_focus của textbox được kích hoạt!