Working with Check boxes

[Sherianmartin]

Hi I am working with checkboxes and counters. Each time I click a checkbox I am adding one to a count (displayed in a text box). The counter works for the first record, however when I am on the next record in the dataset, it count is not displayed in the text box. Not sure why this is happening. See code below.

Private Sub Check769_Click()
    'Dim count1 As Integer
 
If Me.Check769.Value = "-1" Then
     Reason1 = "Diagnosis not Included in CPOE."
     Count1 = Count1 + 1
     'MsgBox "I have added the count"
 
Else
     If Me.Check769.Value <> "-1" Then
        Reason1 = " "
     End If
End If
End Sub
 

[twinnyfo]

Each time you move to a new record your counter is cleared. You should declare a Class-specific variable (in the top of your VBA code, before any other subs.

However, I still think there are some logical problems with your form and the code.

First, there is no need to use the ".Value" property of your check box, as that is the default property. Second, the check box returns a Boolean value, not a Text value (as you have indicated with the "-1". A more efficient way to achieve the same thing is:

If Me.Check769 Then
    Reason1 = "Diagnosis not Included in CPOE."
    Count1 = Count1 + 1
    'MsgBox "I have added the count"
Else
    Reason1 = " "
End If

Notice the removal of the second If...Then.

Are you just counting how many times you lick the check box or are you counting records that have the box checked? This is not clear from your discussion or code.

[Sherianmartin]

I am counting how many times I click the check box.

[twinnyfo]

Have you tried using the class specific variable? What results did it provide?

[Sherianmartin]

I added the variables. Now I'm getting this error whenever I click on the checkbox and the database module.
"Member already exist in an object module from which this object module derives"
See code below:

Dim Count1 As Integer
Dim Count2 As Integer
Dim Count3 As Integer
Dim Count4 As Integer
Dim Count5 As Integer
Dim Icd9_Code1_cnt As Integer
Dim ICD9_Code2_Cnt As Integer
Dim ICD9_Code3_Cnt As Integer
Dim DX_Count As Integer
Dim Qual_incent_cnt As Integer
Dim Response_cnt As integoer
Dim dx1_in_note_cnt As Integer
Dim dx2_in_note_cnt As Integer
Dim dx3_in_note_cnt As Integer
Dim Note_Count As Integer
 
 
 
Private Sub Check769_Click()
    'Dim count1 As Integer
 
If Me.Check769.Value = -1 Then
     Reason1 = "Diagnosis not Included in CPOE."
     Count1 = Count1 + 1
     'MsgBox "I have added the count"
 
Else
     Reason1 = " "
End If
End Sub

Thanks for your help!!

[twinnyfo]

Sherian,

Your Dim Statements should be within the confines of the Sub itself. This is causing the error.