access数据字段过滤文本值

qx51601

我想过滤一段文本和数字混合的值，去掉汉字，只留下数字。我用了数字字段强行录入的方法，想由此忽略文本值写入，过滤掉文字，可不行，页面出现报错。请问除了这样以外，其他还有什么办法能达到我的目的。

todaynew

1、写一个自定义函数
Function strRepl(mystr As String) As String
'功能:去除字符串中非数字字符
'参数:mystr---被运算的字符串
'示例:1、select 编号,strRepl(编号) as 数字编号 from 表
'     2、me.字符串.value=strRepl(me.字符串.value)
Dim A As String
Dim str As String
Dim i As Long
str = mystr
For i = 1 To Len(mystr)
    A = Mid(mystr, i, 1)
    If Asc(A) < Asc(0) Or Asc(A) > Asc(9) Then
        str = Replace(str, A, "", 1, 1)
    End If
Next
strRepl = str
End Function

2、调用该函数
Private Sub 确定_Click()
Me.数据.Value = strRepl(Me.数据.Value)
End Sub