office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2017-10-10 17:09:00
tmtony8
原创
3392

在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






    分享