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

[access报表]ACCESS2003报表隔行变色功能

来源:http://office.microsoft.com/zh-cn/access-help/HA001219146.aspx#BMcreatingthecode  点击数:15313  　 | 收藏 | 复制

时　间:2012-07-04 08:28:51
作　者:宏鹏   ID：21115  城市：上海
摘　要:适用于ACCESS2003版本，ACCESS2007和ACCESS2010可以通过设置主体“背景色”和“备用背景色”属性实现以上功能。
正　文:

ACCESS2003报表实现隔行变色功能，代码如下:

Private shadeNextRow As Boolean
' Const shadedColor = 12632256
' Const shadedColor = 15726583
' Const shadedColor = 14078404
' Const shadedColor = 13356495
Const shadedColor = 65535         '替代阴影的颜色
'Const normalColor = 16777215
Const normalColor = 16776960

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    On Error GoTo 主体_Format_Error
    If shadeNextRow = True Then
        Me.Section(acDetail).BackColor = shadedColor
    Else
        Me.Section(acDetail).BackColor = normalColor
    End If
    ' 下一行颜色和当前行颜色不同
    shadeNextRow = Not shadeNextRow
主体_Format_Exit:
    Exit Sub
主体_Format_Error:
    MsgBox "Error " & Err.Number & ": " & Err.Description
    Resume 主体_Format_Exit
End Sub

效果如下图所示:

请按通常方式设计和创建报表：选择记录源，并在合适的报表节中添加控件和字段。然后在报表的主体节的 Format 事件中输入一些 VBA 代码。该代码会像切换开关一样自动将主体节的背景色在默认颜色和其他颜色之间切换。

附件:

点击下载此附件



Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店
【打印此文】【关闭窗口】

常见问答:

技术分类:

相关资源:

源码示例

学习心得

最新文章

专栏作家

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