asked on header checkbox to check or uncheck multiple boxes in access
I would like to know how i can make a multiple selection check box to select or deselect the header check box all the below check boxes are checked or unchecked.
In access 2007 I have one subform connected with fields have check box Yes/No for taking attendance. When the form opens, all boxes are checked. If a student is absent i will uncheck, it is big job if i have hundreds of students to track their attendance. i want to create a check box on the header of the form for each row and column to select or deselect all the check boxes in the column or row and uncheck or check.
I would greatly appreciate if someone please help me on this
In access 2007 I have one subform connected with fields have check box Yes/No for taking attendance. When the form opens, all boxes are checked. If a student is absent i will uncheck, it is big job if i have hundreds of students to track their attendance. i want to create a check box on the header of the form for each row and column to select or deselect all the check boxes in the column or row and uncheck or check.
I would greatly appreciate if someone please help me on this
Microsoft AccessMicrosoft ApplicationsSQL
Last Comment
PatHartman
SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Not sure if I was clear on question. I have several students, and 31 days in the month. If all students are absent on the 25th (Christmas), I want to select the column or header checkbox and unselect all students for the 25th. If one student is absent the entire month (31 days), I want to select the student name on left of grid and unselect all 31 days. Will either of the above accomplish this task?
I believe the second method will work for what you are describing, but obviously I don't have your database to verify.
Give it a try, and post back if you run into any trouble with it.
Posting a sample database would also help clarify if you need to.
Give it a try, and post back if you run into any trouble with it.
Posting a sample database would also help clarify if you need to.
Your table is not normalized. or the whole thing could be done with a simple query. As it is, you will need to implement checking a "row" by using code and checking a "column" will need both a little code plus a query.
To do the row, add an unbound checkbox to the subform. In the click event of the control, set the value for each field appropriately.
In the click event of each column checkbox, run an update query.
To do the row, add an unbound checkbox to the subform. In the click event of the control, set the value for each field appropriately.
Me.fld1 = me.chk
Me.fld2 = Me.chk
Me.fld3 = Me.chk
....
In the click event of each column checkbox, run an update query.
Dim strSQL as String
strSQL = "Update yourtable Set somefield = " & Me.ColChk1
strSQL = strSQL & " WHERE somecriteria that selects the correct records"
DoCmd.RunSQL strSQL
ASKER
In regards to the solution listed above:
What should the "!MyYesNoField" and "Me.MyMainFormCheckboxName
Dim rs as DAO.recordset
Set rs = Me.MysubformName.form.reco
if rs.recordcount = 0 then exit sub
with rs
do until .eof
!MyYesNoField = Me.MyMainFormCheckboxName
.movenext
loop
set rs = nothing
What should the "!MyYesNoField" and "Me.MyMainFormCheckboxName
Dim rs as DAO.recordset
Set rs = Me.MysubformName.form.reco
if rs.recordcount = 0 then exit sub
with rs
do until .eof
!MyYesNoField = Me.MyMainFormCheckboxName
.movenext
loop
set rs = nothing
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
I am receiving an error message.... See attached.
VBA-Error.jpg
VBA-Error.jpg
You posted the code but not the error message.
The code looks like it will only set a field named [1], if it works at all.
The code looks like it will only set a field named [1], if it works at all.
ASKER
Apologies.... Here is the error
VBA-Error002.jpg
VBA-Error002.jpg
SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Open in new window