Verbos83
09-02-2011, 06:11 AM
First let me say I'm a word noob and I'm probably doing something really dumb here. I'm trying to add conditional drop down lists to a document. To be able to select a car make and then get a list of models. I named the lists MakeDD and ModelDD
Sub Dealerbos()
If ActiveDocument.FormFields("MakeDD").DropDown.Value = 0 Then
ActiveDocument.FormFields("ModelDD").DropDown.ListEntries.Clear
Exit Sub
End If
Select Case ActiveDocument.FormFields("MakeDD").Result
Case "Acura"
With ActiveDocument.FormFields("ModelDD").DropDown.ListEntries
.Clear
.Add "MDX"
.Add "RDX"
.Add "RL"
.Add "TL"
.Add "TSX"
.Add "ZDX"
End With
Code is not mine. Found a guide about doing this and modified the above code. It throws a runtime error 5941 on the first line.
If ActiveDocument.FormFields("MakeDD").DropDown.Value = 0 Then
Like it's not reading the MakeDD drop down box. What's the deal here?
Sub Dealerbos()
If ActiveDocument.FormFields("MakeDD").DropDown.Value = 0 Then
ActiveDocument.FormFields("ModelDD").DropDown.ListEntries.Clear
Exit Sub
End If
Select Case ActiveDocument.FormFields("MakeDD").Result
Case "Acura"
With ActiveDocument.FormFields("ModelDD").DropDown.ListEntries
.Clear
.Add "MDX"
.Add "RDX"
.Add "RL"
.Add "TL"
.Add "TSX"
.Add "ZDX"
End With
Code is not mine. Found a guide about doing this and modified the above code. It throws a runtime error 5941 on the first line.
If ActiveDocument.FormFields("MakeDD").DropDown.Value = 0 Then
Like it's not reading the MakeDD drop down box. What's the deal here?