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

5988143

怎样快速将所有表的记录(英文字母)全部转换为大写!
呵呵,求助最快最捷径的方法!

wattducr

不错,拿不起这钱.
   

simonwong

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

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


在击键事件中：

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

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

小鸡快跑0822

很同情你 但帮不上忙

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

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

kangking

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 upfield As String

    sql = "SELECT MSysObjects.Name, MSysObjects.Type" & _
          " FROM MSysObjects" & _
          " WHERE ((Mid([Name], 1, 4) <> 'Msys') And ((MSysObjects.Type) = 1))"

    Set rsdb = CurrentDb.OpenRecordset(sql)
    Set qd = CurrentDb.QueryDefs("查询1")

    Do Until rsdb.EOF
        Set rs = CurrentDb.OpenRecordset(rsdb(0))
        For i = 0 To rs.Fields.Count - 1
            If rs.Fields(i).Type = dbText Or rs.Fields(i).Type = dbMemo Then
                upfield = upfield & rs.Fields(i).Name & "=ucase([" & rs.Fields(i).Name & "]),"
            End If
        Next
        If upfield <> "" Then
            qd.sql = "update [" & rsdb(0) & "] set " & Mid(upfield, 1, Len(upfield) - 1)
            qd.Close
            CurrentDb.Execute "查询1"
            upfield = ""
        End If
        rsdb.Move 1
    Loop
    Set rsdb = Nothing
    Set rs = Nothing
    Set qd = Nothing
   
End Sub

用法，随便建立一个查询，命名为“查询1"
然后运行上面的代码。
上面的代码只对文本字段和备注字段有效。

5988143

Henry D. Sy 发表于 2009-3-3 08:57

我新添加了兩個新表的數據,無法通過測試~

5988143

Henry D. Sy 发表于 2009-3-3 08:57

呵呵~找到原因了,不能與  MSADOX.DLL 同時使用~

Henry D. Sy

提示錯誤: -2147217887(80040e21)
5988143 发表于 2009-3-3 08:51

5988143

Public Sub UCaseAllRecord()
    Dim strTblName() As String
    Dim rs As New ADODB.Recordset
    Dim i As Long, j As Long
    Dim k As Integer
    Dim db As Database
    Dim tbl As DAO.TableDef
...
Henry D. Sy 发表于 2009-3-2 20:25

提示錯誤: -2147217887(80040e21)

pureshadow

那不如转到EXCEL里，用UPPER函数，再转回ACC……
我闪……