模块突然就不能被调用了,会是什么原因?

zxzy1981 2003-09-30 09:38:51
定义了个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的内涵数能被调用.
...全文
42 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
changechange 2003-10-02
  • 打赏
  • 举报
回复
如果有丢失,前面会有“丢失”两个字得

zxzy1981 2003-10-01
  • 打赏
  • 举报
回复
我看过了,引用中有四项:
VB for applications
OLE automation
MS Access 9.0 Object Library
MS ActiveX Data Objects 2.1 Library
哪个引用和调用内部函数有关?
changechange 2003-09-30
  • 打赏
  • 举报
回复
vbe界面,菜单 工具 -> 引用,看看有没有丢失

7,712

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧