unbounded Combo box

[Khalil Handal]

Hi,
When I click the command button, the following VBA code is executed:

DoCmd.OpenForm "frmPersons", acViewNormal, , WhereCondition:="[DateDeparted] IS NULL"

The form has an unbound combo box cboPersonLookUp with a Row Source: qryPerosnsLookUp.


The Combo box is used to search for a certain person. The list shows ALL persons: Who departed and who did not depart.

I need a second command button to open the same form (frmPersons) with the ability that the combo box showing only those persons who departed. i.e. [DateDeparted] IS Not Null?

I can do this by having two queries and two forms. Is there a way to having having these two forms and two queries?

[ssanfu]

You could have one form and two buttons - one button to show not departed and another to show departed.

Consider:

Click a command button, the following VBA code is executed:

DoCmd.OpenForm "frmPersons"

Forms "frmPersons" opens displaying all records.
Click button "Not Departed", sets a filter:

Me.Filter = "[DateDeparted] IS NULL"
Me.FilterOn = TRUE

Or click on button "Departed", sets a filter:

Me.Filter = "[DateDeparted] IS NOT NULL"
Me.FilterOn = TRUE

Third button ("Remove Filter") to remove filter

Me.Filter = ""
Me.FilterOn = FALSE

[Khalil Handal]

Thanks for the reply