Advertisement
- Home
- Microsoft
- Development
- MS Access
- Access Forms
- Filter ListBox on Form from a bazillion Text/Combo boxes
Advertisement
- 1. capricorn1 687,737
- 2. boag2000 448,935
- 3. LSMCons... 355,882
- 4. DatabaseMX 327,468
- 5. peter57r 247,727
- 6. harfang 171,469
- 7. jimhorn 143,873
- 8. wiswalld 135,953
- 9. koutny 86,570
- 10. MikeToole 85,778
- 11. hnasr 80,644
- 12. eghtebas 77,977
- 13. TextReport 76,173
- 14. frankytee 72,964
- 15. GRayL 67,824
- 16. ldunscombe 67,386
- 17. omgang 58,022
- 18. irudyk 55,350
- 19. jefftwilley 54,970
- 20. JDettman 53,870
- 21. Rick_Ric... 53,365
- 22. LennyGray 50,552
- 23. mbizup 49,552
- 24. JezWalters 43,325
- 25. matthews... 43,297
- 1. capricorn1 1,175,979
- 2. DatabaseMX 678,681
- 3. LSMCons... 533,250
- 4. boag2000 498,025
- 5. peter57r 464,696
- 6. jefftwilley 340,037
- 7. harfang 313,990
- 8. mbizup 252,169
- 9. jimhorn 247,420
- 10. frankytee 181,205
- 11. wiswalld 176,167
- 12. MikeToole 150,596
- 13. stevbe 146,536
- 14. GRayL 145,892
- 15. LPurvis 118,920
- 16. matthews... 107,647
- 17. JDettman 106,070
- 18. eghtebas 100,222
- 19. koutny 97,595
- 20. ldunscombe 88,845
- 21. dqmq 83,998
- 22. omgang 83,357
- 23. hnasr 80,644
- 24. puppydog... 78,564
- 25. TextReport 76,173
| 03.30.2008 at 07:03PM PDT, ID: 23281465 |
|
[x]
Attachment Details
|
||
Filter ListBox on Form from a bazillion Text/Combo boxes
Asked by usslindstrom in Access Forms, Microsoft Access Database
Tags: Microsoft, Access, 2003
Would somebody be able to point me in the right direction?
I am in need of gabbing a vbcode to do the following:
I need to filter a listbox that will be contained in a form, over a ton of different text boxes/combo boxes.
I've attached a file of the form draft... the contents of the form are kinda' all over the place right now. But it's for reference on all the things that I'm going to need filtered on the listbox I'm going to put on the same form.
I know the answer lies in a loop of sorts:
Dim vItem As Variant
Dim lngLen as Long
With Me.MyListbox
For Each vItem In .ItemsSelected
If Not IsNull(vItem) Then
strWhere = strWhere & """" & .ItemData(vItem) & """, "
End If
Next
End With
lngLen = Len(strWhere) - 2 'Without trailing comma and space.
If lngLen > 0 Then
strWhere = "[MyField] IN (" & Left$(strWhere, lngLen) & ")"
End If
But I am very much a beginner when it comes to VB, so if someone wouldn't mind helping me translate what I need to get done, it would be greatly appreciated.Start Free Trial
I am in need of gabbing a vbcode to do the following:
I need to filter a listbox that will be contained in a form, over a ton of different text boxes/combo boxes.
I've attached a file of the form draft... the contents of the form are kinda' all over the place right now. But it's for reference on all the things that I'm going to need filtered on the listbox I'm going to put on the same form.
I know the answer lies in a loop of sorts:
Dim vItem As Variant
Dim lngLen as Long
With Me.MyListbox
For Each vItem In .ItemsSelected
If Not IsNull(vItem) Then
strWhere = strWhere & """" & .ItemData(vItem) & """, "
End If
Next
End With
lngLen = Len(strWhere) - 2 'Without trailing comma and space.
If lngLen > 0 Then
strWhere = "[MyField] IN (" & Left$(strWhere, lngLen) & ")"
End If
But I am very much a beginner when it comes to VB, so if someone wouldn't mind helping me translate what I need to get done, it would be greatly appreciated.Start Free Trial
Attachments:
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628
