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

在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