From: deb on
Access 2003

form called fGua has an unbound list box called lstComponent.

When the user selects from the listbox how can I make the form filter by
that selection

Private Sub lstComponent_AfterUpdate()
Select Case lstComponent.Value
Case "CT" 'CT
Me.Filter = "[Component] = [lstComponent].value "
Me.FilterOn = True
Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
Case "ST" 'ST
Me.Filter = "[Component] = [lstComponent].value "
Me.FilterOn = True
Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
End Select
--
deb
From: deb on
figured it out...

Me.Filter = "[Component] = " & """" & Me.lstComponent.Value & """"
--
deb


"deb" wrote:

> Access 2003
>
> form called fGua has an unbound list box called lstComponent.
>
> When the user selects from the listbox how can I make the form filter by
> that selection
>
> Private Sub lstComponent_AfterUpdate()
> Select Case lstComponent.Value
> Case "CT" 'CT
> Me.Filter = "[Component] = [lstComponent].value "
> Me.FilterOn = True
> Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
> Case "ST" 'ST
> Me.Filter = "[Component] = [lstComponent].value "
> Me.FilterOn = True
> Me.Component.DefaultValue = """" & Me.lstComponent.Value & """"
> End Select
> --
> deb