Access 自定义函数 替换+文本转换成算式类似Substitute+Evaluate？

Question

帮用VBA写个Access自定义函数。要求是，将逗号（包括半角和全角）替换成加号+，然后将替换后的文本变成算术式并计算出来。
类似于Excel里的Substitute 把逗号替换成加号后，再用Evaluate将已经替换成+的内容变成算式并计算出来。
实际应用是某字段内容是"100*100,200*200",需要再另一字段计算出100*100+200*200=50000的结果。

Answer 1

一、自定义函数代码

Public Function SubEval(NumString As String)

SubEval = Eval(Replace(NumString, ",", "+"))

End Function

二、使用示例

文本框Text0中的值为1,2,3。要求按下按钮CommandA后，文本框Text1中的值更新为将Text0中的“,”替换为“+”并计算出所有数字之和。

Private Sub CommandA_Click()

Me.Text1 = SubEval(Me.Text0)

End Sub

文本框Text0中的值为NULL。要求按下按钮CommandA后，文本框Text0中的值更新为将“1,2,3”中的“,”替换为“+”并计算出所有数字之和。

Private Sub CommandA_Click()

Me.Text0 = SubEval("1,2,3")

End Sub