Custom calendar - select multiple dates

[larek]

This is my first post so hi everyone

I've found popup calendar made by Allen Browne (attached). I want to get only numbers of the selected days (any form of highlight would be very nice) - for example: 1,13,20,21,30
Is there any way to modify that userform to achieved this?
Any help much appreciated

Ps. Sorry fo my english I hope you understand me

[ajetrumpet]

yes you can modify it. but if you're a beginner, that would be tough for you. what are you doing? any other way you can do this stuff? e.g. - get the input you need from your users and do your operations that you need to?

[larek]

I'm not a completely beginner I've got some experience in programming in Excel VBA (I'm using custom calendars in my other Excel projects).
I've started rogramming in Access just few weeks ago.
Of course there is another way to do this but I wanted to try with calendar first.
Any tips where to start?

[ajetrumpet]

so you want to select more than one date, right?

well, the red circle you see is a label control. this:

Private Function ShowHighligher(ctlName As String)
On Error GoTo Err_Handler
    Const lngcVOffset As Long = -83

    With Me(ctlName)
        Me.lblHighlight.Left = .Left 'CHANGES HORIZONTAL POS OF RED CIRCLE
        Me.lblHighlight.Top = .Top + lngcVOffset 'CHANGES VERTICAL POS OF RED CIRCLE
    End With

Exit_Handler:
    Exit Function

Err_Handler:
    Call LogError(Err.Number, Err.Description, conMod & ".ShowHighligher")
    Resume Exit_Handler
End Function

changes it's position based on what day you click. soooooo, you have to make more controls like that if you want more red circles. dynamically creating controls is not easy, nor is it standard. Same concept if you want to highlight the different dates you want. then you need a button that says something like "select dates", I'm sure.

so that's probably where you start if you want to use AB's calendar for multiple dates.

[larek]

dynamically creating controls is not easy

I tried few times - it caused me more truble then benefits so I think I'll pass

I was thinking about changing the BackColor of the selected days. Can you tell me where and how to modify the code?

[ajetrumpet]

if you look at the calendar form, you'll see that every day is a label box. behind day 5, on the CLICK event, it says:

=SetSelected("lblDay05")

so basically all you need to do is change that for each of those boxes. the change would look like:

=SetSelected("lblDay05")

(the same obviously, but the control name you would use again in the proc. and color the back of it). the proc. would change like so:

Private Function SetSelected(ctlName As String)
On Error GoTo Err_Handler

    me(ctlName).backcolor = RGB(255,0,0) 'use whatever color here
    Me.txtDate = DateSerial(Year(txtDate), Month(txtDate), CLng(Me(ctlName).Caption))
    Call ShowHighligher(ctlName) 'this is the red circle.  probably don't need this call now

Exit_Handler:
    Exit Function

Err_Handler:
    Call LogError(Err.Number, Err.Description, conMod & ".SetSelected")
    Resume Exit_Handler
End Function

[larek]

Strange but I can't change the BackColor of the labels
The combination of the SpecialEffect and FontBold will do
Thanks for your patience and help