Search 'yes' criteria? 1

[ChrisHaynes]

Hi everyone. I am trying to create a search tool on my main form. I have a combo box (test) listing all the fields to search by. These fields are all tick boxes on the main table (yes/no as the data type)

I am trying to create a command button that will open the form containg all the records (frm_softwaredata) and only show the records with 'yes' (or 1) in the chosen field.

I have tried using the code below to do this:

DoCmd.OpenForm "frm_softwaredata", , , "[" & Me![test] & "]" & "= '" & 1 & "'"

However this code brings up an error?

Any ideas what is wrong with code?

Thanks everyone, sorry if this is an obvious solution, I'm still learning!

Chris

 

[ChrisHaynes]

Also tried this and doesn't work??

DoCmd.OpenForm "frm_softwaredata", , , "[" & Me![test] & "] = 1"

 

[hermanlaksko]

1. DoCmd.OpenForm "frm_softwaredata", , , "YrField = 1"
2. DoCmd.OpenForm "frm_softwaredata", , , "YrField = " & Me!test
3. DoCmd.OpenForm "frm_softwaredata", , , "YrField = '" & Me!test &"'"

Herman
Say no to macros

 

[RoyVidar]

In VB(A), 0 = False and -1 = True. 0 or -1 are numbers, so no delimiters are needed.

Roy-Vidar

 

[ChrisHaynes]

Hi, thanks. This code worked in the end

DoCmd.OpenForm "frm_softwaredata", , , "[" & Me![test] & "]" & "LIKE '*" & 1 & "*'"

Thanks for your help though

Chris

 

[hermanlaksko]

Hmmm Chris
I think that you lead us all to belive that, what you was looking for was records with 1 in some field, and that in that field only 1 was entred not 1* or *1* just 1.
1 bieng 1 or True.

It is not fair to readers trying to help you, that you are only letting them have ½ or less, of the full story. We are trying hard to help.

Herman
Say no to macros

 

[ChrisHaynes]

hermanlaksko, Thats what I was trying to do?

In the fields I wanted to search through, they did contain only 1 or nothing at all (True or False). This code seemed to work though? It looks in the field chosen in the combo box 'test' and finds all the records containg '1' (ticks in their boxes) in that field.

I think the code should contain '=' instead of 'LIKE' but this works regardless.


Chris.

 

[PHV]

DoCmd.OpenForm "frm_softwaredata", , , "[" & Me![test] & "]=True

 

[ChrisHaynes]

I think thats what I wanted. It works brilliantly.

Thanks PHV.