If Forms("窗口1").Opened Then
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
If r("日期") >= Date.Today AndAlso r("日期") < Date.Today.AddDays(1) Then
Forms("窗口1").controls("TextBox1").ForeColor = Color.Red
Forms("窗口1").controls("TextBox2").ForeColor = Color.Red
Forms("窗口1").controls("TextBox3").ForeColor = Color.Red
Else
Forms("窗口1").controls("TextBox1").ForeColor = Color.Black
Forms("窗口1").controls("TextBox2").ForeColor = Color.Black
Forms("窗口1").controls("TextBox3").ForeColor = Color.Black
End If
End If
End If