Access限製大寫,小寫字母録入

2017-10-10 17:09:00
tmtony8
原創
2194

在Access録入窗體中,我們有時需要限製録入的字母爲大寫,或者統一爲小寫。

或者説我們在録入的時候強製把大寫字母轉換成小寫,或者強製把小寫字母轉換成大寫。



在文本框的擊鍵事件中寫以下代碼:

1、如果需要録入大寫字母的代碼(小寫轉大寫):

Private Sub 小寫轉大寫_KeyPress(KeyAscii As Integer)
     KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub


2、如果需要路入小寫字母的代碼(大寫轉小寫):

Private Sub 大寫轉小寫_KeyPress(KeyAscii As Integer)
     KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub






    分享