visible data

[Stephanie]

I have a combo box and three unbound date fields. When a selection is made
in the combo box, the fields become bound to the field identified in the
combo box. My problem is that all is fine until I leave the record then
return. The combo selection is still there, but the dates entered are not.
They are in the tables, but don't show up on the form unless I reselect the
selection in the combo box, but when I go to enter a new entry, the dates go
away again.

In the table associated with this subform are the fields Start_Edit, ect.
but on the form are just received, start, complete. The code works, just
that when I go to the form, the dates don't show up unless I click on the
combo box selection. When I go to the next item, the dates go away.

This is the VB code I have for the combo box:
Private Sub Action_AfterUpdate()

If Me.Action = "Initial Edit" Then
Me.Start.ControlSource = "Start_Edit"
End If

If Me.Action = "Initial Edit" Then
Me.Complete.ControlSource = "Complete_Edit"
End If

If Me.Action = "Internal Review" Then
Me.Start.ControlSource = "To_Int_Review"
End If

If Me.Action = "Internal Review" Then
Me.Complete.ControlSource = "Recvd_Frm_Int_Rev"
End If

If Me.Action = "ESC" Then
Me.Start.ControlSource = "To_ESC"
End If

If Me.Action = "ESC" Then
Me.Complete.ControlSource = "Recvd_Frm_ ESC"
End If

If Me.Action = "Redlines" Then
Me.Received.ControlSource = "Redline_Recvd"
End If

If Me.Action = "Redlines" Then
Me.Start.ControlSource = "Redline_Start"
End If

If Me.Action = "Redlines" Then
Me.Complete.ControlSource = "Redline_Completed"
End If

End Sub


Help!!!!