★关于access中调用自定义函数的菜鸟问题

Itachi

我已经定义了一个“xiangsi”模块，里面定义了一个“xiangsi”函数，如下：

Public Function xiangsi(Str1 As String, Str2 As String) As Single
Dim Str1, Str2 As String
Dim i, j, scount As Integer
Dim strcom
  For i = 1 To Len(Str1)
    strcom = Mid(Str1, i, 1)
    If InStr(1, Str2, strcom, 1) Then scount = scount + 1
  Next i
  xiangsi = 100 * scount / Len(Str1)

End Function

现在我想在窗体中调用这个函数，编程如下：

Dim m As Single

m = xiangsi(aa, bb)  '其中，aa，bb是字符串，已定义，且已赋值

然后运行时，程序报错，提示：缺少子程序、函数或属性。

请问，上面程序错在哪里呢？请高手指点指点。不胜感激！

Itachi

Private Sub Command0_Click()
 Dim m As Single
 Dim a, b As String
 a = "123"
 b = "1234"
 m = xiangsi(a, b)
End Sub

xiangsi函数如问题所示定义，现在我只是调用它，系统就会报错。请问一下，access里面要调用自定义函数是不是需要特定的语句的？谢谢！

zhengjialon

模块的名称改一下试试.

Itachi

谢谢！问题解决！

huangqinyong