Private Sub CommandButtonENGDescriptionNext_Click()
If Me.CheckBoxENGID.Value = True Then
Me.TextBoxDescriptionPageDescription.Value =
Me.TextBoxEngineID.Value
if Me.CheckBoxENGAccessoriesIncluded.Value = True Then
Me.TextBoxDescriptionPageDescription.Value = _
Me.TextBoxDescriptionPageDescription.Value & _
"," & Me.ComboBoxAccessoriesYesNo.Value
End If
Else
if Me.CheckBoxENGAccessoriesIncluded.Value = True Then
Me.TextBoxDescriptionPageDescription.Value = _
Me.ComboBoxAccessoriesYesNo.Value
end if
End if

HTH

Die_Another_Day


Then If Me.CheckBoxENGAccessoriesIncluded.Value = True Then
Append Me.TextBoxDescriptionPageDescription.Value = ", " &
Me.ComboBoxAccessoriesYesNo.Value to the end of the string.
End If
End Sub

ssjody wrote:
Hi,
I have a form that has two text box's. Next to each of these text
box's I have a checkbox. I want to allow the user to put a check next
to the text box's values he wants to include in a thrid textbox on
another form. If there are more than one checkbox checked then I want a
comma between each value. Here is generically what I'm trying to do.

Private Sub CommandButtonENGDescriptionNext_Click()
If Me.CheckBoxENGID.Value = True Then
Me.TextBoxDescriptionPageDescription.Value = Me.TextBoxEngineID.Value
End If
This is where I get stuck. What I want to happen is this:

Then If Me.CheckBoxENGAccessoriesIncluded.Value = True Then
Append Me.TextBoxDescriptionPageDescription.Value = ", " &
Me.ComboBoxAccessoriesYesNo.Value to the end of the string.
End If
End Sub

How do I do this?

Thanks Jody


--
ssjody
------------------------------------------------------------------------
ssjody's Profile: http://www.excelforum.com/member.php...o&userid=33398
View this thread: http://www.excelforum.com/showthread...hreadid=566040