Dependent dropdown and repeat section

NLJ · #1 01-11-2020, 11:52 AM

I have no experience with VBA and really limited experience using content controls. I'm helping to create a report template to use for approximately a year until we get into an electronic system. The goal is to create efficiency and make reports quicker and easier to complete. There are several content controls and one section to allow free text and lists and a dependent relationship between category and sub-category. The entire section should be repeatable as each report will have a varying number of observations to include. I have been able to modify a VBA code from another website which works for one observation, but this won't work for any additional observations whether I copy and paste or use the section repeat content control. I'm not sure if this makes sense, but I'm hoping that someone can help.

Code:

Sub PopulateddCategory()
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ddCategory")
    Set xState = ActiveDocument.FormFields("ddSub")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Business Continuity Disaster Recovery"
                .Add "Adherence"
                .Add "Documentation"
                .Add "Procedure"
            Case "Computerized Systems Management"
                .Add "Adherence"
                .Add "Documentation"
                .Add "Procedure"
                .Add "Validation"
            Case "Contract  Agreement"
                .Add "Adherence"
                .Add "Documentation"
                .Add "Procedure"
            Case "Data Collection and Handling"
                .Add "Adherence"
                .Add "Documentation"
                .Add "Procedure"
                .Add "Source Data Verification"
            Case "Good Documentation Practices"
                .Add "Adherence"
                .Add "Procedure"
            Case "Records Management"
                .Add "Investigator Site File"
                .Add "Procedure"
                .Add "Trial Master File Master File"
            End Select
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Content Controls - Dependent Dropdown	someazguy	Word VBA	14	02-05-2023 08:01 PM
Multiple dependent dropdown lists in table with add new row option	jeweldarby	Word VBA	6	05-21-2022 04:37 PM
Dropdown Menu Dependent on a Previous Drop Down	lgsikaffy	Word VBA	3	12-14-2018 05:14 PM
Dropdown dependent text	JakeLRL	Word VBA	7	04-07-2016 08:26 AM
make text form field active dependent on dropdown	Glenn0004	Word VBA	1	06-23-2015 06:13 PM