Select All Button

[Triland]

Hi: I have a Form with several lines of information. The user is able to select each row of information that they would like to have added to the final report. I want to create a button that will allow the end-user to select or de-select all by clicking the button. Does anyone know how I might do that and what the code or macro would look like?

[rpeare]

Is your information in a list box or in a subform?

[Triland]

It is in a simple select:

Triland 213232 USE = Checkbox (val = true)
Zena 315433 USE = Checkbox (val = true)

so if you select ten boxes then only those records will appear in the final report. I just want to be able to have a "master" button that will allow me to select or deselect them all. I hope that's clearer.

[rpeare]

that doesn't answer my question.

Are the checkboxes on a form, a subform or in a listbox?

If they are on a form they are all part of one record on one table
if they are in a subform they are a collection of items in a one to many relationship
if they are in a list box it could be either

This:
Triland 213232 USE = Checkbox (val = true)
Zena 315433 USE = Checkbox (val = true)

means nothing in terms of solving your problem because you have said nothing about how your form is set up.

[Missinglinq]

Is this what you're talking about?
To Tick Checkbox on All Records

Private Sub TickCheckBoxAllRecords_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("YourTableName")
Do While Not rs.EOF
rs.Edit
rs!CheckBoxName = -1
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Me.Requery
End Sub

To Clear Checkbox on all Records

Private Sub ClearCheckBoxAllRecords_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("YourTableName")
Do While Not rs.EOF
rs.Edit
rs!CheckBoxName = 0
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Me.Requery
End Sub

Replace CheckBoxName with the actual name of your Checkbox

Replace YourTableName with the actual name of your Table or Query.

Linq ;0)>

[Triland]

They are the checkboxes on a form.

[Triland]

In case of checkboxes on a form would the code above still work. Or would I add something to the "On Click" action of the button to have it perform a select all?

[Missinglinq]

The code has to be done on a Form! There is no need for a 'select all,' becuase the code is looping through all of the Records in the current Form's RecordSource.

Linq ;0)>

[alcapps]

can you post your form in a database so we can help you?

[Triland]

As requested I have attached the database. Once you open the Form you will see where you have the option to select one record at a time. I want to add an option to selectall or deselectall. This will make it so the end-user does not have to go through the deselect previously selected records.

[Missinglinq]

can you post your form in a database so we can help you?

I've already given the OP a step-by-step that only requires him to change the names involved to get it to work!

• Create a Command Button in the Header of your Form
• Name it cmdSelectAll
• Place this code in its OnClick event

Private Sub cmdSelectAll_Click()
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Master Cable Code Table (TRI)")
Do While Not rs.EOF
rs.Edit
rs!USE = -1
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Me.Requery
End Sub

Now, for a deselect button

• Create another Command Button in the Header of your Form
• Name it cmdDeselectAll
• Place this code in its OnClick event

Private Sub cmdDeselectAll_Click()
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Master Cable Code Table (TRI)")
Do While Not rs.EOF
rs.Edit
rs!USE = 0
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Me.Requery

End Sub

Linq ;0)>

[alcapps]

you could use this it would allow you to use the same code and if you want to call more than one field you could use the same code.
This is based on the code from the last post..

Hope this helps..

private Sub cmdDeselectAll_Click()
setCheckedValue "USE", 0
me.requery
end Sub

private Sub cmdSelectAll_Click()
setCheckedValue "USE", -1
me.requery
end sub

private sub setCheckedValue (datField as string, datInt as Integer)
dim db as DAO.Database
dim rst as DAO.Recordset

set db = currentdb()

set rst = db.openrecordset("Master Cable Code Table (TRI)", dbopendynaset)
Do while Not rst.eof
rst.edit
rst(datField) = datInt
rst.Update
rst.MoveNext
Loop

rst.close
Set rst = Nothing
end sub

[Triland]

I am adding the coding from missinlinq exactly as I am told. 1. Create the button 2. in Properties under OnClick, I add the code as outlined above. The system tells me I enterred invalid syntax and/or simply doesn't run. Pleae pardone me, but might I ask you to update the database I sent out and send it back to me? That way I can see what I'm doing wrong and learn how to do it right.

[alcapps]

SelectAll.zip

hope this helps.. a little different twist..

[Triland]

OK ... That was awesome!!!!! I guess I need to learn a little more about how to use coding. I will mark this resolved.