Blank combo box return all values?

[CRobledo]

Hello, I need some help. I made a form with a combo box that filters a sub form based on the value selected in the conbobox. But I also would like to be able to see them all if I leave it blank.


below is the code I used. can anyone tell me what i need to add or change to be able to see them all?




Private Sub cboScholarshipType_AfterUpdate()
Dim myApplicant As String
myApplicant = "Select * from tbl_Applicants where ([Scholarships] = " & Me.cboScholarshipType & ")"
Me.tbl_Applicants_subform.Form.RecordSource = myApplicant
Me.tbl_Applicants_subform.Form.Requery
End Sub

[CJ_London]

myApplicant = "Select * from tbl_Applicants where [Scholarships] = " & Me.cboScholarshipType & " or " & Me.cboScholarshipType & " is Null"

or you can use

myApplicant = "Select * from tbl_Applicants
if not isnull(Me.cboScholarshipType) then myapplicant=myapplicant & " where [Scholarships] = " & Me.cboScholarshipType

[June7]

Why set RecordSource?

Could set the form Filter and FilterOn properties.

Is the subform linked to mainform data - Master/Child Link properties set?

Review http://allenbrowne.com/ser-62.html