date picker in dropdown list

chriscla · #1 08-10-2020, 01:17 PM

Hi

I'm trying to have a date picker as one of the choices in a dropdown list, but since the items to choose from are only text, I'm stuck.
The situation is as follows:
I have a dropdown list with two choices: the check of the installation is done ('doorlopen' in the code below) or not done. When the check is not done, there is text: 'not done'. But when the check has been done, I would like to have again two choices: date unknown or date of check. This date of check should be entered by a date picker.

Is this possible or am I wishing for the impossible?

The code I'm using now is (thanks to GMayor):

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Dim i As Long
  Dim oCC As ContentControl
      With ContentControl
          Select Case .Title
              Case Is = "doorlopenJN"
                  If .ShowingPlaceholderText = True Then
                      Set oCC = ActiveDocument.SelectContentControlsByTitle("doorlopenTekst").Item(1)
                      oCC.LockContentControl = True
                      oCC.Range.Text = ""
                  Else
                      For i = 1 To .DropdownListEntries.Count
                          If .DropdownListEntries(i).Text = .Range.Text Then
                              Select Case .DropdownListEntries(i).Text
                                  Case "doorlopen"
                                      AutoTextToCC "doorlopenTekst", ActiveDocument.AttachedTemplate, "DoorlopenJa"
                              End Select
                              Exit For
                          End If
                      Next
                  End If

        End Select
    End With
End Sub

(This is with an autotext to be inserted after the choice in the first combobox), maybe this would work also but I can't figure out how.

Thanks for any help.
Chris

gmaxey · #2 08-10-2020, 02:59 PM

It isn't going to work. You can't have a datepicker or an autotext entry as the a choice is a dropdownlist.

Guessed · #3 08-10-2020, 04:57 PM

What if the 'dropdown list' was actually an Building Block Gallery Content Control?

All the text and date picker CC options would need to be saved as building blocks.

chriscla · #4 08-11-2020, 11:31 AM

Thanks for the input. I solved it as Guessed suggested by using building blocks as a reply to the choice made in the dropdown list, where:
- when the check has been done: 'check done' in dropdown and date picker in building block 'DoorlopenJa'
- when the check has been done without knowing the date: 'check done, but date unknown' in dropdown, '. ' in building block 'DoorlopenNee'. I could do this because the dropdown is at the end of a sentence.
- when the check has not been done: 'check not done' in dropdown, '. ' in building block 'DoorlopenNee'.

This may not be the most attractive way to do it, but it does the job.

Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long
Dim oCC As ContentControl
    With ContentControl
        Select Case .Title
Case Is = "doorlopenJN"
                If .ShowingPlaceholderText = True Then
                    Set oCC = ActiveDocument.SelectContentControlsByTitle("doorlopenTekst").Item(1)
                    oCC.LockContentControl = True
                    oCC.Range.Text = ""
                Else
                    For i = 1 To .DropdownListEntries.Count
                        If .DropdownListEntries(i).Text = .Range.Text Then
                            Select Case .DropdownListEntries(i).Text
                                Case "doorlopen "
                                    AutoTextToCC "doorlopenTekst", ActiveDocument.AttachedTemplate, "DoorlopenJa"
                                Case "doorlopen, datum niet gekend"
                                    AutoTextToCC "doorlopenTekst", ActiveDocument.AttachedTemplate, "DoorlopenNee"
                                Case "niet doorlopen"
                                    AutoTextToCC "doorlopenTekst", ActiveDocument.AttachedTemplate, "DoorlopenNee"
                            End Select
                            Exit For
                        End If
                    Next
                End If
        End Select
    End With
End Sub

Thanks again to Guessed and gmaxey to point me in the right direction.

macropod · #5 08-11-2020, 04:52 PM

You could, of course, use something like:

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
With CCtrl
  If .Title = "Dropdown1" Then
    If .Range.Text = "Date" Then
      .Type = wdContentControlDate
      .Range.Text = ""
      .Range.Select
    ElseIf .Range.Text = .PlaceholderText Then
      .Type = wdContentControlDropdownList
      .Range.Select
    End If
  End If
End With
End Sub

and have 'Date' as one of the dropdown choices.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Selecting a Date in Date Picker and Having it change dates throughout	joshuaran	Word VBA	2	03-14-2018 09:24 PM
Date picker content control to always show current date.	lucky16	Word VBA	2	07-01-2016 01:14 PM
dropdown lists and date picker added to word doc.	greg__reynolds	Word	3	05-19-2014 12:19 AM
Possible to link a date picker to another date picker?	tubbz	Word	0	05-07-2014 01:23 PM
Date picker	trintukaz	Excel	0	12-30-2011 12:42 AM