统计数据库的代码行数-Natsume Takashi
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


统计数据库的代码行数

发表时间:2018/10/8 12:21:26 评论(0) 浏览(5572)  评论 | 加入收藏 | 复制
   
摘 要:统计数据库的代码行数
正 文:

一、问题描述:

如何统计数据库的代码行数?


二、解答:

需要使用自定义函数 函数如下:


Function StatisticsAccessCodeLines() As Long
    Dim obj As AccessObject
    Dim lngCount(1 To 3) As Long

    For Each obj In CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acDesign, , , , acHidden
        lngCount(1) = lngCount(1) + Forms(obj.Name).Module.CountOfLines
        DoCmd.Close acForm, obj.Name, acSaveNo
    Next
    Debug.Print "所有窗体的代码总行数:" & lngCount(1)
    
    For Each obj In CurrentProject.AllReports
        DoCmd.OpenReport obj.Name, acDesign, , , , acHidden
        lngCount(2) = lngCount(2) + Reports(obj.Name).Module.CountOfLines
        DoCmd.Close acReport, obj.Name, acSaveNo
    Next
    Debug.Print "所有报表的代码总行数:" & lngCount(2)
    
    For Each obj In CurrentProject.AllModules
        DoCmd.OpenModule obj.Name
        lngCount(3) = lngCount(3) + Modules(obj.Name).CountOfLines
    Next
    Debug.Print "所有模拟的代码总行数:" & lngCount(3)
    
    Debug.Print "整个项目的代码总行数(窗体+报表+模块):" & lngCount(1) + lngCount(2) + lngCount(3)
End Function



使用示例:

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
QQ临时会话代码  【麥田  2018/7/28】
【Access示例】利用vba代码生成99乘法表  【Tom and Jerry  2018/8/6】
Access如何关闭正在打开的查询,关闭查询的命令代码是什么?  【麥田  2018/8/10】
删除了窗体对应的代码模块没有删除  【伊西军  2018/8/21】
Access快速开发平台--保存时刷新代码引起的系统假死、未响应  【易勋  2018/9/27】
常见问答
技术分类
相关资源
文章搜索
关于作者

Natsume Takashi

文章分类

文章存档

友情链接