Need to make Continuous Form multiple checkbox selections deselect

[Kipandrews06]

I am making a database for inventory that we store in a warehouse for our clients. I want our clients to be able to log on and I have a continuous form where they can check a checkbox for whatever product(s) they want to have shipped out. Once you click on a command button at the bottom after you make all your selections, it will transfer those selected records to a "shopping cart" or "basket" form with all those records showing with the quantities, etc. So the problem I'm having is I need to be able to clear or "deselect" all the checkboxes on the first form. Everything I've tried only clears or unchecks the last selection I checked and not every record on the continuous form. I'm trying to use a command button on the bottom of the page to do this, but if there is a better way to do I'm all ears. Any help with this would be greatly appreciated. This is my code so far for the command button, it does uncheck a selection, but it inly does the last selection I did and not the whole form.

Private Sub cmdUndo_Click() 'Purpose:   Clear all the check box values.
    Dim ctl As Control
    
 'Clear all the controls for the Check Box.
    For Each ctl In Me.Controls
        If ctl.ControlType = acCheckBox Then
            ctl.Value = False
        End If
    Next ctl
        
    
End Sub

[ranman256]

run an update query to set field = false.

[Kipandrews06]

How do I run an update query?

[Welshgasman]

How many checkboxes are on each record?
That code is for multiple checkboxes on a record?

[Micron]

The only way to individually check/uncheck boxes on a continuous form is if the checkbox control is bound to a query or table field. The value of the check then becomes a field value for each record in that field. You can use button click code to alter the box values as ranman said, BUT if you need the value of the control/field to make up an order and have clicked the button it could be that your selections are all gone and the order is empty.

There are many ways you could design this but if you stick with your approach just make sure the loss of the selected checks will not affect your order process. Perhaps commit the order and on the main form, set it back to how it was when it opened. I'm guessing it opens to a new record and the form's Data Entry property is set to True/yes. I suggest that you Google ms access currentdb.Execute to find examples of how to run action sql without getting a warning prompt from Access.

[Gicu]

Usually when dealing with a subform is better to loop through the subform's recordset instead of running an update query as the subform might be filtered so you would need to reset the criteria for the update query. Here is an example on how to set all checkboxes to False (bound to a yes\no field holding your Selected value):

Private Sub cmdUndo_Click() 'Purpose:   Clear all the check box values.'Dim ctl As Control
    
'Clear all the controls for the Check Box.
    'For Each ctl In Me.Controls
        'If ctl.ControlType = acCheckBox Then
            'ctl.Value = False
        'End If
    'Next ctl
        
Dim rs as DAO.Recordset




Set rs=Me.RecordsetClone
If rs.recordcount=0 then Exit sub
rs.MoveFirst  'reset to first record
Do Until rs.EOF
    rs.Edit
    rs("YourYesNo_Selected_Field")=False 'note you need to use the IsSelected field or what ever you named your Yes\No field not the control name bound to it
    rs.Update
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
'Refresh the form
Me.Refresh    


End Sub

Cheers,

[Kipandrews06]

My continuous form only has one checkbox called Select which is bound. But since its a continuous form, it shows all the records and you can scroll down and click on the checkbox for whatever item they want shipped out. I ended up figuring it out after looking at the currentDb.Execute example micron recommended. I tried this code and it worked like a charm! Thank you all for the help!

Private Sub cmdUndo_Click() CurrentDb.Execute "UPDATE [Products] SET [Select]= False", dbFailOnError
 Me.Requery
        
End Sub

[Gicu]

Glad to see you got it working, just keep in mind that the update query will update all records in the table, not just the ones loaded in the subform.

Cheers,