I have a code question.

I have two tables:

Main jtblAPQP
Sub jtblAPQPLineItems

In the main I have two cascading combo boxes: Section and Subsection. In the sub I have Line Items.

When I choose Section, Subsection populates with only the appropriate subsections. I want to do the same for the line items in the sub so that when a subsection is chosen, ONLY the appropriate line items populate the combo box. This worked PERFECTLY as long as all combo boxes were on the same form. However, they aren't on the same form now and the AFTERUPDATE event of the Subsection cannot find the line item combo box. Follow?

Here's the AfterUpdate code of the Subsection combo box.

Private Sub cboSubsection_AfterUpdate()

Dim sLineItemsSource As String

sLineItemsSource = "SELECT [tlkpLineItems].[lngLineItemsID], " & _
" [tlkpLineItems].[lngSubsectionID], " & _
" [tlkpLineItems].[strLineItem] " & _
" FROM tlkpLineItems " & _
" WHERE [lngSubsectionID] = " & Me.cboSubsection.Value
Me.cboLineItem.RowSource = sLineItemsSource
Me.jtblAPQPLineItems.cboLineItem.Requery

End Sub

Where / How do I tell it to look in the subform for Me.cboLineItem.RowSource?

Try changing this line:

Me.cboLineItem.RowSource = sLineItemsSource

to

Me.jtblAPQPLineItems.Form.cboLineItem.RowSource = sLineItemsSource

HTH

:-( Didn't Work. Neither does:

jtblAPQPLineItems.Form.cboLineItem.RowSource = sLineItemsSource

or

Me.jtblAPQPLineItems.cboLineItem.RowSource = sLineItemsSource

Me.jtblAPQPLineItems.SubFormName.Form.cboLineItem.RowSource = sLineItemsSource

SubFormName=name of your subform
Form = Literal ... leave it as Form -)

Hope this is useful,

Jason

See if this link helps. Good luck.

Try:

Me!jtblAPQPLineItems.Form.cboLineItem.RowSource = sLineItemsSource



Edited by: theDBguy on Thu Oct 18 13:35:32 EDT 2007.

I think after Form you need to have the ! instead of the .

so it should look like:

Me.jtblAPQPLineItems.Form!cboLineItem.RowSource = sLineItemsSource

Sometimes the Me. doesn't always work right however so you might need to change it to:

Forms!YourMainFormName.jtblAPQPLineItems.Form!cboLineItem.RowSource = sLineItemsSource

J

GG,

You probably should have posted this in Access Forms instead of Visual Basic. The code behind your forms, like for this combo box, is actually VBA, Visual Basic for Applications. Hope all is going well

Okay, just got back from lunch. Will try the suggestions and post back!

Yours worked, Jason V. Thank You!!! I have other issues but this particular one is solved. ;-)

Okay, I think I know why I am having a new issue.

Here's the code:

Private Sub cboSubsection_AfterUpdate()

Dim sLineItemsSource As String

sLineItemsSource = "SELECT [tlkpLineItems].[strLineItem], " & _
" [tlkpLineItems].[lngSubsectionID], " & _
" [tlkpLineItems].[lngLineItemsID] " & _
" FROM tlkpLineItems " & _
" WHERE [lngSubsectionID] = " & Me.cboSubsection.Value
Me.fsubPQPLineItemsNew.Form.cboLineItem.RowSource = sLineItemsSource
Me.fsubPQPLineItemsNew.Form.Requery

End Sub

The red code: Is this wanting me to now point BACK to the main form? Same problem in reverse???

YIPPEE! That wasn't it, after all. I had the wrong column bound in the Subsection part. Thanks to EVERYONE!!!! YAY!

Darn. Every little victory met with another stinking error message.

This time it perfectly limited my line items but when I Saved Record, I got this error:

You cannot add or change a record because a related record is required in table tlkpLineItems - Original.

As far as I knew, I wasn't even using this dumb table.

Phooey.

VB does not have subforms. Is this an Access question?

Yes. Sorry. Thought I could post VB questions here as it is VB wtihin Access.

Access uses VBA, I'll move this to an Access Forum.

GG,

Check your relationships. Whatever table you are writing to in thos form, it probably has a relationship with tlkpLineItems with referential integrity enforced.

In all of yout tables, I would check foreign keys. When you create the foreign key field and assign it's type as Number, it automatically sets a default value of 0. Remove the 0's in all of your foreign key fields.

J