模块突然就不能被调用了,会是什么原因?
定义了个function模块,如下:
Public Function blmforlen(blm1 As String) As String
Dim blmnospace As String
Dim len1 As Integer
blmnospace = Trim(blm1)
len1 = Len(blmnospace)
Select Case len1
Case 14
blmforlen = Mid(blm1, 1, 11)
Case 13
blmforlen = Mid(blm1, 1, 10)
Case 12
blmforlen = Mid(blm1, 1, 9)
Case 11
blmforlen = Mid(blm1, 1, 8)
Case 10
blmforlen = Mid(blm1, 1, 7)
Case Else
blmforlen = Null
End Select
End Function
想在报表中的文本框调用,将其控件来源设为 = blmforlen([alltagname])
之前还可以调用,昨天拿去现场考了一份到公共机上调试,就不行了,调不了模块,
自己机子上的也调不了,也没做什么改动,就是把数据库复制了几份作为备份,这难道有影响?请大家帮忙分析一下!急啊!
p。s:access的内涵数能被调用.