Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームのタイマーイベント / 2

8 コメント
views
4 フォロー
2
すー 2022/01/28 (金) 17:18:25 cd14b@b9210

hirotonさま　返信ありがとうございます。
サブフォームのモジュールに

Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = 1000

End Sub

Private Sub Form_Timer()
    
    If Me!納期 < Date Then

            If Me!納期.ForeColor = RED Then
                Me!納期.ForeColor = DARKYELLOW
            Else
                Me!納期.ForeColor = RED
            End If
    End If

End Sub

と記述しましたが、サブフォームの1件目の納期を参照しているようで
全ての納期のコントロールが同じ動きをしてしまいます。
どのように記述すればよいのでしょうか？

通報 ...