Calendar for Year Month only

[Guest]

Hi All

Has anyone ever seen a "year /month only" type calendar (active X or the like)

ie.
Select Year
Select Month

I'm in the process of constructing one for a client and would be interested
in looking at some ideas (layout, graphics, coding, etc) to see how it's been
done previously. I already have the codes to put the year/month in place and
have one that (sort of) works - but .....have looked (googled) around and not
seen anything remotely like what I'm making so I thought it may be worth
asking in anyone knows of a sample that I could look at.


It has something to do with displaying the photos of the directors and how
wonderful they are (or were) in a given month and the sales figures for that
month- MMmmmm - don't ask. It's "highly" unlikely that one of these will have
been made before but any ideas would really helpful.

Cheers and thanks

 

[Pieter Wijnen]

No need for a Calendar Control

One simple way of doing it:

Two Combo's on a (modal) Form + A Global Variable

cboYear: Value List: "2005", "2006" etc (Can be Programmed)
cboMonth Value List: "January", "February" ...

In a Module:
Dim DateGlobal As Date


In The Form Open Event

Private Sub Form_Open(Cancel As Integer)
Dim i As Long
Dim C As ComboBox
Dim s As String
For i = 2000 To 2020
If Len(S) Then
S= S & "," & "'" & i & "'"
Else
S= "'" & i & "'"
End If
Next
Me.CboYear.Value = Cstr(Year(Date()))
Me.cboMonth.Value = CStr(Month(Date()))
cboYear_AfterUpdate
End Sub

Sub cboYear_AfterUpdate()
DateGlobal=DateSerial(cboYear,cboMonth,1)
End Sub

Sub cboMonth_AfterUpdate()
cboYear_AfterUpdate
End Sub


There are several other & more ellegant ways offcourse

Pieter

 

[Guest]

HI Pieter

I already have basic calendar made but was looking to see if anyone else has
made one - would be interested in seeing the layout more than anything.

As they will never look at this forum - the basic idea is that when you
OnClick the control the directors picture will appear with a small speach
clip saying how well the respective dept did that month. What I looking for
is a layout of the calendar to "click" (the one I have made looks a bit - MS
basic ?? - to grey and boring)

 

[Pieter Wijnen]

A simple trick would be to be to use labels for the months & set them to
sunken On_click()

Pieter

 

[Guest]

Brilliant – you’re a genius

I never thought of that

Just tried your suggestion (with a slight variation in the back colour as
well) and it’s exactly what I was looking for.

Many thanks