Solved Cascading Combo Box in nested subforms (1 Viewer)

[Michael Barkemeyer]

Hi,
I have received some good help in the past from various people on a project I am working on. Unfortunately I am stuck again with the following:

I have several combo boxes embedded in subforms within a navigation form. I know the syntax changes between a standalone form and one embedded as a subform in a Navigation form but I can't seem to get it right.

Using the Navigation form: "Report Center", I want the user to select the "Filter By" combo box and then only be shown the contacts that meet that criteria in the "cboFilteredContact" combo box.

Thank you for your assistance.

 

[MajP]

Private Sub cboContact_Enter()
  If Not IsNull(Me.cboContactType) Then
    strSQL = "SELECT ID, [File As] FROM qryContactsExtended where Role = " & Me.cboContactType
    Me.cboContact.RowSource = strSQL
  End If
End Sub

 

[theDBguy]

Hi. See if this does what you want...

PS. I would actually prefer MajP's approach, but I kept with yours in this one...

 

[Michael Barkemeyer]

Private Sub cboContact_Enter()
  If Not IsNull(Me.cboContactType) Then
    strSQL = "SELECT ID, [File As] FROM qryContactsExtended where Role = " & Me.cboContactType
    Me.cboContact.RowSource = strSQL
  End If
End Sub

Thank you!

 

[Michael Barkemeyer]

Hi. See if this does what you want...

PS. I would actually prefer MajP's approach, but I kept with yours in this one...

Thank You

 

[theDBguy]

Thank You

Hi Michael. You're welcome. MajP and I were happy to assist. Good luck with your project.