Office中国论坛/Access中国论坛

标题: access数据字段过滤文本值 [打印本页]

---

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

---

作者: todaynew    时间: 2009-11-11 16:31


[attach]40335[/attach]

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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3