Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【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

 

附   件:

点击这里下载 


设计视图:


数据表视图:



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助