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

【Access示例】批量修改报表的属性

时 间:2016-06-24 08:09:44
作 者:缪炜   ID:24010  城市:江阴
摘 要:批量修改报表的属性
正 文:

昨天在做报表时,从其他地方导入了大量的报表,因为需求的原因,需要修改各个报表的属性,但报表的比较多,一个个修改也太麻烦了,所以简单的写了一个函数,用来批量修改报表属性。

直接复制下面的代码到模块里,把光标放到函数里,直接按F5运行就可以了。

Sub test()
   On Error Resume Next
    Dim obj As AccessObject
    Dim frm As Report
   
For Each obj In CurrentProject.AllReports
    DoCmd.OpenReport obj.Name, acViewDesign
    With Reports(obj.Name)
        .AutoCenter = True   '是否居中改成是
        .PopUp = True        '是否弹出改成是
        .Modal = True        '模式改成是
    End With
    DoCmd.Close acReport, obj.Name, acSaveYes
Next
MsgBox "完成修改。", vbInformation
End Sub

 



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

常见问答:

技术分类:

相关资源:

专栏作家

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