|
查询论坛,关键词"引用",并且看了所有的ACCESS新手上路,未发现答案.
问题:
在查询中使用Replace函数,提示"Replace函数未定义"
UPDATE 表 SET 字段=Replace(字段,"-","")
分析:查询其它网上文章,提示是"引用"不正确.
但是在工具中引用下面有几十个库, 我不知道应该引用哪个库.
已经引用了四个库
我的电脑是WINDOW2000 SERVER,VS.NET VB6.0
ADO2.7,ACCESS2000中文
请问:一.Replace这个函数应该引用哪个库
二,我的ACCESS程序,如复制到其它电脑如何解决库引用的问题.
===========================================
自定义函数CheckString,在查询中使用也是提示函数未定义
Function CheckString(a As String) As String
Dim i As Integer
Dim c As Integer
Dim j As String
Dim CheckValue As String
If IsNull(a) Or a = "" Then
Exit Function
End If
For i = 1 To Len(a)
j = Mid(a, i, 1)
c = Asc(j)
If (((c >= Asc("a")) And (c <= Asc("z"))) Or ((c >= Asc("A")) And (c <= Asc("Z"))) Or ((c >= Asc("0")) And (c <= Asc("9")))) Then
CheckValue = CheckValue + j
End If
Next
CheckString = CheckValue
End Function |
|