1、写一自定义函数：
function 除去数字(tbname as string,fldname as string)
Dim rs As New ADODB.Recordset
Dim sql As String
dim i as long
sql = "select " & fldname & " from " & tbname
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs.recordcount
rs(fldname).value=Replace(Replace(Replace(rs(fldname).value,"0",""),"1",""),"2","")
rs(fldname).value=Replace(Replace(Replace(rs(fldname).value,"3",""),"4",""),"5","")
rs(fldname).value=Replace(Replace(Replace(rs(fldname).value,"6",""),"7",""),"8","")
rs(fldname).value=Replace(rs(fldname).value,"9","")
rs.update
rs.movenext
next
rs.close
set rs=nothing
end function
2、在某个按钮的单击事件中调用该函数：
call 除去数字("单位表","地址")
