怎样快速将所有表的记录(英文字母)全部转换为大写!

5988143

Public Sub Capitalization()
    Dim db As DAO.Database
    Dim rsdb As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim sql As String
    Dim qd As DAO.QueryDef
    Dim i As Integer
    Dim up ...
kangking 发表于 2009-3-3 14:26

呵呵~測試了一下速度挺快的!

小鸡快跑0822

很同情你 但帮不上忙

simonwong

转帖:
自动转换大写、小写字母的一句代码

作 者:徐军勇
摘　要:在某些特定的窗体控件中，我们可能需要输入的字母统一为大写或小写，如果用“Caps Lock”键来回切换显得不方便，用上述代码即可方便地实现大小写的自动转换。
正　文:


在击键事件中：

1、如果始终要求输入大写字母的代码（小写转大写）：KeyAscii = Asc(UCase(Chr(KeyAscii)))

2、如果始终要求输入小写字母的代码（大写转小写）：KeyAscii = Asc(LCase(Chr(KeyAscii)))

wattducr

不错,拿不起这钱.