Access限制大写,小写字母录入

2017-10-10 17:09:00
黄善超
原创
101

在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






    分享