OpenForm by Check Box False

[ggs]

I have a check box [resolved] and a button to open reports unresolved.

Private Sub cmdUnresolvedRpt_Click()
Dim strWhere As String
If Me.resolved = False Then


strWhere = strWhere & " AND resolved=false" '
Else
strWhere = "[resolved] = " & Me.[resolved]
DoCmd.OpenReport "rptIncListing", acViewPreview, , strWhere
End If
End Sub

This opens the report with all the resolved records listed. Ha I thought changing false to true only to find that does nothing at all
There is something wrong right oops did i say open form open report
say what you mean don't mean what you say

[pbaldy]

Your OpenReport line is within the Else clause. I would expect it to be after the End If. As it is, it will only run when resolved is not false.

[ggs]

changed that

Private Sub cmdUnresolvedRpt_Click()
Dim strWhere As String
If Me.resolved = False Then
strWhere = strWhere & " AND resolved = False" '
Else
strWhere = "[resolved] = " & Me.[resolved]
End If
DoCmd.OpenReport "rptIncListing", acViewPreview, , strWhere
End Sub

and now the records that show are only the true or checked box items
and I am after the unchecked items

[pbaldy]

What is contained in Me.resolved? Your code is dependent on that value. Further, this line should not include the "AND" bit:

strWhere = strWhere & " AND resolved = False" '

[ggs]

resolved is field format check box
also control on a form which is the record source for this report

[stmoong]

Would this work?

Private Sub cmdUnresolvedRpt_Click()
    Dim strWhere As String
    If Me.resolved = False Then
        strWhere = "resolved = False"
    Else
        strWhere = "resolved = True"
    End If
    DoCmd.OpenReport "rptIncListing", acViewPreview, , strWhere
End Sub

[pbaldy]

Actually based on what you're doing, you don't even need the If/Then, just:

strWhere = "resolved = " & Me.resolved

Did removing the "AND" help? Can you post the db if you're still having trouble?

[ggs]

Thank you all
stmoong

Private Sub cmdUnresolvedRpt_Click()
Dim strWhere As String
If Me.resolved = False Then
strWhere = "resolved = False"
Else
strWhere = "resolved = False"
End If
DoCmd.OpenReport "rptIncListing", acViewPreview, , strWhere
End Sub
your original code gave me all the true results changeing the True to False in red worked
I don't get it

pbaldy
removing the & and removing the if then also gave me all the true
but any way (looks strange) but all fixed

[pbaldy]

Surely you're not saying that the posted code works? It can't ever pull the True records.

[stmoong]

Actually based on what you're doing, you don't even need the If/Then, just:

strWhere = "resolved = " & Me.resolved

Did removing the "AND" help? Can you post the db if you're still having trouble?

Yup, that will work. I was not sure if Access uses 0/1 or 0/-1 for boolean field (False/True), seems to be the latter (0 = False, -1 = True).


ggs, regarding your statement about "changeing the True to False in red worked". It is as good as not having the If/Else, and just set the "resolved = False" since both conditions evaluate to the same result.

Just in case, could you check the followings?
- check the database column is of type Yes/No
- before you click the button, did you uncheck the checkbox?

[ggs]

yes data is of Yes/No typr
I am wanting to get the No False or 0 results. If the "Incident" is not yet resolved I want it to appear in a Report "Unresolved Incidents"
The check box for resolved is on the main form I have a seperate form which has 8 command buttons for a number of different reports so the check box remains the way it has been selected until someone selects otherwise
Anyway all is good and thankyou again for your help

[stmoong]

Well, if your checkbox is always checked, then it will always return you resolved = true, unless you specify the query to return resolved = false, which in this case, you don't really have to check the value of the check box...