Linking Date Picker to a Calendar Table

macropod · #1 11-22-2013, 12:13 AM

Hi Vamosj,

It's not apparent to me what relationship the two content controls have to the calendar that is to be displayed. Should it, for example, display whole months? What happens if the start & end dates are not in the same month? Why do you have a formfield (which should be used in the same document as content controls) in the table?

Vamosj · #2 11-22-2013, 10:59 AM

Quote:

Originally Posted by macropod

Hi Vamosj,

It's not apparent to me what relationship the two content controls have to the calendar that is to be displayed. Should it, for example, display whole months? What happens if the start & end dates are not in the same month? Why do you have a formfield (which should be used in the same document as content controls) in the table?

Hi Macro and thanks for the reply.

First off I linked the cross post in Excel Forum (forgot about that part), secondly, The correlation will be that the month will only be linked to the first date picked, so basically the starting month. This will give the office that handles the work assist requests time to deal with the immediate needs and then they can generate another sheet for any work that may lead into the next month.

We do this because the reports they send out are monthly. The form I'm creating is basically the one the requester would use to let us know how long they want it for, then we just adjust the form(s) to meet our reporting requirements.

So, if someone was to pick December 5th as the first part of the request date, then the Calendar would display "December 2013" and the calendar dates would adjust as needed to that month.

If it is not possible (I'm trying to stay away from Macro's) to obtain data between tables, then I would like to just create a dropdown menu in the calendar table with the months so the calendar can just adjust itself off of that.

I downloaded a single month calendar to try and review the coding used for that (see code below) and I just couldn't figure out how to adjust it to meet my needs.

Listed in Cell A3 of the calendar table

Code:

{IF{ DocVariable MonthStart\@ dddd}="Sunday" 1 ""}

The problem I'm having is trying to pull the data for what Month it is from the date picker (Top of sheet) or a dropdown menu & text form box (In the Calendar Table)

macropod · #3 11-22-2013, 06:44 PM

Quote:

Originally Posted by Vamosj

The correlation will be that the month will only be linked to the first date picked, so basically the starting month. This will give the office that handles the work assist requests time to deal with the immediate needs and then they can generate another sheet for any work that may lead into the next month.
...
So, if someone was to pick December 5th as the first part of the request date, then the Calendar would display "December 2013" and the calendar dates would adjust as needed to that month.

If it is not possible (I'm trying to stay away from Macro's) to obtain data between tables, then I would like to just create a dropdown menu in the calendar table with the months so the calendar can just adjust itself off of that.

Using content controls, you'll not be able to populate the table without a macro. Without content controls, you don't have access to a calendar content control...

A ContentControlOnExit macro to populate the calendar table from the first of your two calendar content controls (note the allocation of the "StartDate" title) is:

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim CCtrlDate As Date, i As Long, j As Long, k As Long, Rng As Range
If ContentControl.Title = "StartDate" Then
  CCtrlDate = CDate(ContentControl.Range.Text)
  i = CLng(CCtrlDate) - Format(CCtrlDate, "d") + 1
  j = DateDiff("d", CCtrlDate, DateAdd("m", 1, CCtrlDate))
  With ActiveDocument.Tables(2)
    Set Rng = .Range
    With Rng
      .Start = .Cells(9).Range.Start
      .Delete
    End With
    With .Range
      .Cells(1).Range.Text = "MONTH OF: " & Format(CCtrlDate, "MMMM, YYYY")
      For i = (i - 1) Mod 7 + 9 To .Cells.Count
        k = k + 1
        .Cells(i).Range.Text = k
        If k = j Then Exit For
      Next
    End With
  End With
End If
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

I still don't see where your second calendar content control comes into play. I'm not even sure whether you want the month populated from day one, or just from the date selected in the first calendar content control.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Calculating age of something from a Date Picker	BoringDavid	Word VBA	12	01-13-2014 02:40 AM
Default dates for a Date Picker	BoringDavid	Word VBA	2	09-11-2013 01:42 AM
Date Picker	Andy2011	Word VBA	4	11-24-2012 10:07 PM
word 2003 date picker	nashville	Word	16	04-06-2012 04:12 AM
Date picker	trintukaz	Excel	0	12-30-2011 12:42 AM