Initialized Dropdown Not Populating Doc
I have created an input form for a Word 2003 document that contains various dropdowns, option buttons & text boxes. These are in turn used to determine which string various docVariables inserted throughout the document will be assigned for their value.
I initialized the all of these controls so that if the user misses one it won't generate an error in the document.
However, just one of these dropdowns generates an error if I leave it as it is initialized. If I click in the dropdown, even without changing it, it does not generate an error. Can someone help me find my error?
Code:
Private Sub UserForm_Initialize()
'Populate the dropdowns
With Input_Selections
StatusList.AddItem "single"
StatusList.AddItem "widow"
StatusList.AddItem "widower"
NumKidsList.AddItem "zero (0)"
NumKidsList.AddItem "one (1)"
'...
'Set Default for Dropdowns
StatusList.Value = "single"
NumKidsList.Value = "zero (0)"
'...
TrustBox.SetFocus
End With
End Sub
Private Sub SubmitBtn_Click()
'...
Dim StatusStr As String
'...
Dim NumKidsStr As String
Dim NameKidsStr As String
'...
'Populate number of children
'This boolean tests whether children have ever lived to populate a single entry in the doc
OptKidB = False
NumKidsStr = NumKidsList.Value
'ActiveDocument.Variables.Add Name:="NumKidsV", Value:=" "
'ActiveDocument.Variables.Add Name:="KidNamesV", Value:=" "
If NumKidsList.Value = "zero (0)" Then
'No kids so terminate sentence in doc
NameKidsStr = ". "
Else
OptKidB = True
NameKidsStr = "namely, "
Dim TotalKids As Integer
Dim i As Integer
TotalKids = NumKidsList.ListIndex
'Kids names filled in by looping through names & dob array. If end
'of array, period added. If not, semicolon added
For i = 0 To TotalKids
NameKidsStr = NameKidsStr & KidNameArray(i) & ", born " & KidDOBArray(i)
If i = TotalKids Then
NameKidsStr = NameKidsStr & ". "
Else
NameKidsStr = NameKidsStr & "; "
End If
Next i
End If
ActiveDocument.Variables("NumKidsV").Value = NumKidsStr
ActiveDocument.Variables("KidNamesV").Value = NameKidsStr
Re: Initialized Dropdown Not Populating Doc
I'm just checking back in to see if anyone has had a similar issue or knows where my error is.