【Access VBA】フォーム内のラベルを点滅さたい

質問

環境:WindowsXP
Access2003

今日二回目の質問になりますが、よろしくお願いします。

"フォーム_A"内の"ラベル_A"を点滅させたいのですが、どのようにコーディングすればよろしいでしょうか？
点滅開始の条件は、"テーブル_A"にレコードが存在する　です。

自身でもいろいろ検索してみたのですが、
なかなか条件にマッチした作成例にたどり着けずうまく動いてくれません。
よろしくお願いします。

回答No.2

noname#140971 · ベストアンサー

Private Sub Form_Current()
　　If FormRecordCount(Me) > 0 Then
　　　　Me.TimerInterval = 100
　　End If
End Sub

間違い

Private Sub Form_Current()
　　Me.TimerInterval = 100 * ABS(FormRecordCount(Me) > 0)
End Sub

OK!

削除に対応してなかったです。

お礼

早々にお返事いただいたのに、お礼が遅くなりまして申し訳ありませんでした。

現在自宅でAccess2003が使用できる環境ではないので、明日会社で試してみます。

ご回答、本当にありがとうございました。

回答No.1

noname#140971

Form_Timer() を使ったサンプルです。

Option Compare Database
Option Explicit

Const conBLINKCaption = "AAAAAA"

Private Sub Form_Current()
　　If FormRecordCount(Me) > 0 Then
　　　　Me.TimerInterval = 100
　　End If
End Sub

Private Sub Form_Timer()
　　Static I As Integer

　　I = Abs(I - 1)
　　Me.ラベル_A.Caption = IIf(I, conBLINKCaption, "")
End Sub

<標準モジュール>

Public Function FormRecordCount(ByVal frm As Form) As Integer
　　FormRecordCount = frm.RecordsetClone.RecordCount
End Function