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

詳細示例下載:http://www.office-cn.net/access-interface/382.html

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！