H
hansjhamm
I have a headscratcher...
I have used the "how to add a pop up calendar" from MS...and for two of
the calendars it works perfectly.
Then I added a third calendar and it returns the serial date and not
Gregorian...
This is the code that I used to open the calendar and insert that value
into a text box...
Anyone have a clue why this all of a sudden happened?
Private Sub Calendar3_Click()
' Set BackgroundStart to the selected date and hide the calendar.
BackgroundStart.Value = Calendar3.Value
BackgroundStart.SetFocus
Calendar3.Visible = False
End Sub
Private Sub BackgroundStart_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
' Show Calendar and set its date.
Calendar3.Visible = True
Calendar3.SetFocus
' Set to today if Background has no value.
Calendar3.Value = IIf(IsNull(BackgroundStart), Date,
BackgroundStart.Value)
End Sub
Thanks!!!
Hans
I have used the "how to add a pop up calendar" from MS...and for two of
the calendars it works perfectly.
Then I added a third calendar and it returns the serial date and not
Gregorian...
This is the code that I used to open the calendar and insert that value
into a text box...
Anyone have a clue why this all of a sudden happened?
Private Sub Calendar3_Click()
' Set BackgroundStart to the selected date and hide the calendar.
BackgroundStart.Value = Calendar3.Value
BackgroundStart.SetFocus
Calendar3.Visible = False
End Sub
Private Sub BackgroundStart_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
' Show Calendar and set its date.
Calendar3.Visible = True
Calendar3.SetFocus
' Set to today if Background has no value.
Calendar3.Value = IIf(IsNull(BackgroundStart), Date,
BackgroundStart.Value)
End Sub
Thanks!!!
Hans