Using Check boxes for an if statement

[brow1726]

So I have a set of 5 queries that need to be ran. Each of which has a counter part to filter out training results. What I want to do is run a check box that when checked will run query that filters and when not checked runs the normal query.

Here's what I have right now.

For the Checkbox:

Private Sub UncheckedBox()
Dim TrainingCheckValue As Integer
TrainingCheckValue = TrainingCheck.Value
End Sub

For the if statement I have:

If TrainingCheckValue > 0 Then
DoCmd.OpenQuery "TotalsScanTrain"
Else
DoCmd.OpenQuery "TotalsScan"
End If

End Sub

I was trying to use the code for the check box to return a zero when unchecked and non zero when checked to use with the if statement but that isnt working for me.

Any Ideas anyone??

Thanks in advance,

Matt

[pbaldy]

Access stores True as -1.

[brow1726]

Thanks alot

[pbaldy]

No problem.