Uisng check box to deselect chkbox 1

[techkenny1]

Hi,
I have on a continous form a bound checkbox to select certain records.
In the HDR of the form I have an unbound checkbox that I want to when checked, deselct all the records that have been selected by a checkbox.

I have used this code to select records, but I want to do the reverse.
How can I change this code to do that.

Private Sub CHK2_AfterUpdate()
Dim rst As DAO.Recordset
Set rst = Me.Recordset
With rst
.MoveFirst
Do
.Edit
![CHK1] = Me![Chk2]
.Update
.MoveNext
Loop Until .EOF
End With
End Sub

Many thanks,
kp

 

[TheAceMan1]

techkenny1 . . .

An update query would work faster, particularly where large record counts are concerned.

[blue]   Dim SQL As String
   
   SQL = "UPDATE [purple][B][I]yourtablename[/I][/B][/purple] " & _
         "SET Chk1 = False;"
   CurrentDb.Execute SQL, dbFailOnError
   
   Me.Requery[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]