Filter values of a Listbox

[NewtoAccess]

Access 2000, regarding forms.

I want a command BUTTON labeled "server" on a MAINFORM that:
> Opens up a INVENTORY form-which contains a list box- and
> Filter the values in the LIST BOX (for ex. shows only a list of server pcs and not entire inventory)

Once working I would add other buttons on MAINFORM which would open up INVENTORY form and filter based on other values.

Is this possible? let me know, Thanks

[abolos]

Access 2000, regarding forms.

I want a command BUTTON labeled "server" on a MAINFORM that:
> Opens up a INVENTORY form-which contains a list box- and
> Filter the values in the LIST BOX (for ex. shows only a list of server pcs and not entire inventory)

Once working I would add other buttons on MAINFORM which would open up INVENTORY form and filter based on other values.

Is this possible? let me know, Thanks

You may use:
SELECT [tblNameAge].[stname] FROM tblNameAge WHERE stAge=18;

[NewtoAccess]

You may use:
SELECT [tblNameAge].[stname] FROM tblNameAge WHERE stAge=18;

Not sure where I should put that code. Here is what I have, Not using a listbox:
Private Sub SwitchorRaritan_Click()
On Error GoTo Err_SwitchorRaritan_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "deviceselectionZ"

stLinkCriteria = [Category]='switch'or [Category]='raritan' "
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_SwitchorRaritan_Click:
Exit Sub

Err_SwitchorRaritan_Click:
MsgBox Err.Description
Resume Exit_SwitchorRaritan_Click

End Sub

[abolos]

Not sure where I should put that code. Here is what I have, Not using a listbox:
Private Sub SwitchorRaritan_Click()
On Error GoTo Err_SwitchorRaritan_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "deviceselectionZ"

stLinkCriteria = [Category]='switch'or [Category]='raritan' "
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_SwitchorRaritan_Click:
Exit Sub

Err_SwitchorRaritan_Click:
MsgBox Err.Description
Resume Exit_SwitchorRaritan_Click

End Sub

You have to put it in a query in the SQL view.