Unchecking all check boxes on exit

[Ayiramala]

Hi,
I wanted to uncheck all check boxes on a form on exit. I added the following to the ON EXIT event of the form. It works, but takes a lot of time to finish. there are close to 700 records on this table:

Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone


With rs
.MoveFirst

Do While Not rs.EOF
.Edit
!SELECT = 0
.Update
.MoveNext
Loop

End With

rs.Close

Set rs = Nothing

Me.Requery


End Sub

'SELECT' is the name of the check box. Is the code correct? If not, could you correct it?
Thanks.

[cbende2]

I'm not really sure about the coding, but I do have a nice alternative:

I have something similar in my database, although, I just created an update query that selects all records checked "yes" and updates to "no." I think I use the On Close event to run the macro, just get rid of the warning popups in the macro! Hope that helps.

[Ayiramala]

I'm not really sure about the coding, but I do have a nice alternative:

I have something similar in my database, although, I just created an update query that selects all records checked "yes" and updates to "no." I think I use the On Close event to run the macro, just get rid of the warning popups in the macro! Hope that helps.

Thanks. That'll do exactly what I want to do. But the problem is, how do we remove those popups? Did a bit of a search and found someone's suggestion to use
DoCmd.SetWarnings False 'Turn off warnings
and later
DoCmd.SetWarnings True 'Turn warnings back

But how and where do we use them?

[June7]

Don't have to bother with SetWarnings in VBA code:

CurrentDb.Execute "UPDATE tablename SET fieldname = False"