R
Rodney
I have the below code attached to a command button called Check/Uncheck All
on a form. What I want is
[Certificate] value all records sets to = [SelectAll] value both are check
boxes.
I have this same code on other forms with text boxes and it works fine, why
will it not work on a check box.
I get an error when it gets to : Count = Counter.Value
Private Sub Check_Uncheck_All_Click()
DoCmd.GoToRecord , , acFirst
Dim Check, Count
Check = True: Count = Counter.Value
Do
Do While Count >= 1
Certificate.Value = [SelectAll].Value
Count = Count - 1
If Count = 1 Then
Check = False
Exit Do
Else
DoCmd.GoToRecord , , acNext
End If
Loop
Loop Until Check = False
End Sub
Also when the form is closed how can I get all the boxes that are checked to
revert back to unchecked. I want all the records on close to be NO.
Thanks for the help
Rodney
on a form. What I want is
[Certificate] value all records sets to = [SelectAll] value both are check
boxes.
I have this same code on other forms with text boxes and it works fine, why
will it not work on a check box.
I get an error when it gets to : Count = Counter.Value
Private Sub Check_Uncheck_All_Click()
DoCmd.GoToRecord , , acFirst
Dim Check, Count
Check = True: Count = Counter.Value
Do
Do While Count >= 1
Certificate.Value = [SelectAll].Value
Count = Count - 1
If Count = 1 Then
Check = False
Exit Do
Else
DoCmd.GoToRecord , , acNext
End If
Loop
Loop Until Check = False
End Sub
Also when the form is closed how can I get all the boxes that are checked to
revert back to unchecked. I want all the records on close to be NO.
Thanks for the help
Rodney