1.保留字符串内的数字

Function BLSZ(Str As Variant) As String

    Dim i, l As Integer
    Dim s As String
    l = Len(Str)       '字符串长度
    For i = 1 To l
        s = Mid(Str, i, 1)
        If s Like "[0-9]" Then
            BLSZ = BLSZ & s
        End If
    Next

End Function

2.去除字符串内数字

Function QCSZ(Str As Variant) As String
    Dim i, l As Integer
    Dim s As String
    l = Len(Str)       '字符串长度
    For i = 1 To l
        s = Mid(Str, i, 1)
        If Not(s Like "[0-9]" ) Then
            QCSZ = QCSZ & s
        End If
    Next
End Function

使用举例： 

更新表中的字段，去掉字段内容里面的数字

docmd.runsql " update 表 set 字段1 = QCSZ(字段1); "