PDA

View Full Version : DTPicker exclude all Days exept Monday from the List


Uelidetumm
03-12-2015, 03:23 AM
Hi there

I have a Little Problem with my DTPicker in Word. I want my customers to choose any Date between the actual week and the end of 2018. The Problem is, I just want to make the Mondays as available options. Is there a possibility to do this? I would like to keep the calendar with only the Mondays as clickable Items.

Thanks for your help.

Ueli
gmayor
03-12-2015, 03:59 AM
If this is a userform DTPicker, then be aware that in recent operating systems, this may not be available by default. I would suggest that you use instead a vba date picker. I particularly like a version by Trevor Eyre which you can get from - http://bit.ly/1ossyMA. It will work in Word or Excel. To call it from Word, use



Function BasicCalendar(StartDate As Date) As String
Dim ofrm As New frmDatePicker
BasicCalendar = ofrm.GetDate( _
SelectedDate:=StartDate, _
TodayFontColor:=RGB(255, 0, 0))
lbl_Exit:
Set ofrm = Nothing
Exit Function
End Function

Locate the following section which has a raft of code like - Private Sub bgDate11_Click(): ClickControl lblDate12: End Sub
Select that section and replace it with the following. It will allow users then to only select Mondays.



'User clicked on the background of the date label
Private Sub bgDate11_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate12_Click(): ClickControl lblDate12: End Sub
Private Sub bgDate13_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate14_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate15_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate16_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate17_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate21_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate22_Click(): ClickControl lblDate22: End Sub
Private Sub bgDate23_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate24_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate25_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate26_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate27_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate31_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate32_Click(): ClickControl lblDate32: End Sub
Private Sub bgDate33_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate34_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate35_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate36_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate37_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate41_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate42_Click(): ClickControl lblDate42: End Sub
Private Sub bgDate43_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate44_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate45_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate46_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate47_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate51_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate52_Click(): ClickControl lblDate52: End Sub
Private Sub bgDate53_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate54_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate55_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate56_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate57_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate61_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate62_Click(): ClickControl lblDate62: End Sub
Private Sub bgDate63_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate64_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate65_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate66_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub bgDate67_Click(): MsgBox "You may only select Mondays": End Sub
'User clicked on the actual date label itself
Private Sub lblDate11_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate12_Click(): ClickControl lblDate12: End Sub
Private Sub lblDate13_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate14_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate15_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate16_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate17_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate21_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate22_Click(): ClickControl lblDate22: End Sub
Private Sub lblDate23_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate24_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate25_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate26_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate27_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate31_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate32_Click(): ClickControl lblDate32: End Sub
Private Sub lblDate33_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate34_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate35_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate36_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate37_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate41_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate42_Click(): ClickControl lblDate42: End Sub
Private Sub lblDate43_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate44_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate45_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate46_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate47_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate51_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate52_Click(): ClickControl lblDate52: End Sub
Private Sub lblDate53_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate54_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate55_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate56_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate57_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate61_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate62_Click(): ClickControl lblDate62: End Sub
Private Sub lblDate63_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate64_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate65_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate66_Click(): MsgBox "You may only select Mondays": End Sub
Private Sub lblDate67_Click(): MsgBox "You may only select Mondays": End Sub