it highlights .Backcolor
Private Sub Form_Load()
Dim today As Date
today = Now()
If Me.Text41 <= Now() Then
Let Me.LicenseOutOfDate.BackColor = 255
Let Me.LicenseOutOfDate = "Licence Out of Date"
End If
If Me.Text41 > Now() Then
Let Me.LicenseOutOfDate.BackColor = 65280
Let Me.LicenseOutOfDate = "Licence OK"
End If
If Me.Text41 = Now() Then
Let Me.LicenseOutOfDate.BackColor = vbYellow
Let Me.LicenseOutOfDate = "Licence Details Required"
End If
End Sub
Private Sub Form_Load()
Dim today As Date
today = Now()
If Me.Text41 <= Now() Then
Let Me.LicenseOutOfDate.BackColor = 255
Let Me.LicenseOutOfDate = "Licence Out of Date"
End If
If Me.Text41 > Now() Then
Let Me.LicenseOutOfDate.BackColor = 65280
Let Me.LicenseOutOfDate = "Licence OK"
End If
If Me.Text41 = Now() Then
Let Me.LicenseOutOfDate.BackColor = vbYellow
Let Me.LicenseOutOfDate = "Licence Details Required"
End If
End Sub