Lebans Calendar

[Guest]

I saw a post on here recently and thought I would tryo that calendar and it
works great. The thing I am trying to get around now is being able to drag
across multiple months. When I attempt this is stops at the last day of the
month.

Any suggestions?

 

[Stephen Lebans]

You have to set the MaxSelectRangeofDays property to a value large enought
to allow you to select across mutliple months. In the example below, with
code taken from the Load event of the sample form, I have set it to 120.

Private Sub Form_Load()
' This must appear here!
' Create an instance of our Class
Set mc = New clsMonthCal
' ** YOU MUST SET THE hWndForm Property!
mc.hWndForm = Me.hWnd

mc.MaxSelectRangeofDays = 120
' These TextBoxes are only visible when
' the txtDateLong control has the Focus
Me.TxtDateRangeStart.Visible = False
Me.txtDateRangeEnd.Visible = False

End Sub
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Thanks that worked.

You have to set the MaxSelectRangeofDays property to a value large enought
to allow you to select across mutliple months. In the example below, with
code taken from the Load event of the sample form, I have set it to 120.

Private Sub Form_Load()
' This must appear here!
' Create an instance of our Class
Set mc = New clsMonthCal
' ** YOU MUST SET THE hWndForm Property!
mc.hWndForm = Me.hWnd

mc.MaxSelectRangeofDays = 120
' These TextBoxes are only visible when
' the txtDateLong control has the Focus
Me.TxtDateRangeStart.Visible = False
Me.txtDateRangeEnd.Visible = False

End Sub
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.