Filtering checkboxes using checkboxes

[SShafeeq]

Hi!

I have tried googling this but I am unable to find anything close to what I need.

Basically I have a form: frmdirectory, which has a subform frmcontacts2.

Now basically the subform displays all the contacts stored in the directory. Each contact has three checkboxes columns: NGO, GOPC and Donors. Now each contact belongs to one of these groups. Ie: an organisation x's NGO box is ticked.

Now I have a btnView in the main form, next to three unbound checkboxs: chkNGO, chkGOPC and chkDonors. Now what i want is a vba code for the onclick event of the button which will display all the contacts that has the related checkbox ticked. For example is a user ticks chkNGO and chkGOPC, then the subform displays all contacts who has their NGO and GOPC checkboxes ticked.

What vba code can I use for this?

 

[SShafeeq]

Hi again, I've tried everything and nothing I've tried works, has anyone got any ideas?

 

[CEH]

Well, if I am following what you are saying, I would not write any code to the button...except maybe a requery... Your subform is based on a query that includes "NGO, GOPC and Donors" in the criteria, put the path to the value on the unbound checkboxes on your main form. Hit your re-query and it should filter with the values you want. Hope that makes sense....
If you've filtered for date parameters using basically the same thing, thats what I'm referring to.

 

[boblarson]

The first thing is that you have designed this incorrectly. Your table should NOT have fields of NGO, GOPC and Donors. Instead you should be using a type table with a type ID and then you store that in your table.

So, like this:

tlkpTypes
TypeID - Autonumber (PK)
TypeDesc - Text

and then in the other table you store

TypeID - Long Integer (FK)


You don't have 3 separate fields, one for each type.

 

[SShafeeq]

Thanks Bob! I was afraid you might say something like that lol! And it makes sense, I just thought I'd try doing it the easier way

Btw, if anyone else is interested I figured it out finally:

Private Sub btnView_Click()
Me.Refresh

Dim StrDonor As Boolean
StrDonor = Me.chkdonor

Dim StrNGO As Boolean
StrNGO = Me.chkngo

Dim StrGOPC As Boolean
StrGOPC = Me.chkGOPC


Dim strFilter As String
strFilter = "[Donors]=" & StrDonor & " AND [NGO]=" & StrNGO & " AND [GOPC]=" & StrGOPC & ""

Forms![frmDirectory].[frmContacts2].Form.Filter = strFilter
Me.FilterOn = True

End Sub

That code works for me, but you're right, ill just add another table.