If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
|
#1
|
|||
|
|||
filter form by listbox selection
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 |
#2
|
|||
|
|||
filter form by listbox selection
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 |
Thread Tools | |
Display Modes | |
|
|