Call value from previous form field

[adamthepolak]

Hey there, im doing a form for physical assessments and have my first column as body location(A) and the second column(B) are the tests. once a location is selected from a drop down a list of test for that body region show up in the drop down field in the second column.
EX
A1 B1
A2 B2
I want to make it possible so that if formfield A2 is left at the default value formfield B2 loads the list associated with the value of A1. This is kind of what i want but the coding is not right

If formfield(A2).result = "default value" Then


formfield(A2) = formfield(A1).result

[macropod]

Since you're using Office 2013, I'd recommend eschewing formfields and using content controls. With these, some custom Quick Parts (building blocks) and a bit of code, you can have Word conditionally insert the desired dropdowns without having to code for populating them as well. Conditionally inserting & populating dropdown formfields takes a whole lot more work.

[adamthepolak]

so how would one go about doing that? lol

[macropod]

First, you would need to create each of your dependent dropdown content controls, each in its own paragraph. Then you would create a custom Quick Part from each of those paragraphs (see http://office.microsoft.com/en-us/wo...010370568.aspx). Next, you'd delete those from the document and create the dropdown you'll use to choose the various options. Then, insert a continuous Section break immediately before where the dependent dropdown is to be inserted. Finally, you'd add a macro to the document's 'ThisDocument' module, coded along the lines of:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim StrNm As String
With ContentControl
  If .Title <> "Dropdown 1" Then Exit Sub
  Select Case .Range.Text
    Case "Item 1": StrNm = "Fruit"
    Case "Item 2": StrNm = "Game"
    Case Else: StrNm = ""
  End Select
End With
With ActiveDocument.Sections(2).Range.ContentControls(1)
  .LockContentControl = False
  .Delete
End With
If StrNm = "" Then Exit Sub
Application.Templates("C:\Users\" & Environ("UserName") & _
  "\Documents\Misc\Office Config\Word\Normal.dotm"). _
  BuildingBlockEntries(StrNm).Insert RichText:=True, _
  Where:=ActiveDocument.Sections(2).Range.Characters.First
End Sub

where:
• "Dropdown 1" is the title property of the master dropdown
• "Item 1" & "Item 2" are the master dropdown entry names
• "Fruit" & "Game" are the corresponding custom Quick Part names.
• the custom Quick Parts are stored in Word's 'Normal' template.
• the target Section is Section 2.

[adamthepolak]

thanks for the answer, but which part of the code addresses the issue of calling back to the previous value from cell A1 if A2 is blank?

[fumei]

Seems there is confusion between "formfield A2" and CELL A2. You asked about formfields NOT cells.

[adamthepolak]

Originally Posted by fumei

Seems there is confusion between "formfield A2" and CELL A2. You asked about formfields NOT cells.

My bad, yes i ment formfield, sorry im still new to the forums and have to make sure i use the proper wording

[macropod]

As I advised in my previous reply:

insert a continuous Section break immediately before where the dependent dropdown is to be inserted

With the code I posted, the assumption is that there will be a Section break immediately before wherever the dependent content control is to appear. There are other reference points one could use instead of a Section break, such as a table cell address, etc. The Section break is just for demonstration purposes.