[AccessD] Check Box - "Select All"

Hi Nanette

Oops, missed the update part:

    While Not rst.EOF
      rst.Edit
        rst!chkSelect.Value = True
      rst.Update
      rst.MoveNext
    Wend

/gustav

>>> Gustav at cactus.dk 22-08-2006 20:56:24 >>>
Hi Nanette

You could use DAO and update the recordset of the form:

  Dim rst As DAO.Recordset

  Set rst = Me.RecordsetClone
  If rst.RecordCount > 0 Then
    rst.MoveFirst
    While Not rst.EOF
      rst!chkSelect.Value = True
      rst.MoveNext
    Wend
  End If
  rst.Close
  Set rst = Nothing

/gustav