【access自定义函数】根据设置的公式计算得出结果\计算公式自定义

时　间:2012-03-21 15:11:09
作　者:落尘   ID：23308  城市：佳木斯
摘　要:【Access自定义函数】根据设置的公式计算得出结果
正　文:

    由于示例发在了论坛,不便于网友们搜索到,为了方便网友们搜索到示例\文章,整理了一下,供下载参考:

'模块自定义函数 

Public Function 公式计算(字段一, 字段二, 字段三, 公式)
    Dim stemp
    For N = 1 To Len(公式)
        If Mid(公式, N, 1) = "A" Then
            stemp = stemp & 字段一
        ElseIf Mid(公式, N, 1) = "B" Then
            stemp = stemp & 字段二
        ElseIf Mid(公式, N, 1) = "C" Then
            stemp = stemp & 字段三
        Else
            stemp = stemp & Mid(公式, N, 1)
        End If
    Next N
    公式计算 = Eval(stemp)
End Function

附   件:

点击这里下载 

设计视图:

数据表视图: