setting a subforms record source

[napstar]

I have a subform and I would like to set its recordsource based on a combo box selection.how do i do that.

Private Sub Combo2_Change()
Dim CourseName As String
Dim queryStr As String

'set query string
queryStr = "'SELECT * CoursesTable.CourseName FROM CoursesTable WHERE CoursesTable.CourseName = "


Combo2.SetFocus
CourseName = Combo2.Text
queryStr = queryStr & CourseName & "';"





End Sub

[MMcCarthy]

You don't give the subform object name so I am just calling it subform1 for this demonstration. I would use the After Update rather than the on change evert.

Private Sub Combo2_AfterUpdate()
Dim CourseName As String
Dim queryStr As String
 
   'set query string
   queryStr = "'SELECT * CoursesTable.CourseName FROM CoursesTable WHERE CoursesTable.CourseName = '" & Me.Combo2 & "'"
 
   Me!Subform1.Form.RecordSource = queryStr
   Me!Subform1.Requery
 
End Sub