ActiveX Control Calendar

[Guest]

Hello,

I have the ActiveX Control Calendar object on one of my forms. How do I
program the form/calendar such that double-clicking a date from this calendar
object will populate a start date text box and then double-clicking a second
date will populate a finish date text box?

Thanks to anyone with a response,

 

[jorgedec]

Hello,

I have the ActiveX Control Calendar object on one of my forms. How do I
program the form/calendar such that double-clicking a date from this calendar
object will populate a start date text box and then double-clicking a second
date will populate a finish date text box?

Thanks to anyone with a response,

I'm just a casual user but this should work for you:

Option Compare Database
Option Explicit

' Form module variable
Private flag As Boolean

Private Sub Form_Load()
' Initialize flag
flag = True
End Sub

Private Sub cal_DblClick()
' Toggle flag on double click
If (flag) Then
Me.start = CDate(cal.Month & "-" & cal.Day & "-" & cal.Year)
flag = False
Else
Me.end = CDate(cal.Month & "-" & cal.Day & "-" & cal.Year)
flag = True
End If

End Sub

 

[i_takeuti]

Hello,

I have the ActiveX Control Calendar object on one of my forms. How do I
program the form/calendar such that double-clicking a date from this
calendar
object will populate a start date text box and then double-clicking a
second
date will populate a finish date text box?

Thanks to anyone with a response,