access数据字段过滤文本值

秋人　发表于：2009-11-11 14:43:52 　

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

Top

竹笛发表于：2009-11-11 15:46:11

试试val函数，比如：

val("AA123")＝123

Top

小继发表于：2009-11-11 16:30:29

Val 函数返回每个字符串中包含的数字。遇到第一个不能解释为数位、数字修饰符、数字标点或空格的字符时，Val 将停止转换

所以用VAL感觉不合适

Top

竹笛发表于：2009-11-11 16:37:28

再结合iif函数嘛

Top

小继发表于：2009-11-11 16:58:02

Private Sub Text0_Exit(Cancel As Integer)
Dim i As Integer
Dim strvalue, strtemp As String

For i = 1 To Len(Me!Text0)
    strtemp = Mid(Text0, i, 1)
    If IsNumeric(strtemp) Then
    strvalue = strvalue + strtemp
    End If
Next
Text0.Value = strvalue

End Sub

试试这个

点击下载此附件

Top

andymark 发表于：2009-11-11 17:06:44

自定义FUNCTION

Private Sub Command0_Click()
Debug.Print Str2Nm("虽国防大学2中3d2")
End Sub

Function Str2Nm(Str As String) As String
Dim ILen As Integer
Dim I As Integer
Dim Tem As String
Dim LngAsc As Long
ILen = Len(Str)
Tem = ""
For I = 1 To ILen
   LngAsc = Asc(Mid(Str, I, 1))
   If LngAsc > 47 And LngAsc < 58 Then
      Tem = Tem & Mid(Str, I, 1)
   End If

Next

Str2Nm = Tem

End Function

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

access数据字段过滤文本值