Forms and Combo Box

[RuralGuy]

In design view go to View>Properties (or press <F4> ) and then the Event tab. Put the cursor in the OnCurrent event and press the "..." button.

 

[RuralGuy]

I implimented what I suggested in post #9 of this thread.

 

[Sed]

OK, I see it, but I'm still lost. This is what I see...
Private Sub Form_Activate()
Me.Refresh
End Sub
Private Sub Form_Current()
Call TestDate

End Sub
Private Sub Lead_Time_AfterUpdate()
Call TestDate
End Sub
Private Sub Order_Date_AfterUpdate()
Call TestDate
End Sub
Private Sub Order_Date_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Calendar9.Visible = True
If Not IsNull(Order_Date) Then
Calendar9.Value = Order_Date.Value
Else
Calendar9.Value = Date
End If
End Sub


And I don't know where to go from there.

Is it possible for me to call you?

 

[Sed]

RuralGuy,

This works beautigul...thanks so much for your help.

 

[RuralGuy]

I enjoyed the challenge.