Office中国论坛/Access中国论坛

标题: 自定义函数提示"缺少变量或过程,不是模块"是为什么? [打印本页]

作者: sblisb 时间: 2013-9-30 14:01
标题: 自定义函数提示"缺少变量或过程,不是模块"是为什么?
找了个四舍五入的函数,在access中插入模块,代码在下面,
怎么在vba引用中提示"缺少变量或过程,不是模块"?[attach]52470[/attach]
Option Compare Database
'解决ACCESS97以下版本不支持Round函数
'解决Round"有名"的四舍六入现象

'参数: Number , 要进入四舍五入的数值
'参数:N,要保留的小数位数,不足时以0补上

'用法:
'Print myRound(1.4367, 2)
'1.44
Function myround(Number As Double, N As Integer) As String
myround = Format(Int(Number * (10 ^ N) + 0.5) / (10 ^ N), "0." & String(N, "0"))
End Function

作者: access学习交流 时间: 2013-9-30 14:26
你改个函数名字重新试一下，有时是有一些莫名的错误！！

作者: sblisb 时间: 2013-9-30 15:18
奇怪了,改名后可以用,但是12.85算出来还是12.8,看来要换个函数了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)