BabyPowder2u
Programmer
I have a pop-up calender triggered by several cbodate fields. One of those fields is checked to verify it has a value. If it doesn't contain a date the backcolor is changed to yellow. This works fine. What I want is for the field to return to original color if a date is entered.
I have tried:
Private Sub cboDtSubmitted_Change()
cboDtSubmitted.BackColor = 16777215
End Sub
'this produced no change
Private Sub ocxCalendar_Updated(Code As Integer)
cboOriginator.BackColor = 16777215
End Sub
' This produced no change
My calendar & cbo routines are:
Private Sub cboDtSubmitted_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cboOriginator = cboDtSubmitted
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboOriginator) Then
ocxCalendar.Value = cboOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub
Private Sub ocxCalendar_Click()
cboOriginator.Value = ocxCalendar.Value
cboOriginator.SetFocus
ocxCalendar.Visible = False
Set cboOriginator = Nothing
End Sub
Any help would be appreciated.
Thanks,
T
I have tried:
Private Sub cboDtSubmitted_Change()
cboDtSubmitted.BackColor = 16777215
End Sub
'this produced no change
Private Sub ocxCalendar_Updated(Code As Integer)
cboOriginator.BackColor = 16777215
End Sub
' This produced no change
My calendar & cbo routines are:
Private Sub cboDtSubmitted_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cboOriginator = cboDtSubmitted
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cboOriginator) Then
ocxCalendar.Value = cboOriginator.Value
Else
ocxCalendar.Value = Date
End If
End Sub
Private Sub ocxCalendar_Click()
cboOriginator.Value = ocxCalendar.Value
cboOriginator.SetFocus
ocxCalendar.Visible = False
Set cboOriginator = Nothing
End Sub
Any help would be appreciated.
Thanks,
T