script error, help

goju

Registered User.
Local time
Today, 14:46
Joined
Apr 7, 2005
Messages
77
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
 
If you comment out all of the statements containing back color , does it then work?
 

Users who are viewing this thread

Back
Top Bottom