Toggle button select/deselect all

[cbrsix]

I currently have a button on a form (cmdOpenReport) that opens another form that shows a list of all the students currently in that class. There is a drop down box that the user must select a report to view and a date field that must also be entered. This form displays the students name and a checkbox in the column next to the name. I have a toggle button at the top of the checkbox column that toggles between Select All and Deselect All. I want the user to be able to display the selected report for All or just 1 or a couple of the students selected.

Currently I can view the report for all of the students in that particular class but can't get the checkbox selection to filter the report results further. This is the code that I am using to toggle the selections

Dim strWhere As String
If Me.SelectReportDropDown = "Health Insurance" And Me.PrintCertificate = True Then
    If Me.Dirty Then 'Save any edits
        Me.Dirty = False
    End If
    If Me.NewRecord Then 'Check these is a record to print
        MsgBox "Select a record to print..."
     Else
        strWhere = " ID_LicensingClassSchedule = " & Me.ClassID
        DoCmd.OpenReport "CertificateHealth", acViewPreview, , strWhere, , "False"
    End If
    DoCmd.OpenReport "CertificateHealth", acViewReport
    Reports![CertificateHealth]!txtDateCompleted = Forms![LicensingClassStudentsSubformPrintCertificates]!txtDateCompleted
End If

What am I doing wrong?

[June7]

This checkbox is bound to a field?

I don't see checkbox used in the criteria.

Does the code to set value of textbox on report work? I would have thought not. Expression in textbox ControlSource can reference the form control.

[cbrsix]

sorry, that code was only to call the report. here is the code to toggle the checkboxes on the form. Yes, the checkbox is bound.

    Select Case tglYesNo
        Case True
          DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE LicensingClassStudents SET LicensingClassStudents.PrintCertificate = On WHERE (LicensingClassSchedule.ID = LicensingClassStudents.ClassID)"
            DoCmd.SetWarnings True
            Me.Requery
            Me.tglYesNo.Caption = "Deselect All"
    
        Case False
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE LicensingClassStudents SET LicensingClassStudents.PrintCertificate = Off"
            DoCmd.SetWarnings True
            Me.Requery
            Me.tglYesNo.Caption = "Select All"
    End Select

[ranman256]

The button should only run a query to check all. (or uncheck)

The report qry should pull all students checked. No code needed.

[June7]

I have never seen On and Off used as Boolean constants. Does that work? Try True and False instead.

Don't need the SetWarnings method if use DoCmd.Execute instead of DoCmd.RunSQL.

I don't see the Yes/No field used in the first procedure as filter criteria. Is it a parameter built into query?

[cbrsix]

Thanks for the responses. I went in a different direction and removed the toggle field.