I always get a type mismatch error when comparing the current time Now() to a date/time field. I want to have the text box border flash when the current time has passes the "Alarm" time. I can't even get the current time to be copied into a date/time field for testing.
Private Sub test_button_Click()
Let Now() = Me.CDAsAlarm
If Now() > Me.CDAsAlarm Then
.BorderColor = (IIf(.BorderColor = vbBlue, vbRed, vbBlue))