Check Box on a Form

[gemini2]

I have a form which feed a query for a report. I'm trying to mak
changes to the form to give the user more flexibliy
The form orginally had a list box for the user to choose which quarte
they wanted the report for. lately I had to go in and manully chang
the query because the user sometime wants more then one quarter at
time on the same report. The database is setup where the data i
mark for which quarter the work is delinquency in. With a list bo
the user can only pick one item therefore I change the list box t
check boxes and then change the query to accept the differen
possibies. I also place code in each check box click events a
follow

Private Sub chkQuarter1_Click(
On Error GoTo Err_chkQuarter1_Clic

If chkQuarter1.Value = True The
Me!PStatus1.Caption = strPstatu
Me!GWstatus1 = "4th Qtr
Me!SWstatus1 = "4th Qtr
Me!CUstatus1 = "4th Qtr
Me!GWdue1 = "Due
Me!SWdue1 = "Due
Me!CUdue1 = "Due

End I

Exit_chkQuarter1_Click
Exit Su

Err_chkQuarter1_Click
MsgBox Err.Descriptio
Resume Exit_chkQuarter1_Clic

End Su
Private Sub chkQuarter2_Click(
On Error GoTo Err_chkQuarter2_Clic

If chkQuarter2.Value = True The
Me!PStatus2.Caption = strPstatu
Me!GWstatus2 = "1st Qtr
Me!SWstatus2 = "1st Qtr
Me!CUstatus2 = "1st Qtr
Me!GWdue2 = "Due
Me!SWdue2 = "Due
Me!CUdue2 = "Due

End I

Exit_chkQuarter2_Click
Exit Su

Err_chkQuarter2_Click
MsgBox Err.Descriptio
Resume Exit_chkQuarter2_Clic

End Su

When I try to test these boxes, check box1 is OK but when I click o
any other box (4 boxes total) I get the following messag
"Object doesn't support this property o
method
Other then what I'm assigning to the variable I don't see anythin
different between the code in each box.
What I am I doing wrong? Do I need to place the code somewhere else

 

[gemini2]

Thanks to anyone who was considering replying to my posting but toda
I found my answer