T
Travis G.
Very little knowledge of how to do this, but I've been learning. I'm creating
a form that works for 25 forms. If user selects form 101 from a list, they
only see the droplist they would need. I found a code that works in a similar
manor, just not exactly. It was writen to say, if i select "A", I only see
subcatagory "1" &"2". If I select "B", I only see "2" & "3". I need one to
Select "101" and see the five different list associated with that. Select
"102", see the five list associated with that and so on...... Please help, I
know there are plenty of smart people out there who can do this in thier
sleep.
Sub PopulateSubCat()
Dim oFld As FormFields
Set oFld = ActiveDocument.FormFields
Select Case oFld("form").Result
Case Is = "test1"
With oFld("number").DropDown
..ListEntries.Clear
..ListEntries.Add "101"
..ListEntries.Add "102"
..Value = 1
End With
Case Is = "test2"
With oFld("number").DropDown
..ListEntries.Clear
..ListEntries.Add "103"
..Value = 1
End With
End Select
End Sub
a form that works for 25 forms. If user selects form 101 from a list, they
only see the droplist they would need. I found a code that works in a similar
manor, just not exactly. It was writen to say, if i select "A", I only see
subcatagory "1" &"2". If I select "B", I only see "2" & "3". I need one to
Select "101" and see the five different list associated with that. Select
"102", see the five list associated with that and so on...... Please help, I
know there are plenty of smart people out there who can do this in thier
sleep.
Sub PopulateSubCat()
Dim oFld As FormFields
Set oFld = ActiveDocument.FormFields
Select Case oFld("form").Result
Case Is = "test1"
With oFld("number").DropDown
..ListEntries.Clear
..ListEntries.Add "101"
..ListEntries.Add "102"
..Value = 1
End With
Case Is = "test2"
With oFld("number").DropDown
..ListEntries.Clear
..ListEntries.Add "103"
..Value = 1
End With
End Select
End Sub