设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2212|回复: 13
打印 上一主题 下一主题

[Access本身] 如何代码实现使符合条件的整行数据闪动

[复制链接]
跳转到指定楼层
1#
发表于 2007-8-12 10:05:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何代码实现使符合条件的整行数据闪动
  ----急急急
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2007-8-12 10:13:49 | 只看该作者
你是连续窗体还是数据表, 据我所知,条件格式好像还没有这样的功能,不知有否其它办法
3#
 楼主| 发表于 2007-8-12 10:23:58 | 只看该作者
Private Sub Form_Timer()
   If Me.日期 < Date - 60 Then
   Dim i As Integer
    For i = 0 To 2
     
       If i = 1 Then
      Me.部材编码.ForeColor = 255
      Else
       Me.部材编码.ForeColor = 16512
      
   
      End If
   Next
   
  End If
   
End Sub
麻烦你帮我看看了
我是用连续表的
4#
 楼主| 发表于 2007-8-12 11:01:04 | 只看该作者
tmtony

麻烦你帮我看一下了
5#
发表于 2007-8-12 11:16:18 | 只看该作者
帮你顶一下,,,呵呵。。。。
6#
 楼主| 发表于 2007-8-12 11:20:28 | 只看该作者
谢谢
麻烦大家了

点击这里给我发消息

7#
发表于 2007-8-12 11:20:33 | 只看该作者
应该是实现不到,因为Me.部材编码 永远是取前记录,而不会循环所有记录
如果真正使用movenext来循环所有记录,那屏幕会很闪烁, 应该也不可行
8#
 楼主| 发表于 2007-8-12 12:18:50 | 只看该作者
Private Sub Form_Timer()
  If [日期] < Date - 60 Then
   Dim i As Integer
    For i = 0 To 1
        i = i + 1
      
   Next i
   If [日期] > Date - 10 Then
    Me.部材编码.BackColor = 16711680
      Me.部材名称.BackColor = 16711680
       Me.单位.BackColor = 16711680
       Me.日期.BackColor = 16711680
       Me.定单号.BackColor = 16711680
       Me.货架号.BackColor = 16711680
       Me.库存地点.BackColor = 16711680
       Me.总箱数.BackColor = 16711680
       Me.总数.BackColor = 16711680
    ElseIf [日期] < Date - 1 Then
      Me.部材编码.BackColor = 255
        Me.部材名称.BackColor = 255
        Me.单位.BackColor = 255
         Me.总数.BackColor = 255
          Me.单位.BackColor = 255
       Me.日期.BackColor = 255
       Me.定单号.BackColor = 255
       Me.货架号.BackColor = 255
       Me.库存地点.BackColor = 255
       Me.总箱数.BackColor = 255
        
   'End If
   End If


我是想将背景颜色以两种颜色轮换
9#
 楼主| 发表于 2007-8-12 14:10:16 | 只看该作者
Private Sub Form_Timer()
Dim objFrc As FormatCondition
  
  I = I + 1
  If I > 100 Then I = 1
''A框定义
  If I Mod 2 = 0 Then
    Me.日期.FormatConditions.Delete
    Set objFrc = Me.日期.FormatConditions.Add(acExpression, , Me.日期 < Date - 60)
    With Me![部材编码].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
    With Me![部材名称].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
    With Me![单位].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
     With Me![总数].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
     With Me![定单号].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
     With Me![货架号].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
      With Me![库存地点].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
      With Me![总箱数].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
    With Me![日期].FormatConditions(0)
      .BackColor = vbRed
      .FontBold = True
    End With
  End If
  
  
  If I Mod 2 = 1 Then
    Me.日期.FormatConditions.Delete
    Set objFrc = Me.日期.FormatConditions.Add(acExpression, , Me.日期 < Date - 60)
    With Me![部材编码].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
    With Me![部材名称].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
    With Me![单位].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
    With Me![总数].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
     With Me![定单号].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
     With Me![货架号].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
       With Me![库存地点].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
      With Me![总箱数].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
    With Me![日期].FormatConditions(0)
      .BackColor = vbWhite
      .FontBold = False
    End With
  End If
End Sub
可以实现了
上述代码给大家分享一下

点击这里给我发消息

10#
发表于 2007-8-12 15:14:54 | 只看该作者
好方法, I是窗体局部变量?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-24 16:38 , Processed in 0.097972 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表