求修改代码，让标签闪动

gemeng　发表于：2016-06-14 14:39:28 　

复制

看了我们论坛这个示例：

http://www.accessoft.com/article-show.asp?id=9808

有下面这段代码，想修改一下用于自己做的一个小程序

我现在有表：Record ，字段：LAB

字段中有（1.2.3.4.5.6----至300的数字）

窗体中有标签（Label1、label2、----至label300的标签）

如果Record表中的字段LAB所包含的数字与窗体标签对应时，标签颜色闪动，就像示例中那样！

求如何修改下面的代码实现，我改了好多次都不成功，求老师帮忙

Private Sub Form_Timer()
Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Set cnn = CurrentProject.Connection

    strSQL = "SELECT * FROM [qry4] "
    Set rst = OpenADORecordset(strSQL, , cnn)
    Do Until rst.EOF
      Me.Controls(rst!库位) = rst!库存量
      If Me.Controls(rst!库位).Value <> "" Then
         Me.Controls("label" & rst!库位).BackStyle = 1
         Me.Controls("label" & rst!库位).BackColor = vbRed
         Me.Controls("label" & rst!库位).ForeColor = vbWhite
         Me.TimerInterval = 500
         Me.Controls("label" & rst!库位).Visible = Not Me.Controls("label" & rst!库位).Visible
      End If
      rst.MoveNext
    Loop

rst.Close
End Sub

Top

yuhong 发表于：2016-06-14 16:05:58

传上个例子来看看

Top

gemeng 发表于：2016-06-14 17:00:37

已经改好了，谢谢，O(∩_∩)O~

Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Set cnn = CurrentProject.Connection

    strSQL = "SELECT * FROM [Record] "
    Set rst = OpenADORecordset(strSQL, , cnn)
    Do Until rst.EOF
      If Me.Controls(rst!Lab).Value <> "" Then
         Me.Controls("label" & rst!lab).BackStyle = 1
         Me.Controls("label" & rst!lab).BackColor = vbRed
         Me.Controls("label" & rst!lab).ForeColor = vbWhite
         Me.TimerInterval = 500
         Me.Controls("label" & rst!lab).Visible = Not Me.Controls("label" & rst!lab).Visible
       End If
      rst.MoveNext
      Loop
    rst.Close

End If

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求修改代码，让标签闪动