Now that is really easy to do. You must first make sure that "title" is in a column in the combo box. It does not have to be visible ( column width of 0").

Add this to text box's control source:

Notes: You will need to change the number for the column index from 2 to the actual column number.number. The column index is also zero based. This means the first column is index 0, then second column is index 1, etc.

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Hello HiTechCoach,
I still have not succeed on this one. Do you have any suggestion?

Thank you so much,
Cindy

Hello HiTechCoach,

Sorry, I didn't see your last email. After saw your last email, and I tried your suggestion, but I got this error message when I selected the item for SubObject Combo box: “The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.”
Format for SubObject Combo box:
Column count: 2;
Column widths:0.4”;0”;
Bound column: 2.

And also, for text box Title, I put Control source=SubObject.Column(2), but it seems like nothing shows up in Title.

Thank you very much,
Cindy

The index value for a combo box is zero based. This means the first column has an index value of 0 not 1. So the second column's index value is 1 not 2.

Try this in the control source of a text box:

=SubObject.Column(1)

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Thanks, HiTechCoach! Title shows up is correct:-)!
But, just sometime, it still gives me “The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.”

Thank you very much,
Cindy

Do you have VBA code someplace that is trying to assign data to a control?

Are you running an Append query someplace?

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Hello HiTechCoach,

I don't use append query for this project, but I do use passing 2 values from Form to Form.
***
Private Sub ComOpenSelect_Click()
On Error GoTo Err_ComOpenSelect_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FRM_EditProjects"
stLinkCriteria = "[IndexCode]= " & Chr(34) & Me![IndexCode] & Chr(34)
stLinkCriteria = stLinkCriteria & " and [ProjectName]=" & Chr(34) & Me.[ProjectName] & Chr(34)

DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ComOpenSelect_Click:
Exit Sub

Err_ComOpenSelect_Click:
MsgBox Err.Description
Resume Exit_ComOpenSelect_Click

End Sub

Thanks,
Cindy

Hello HiTechCoach,
I forgot to tell you this:

when I added record in the subform, the first row seems okay, no error message shows up. when I added data in secord row, the error started showing up.

Thanks,
Cindy