[AccessD] Check Box - "Select All"

This worked perfectly! Thank you so much, Gustav.

I was preparing to do what the others had suggested - adding a field to
indicate whether the record had been exported - but this was easier. :-)


Thanks to everyone,
Nanette

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, August 22, 2006 2:01 PM
To: accessd at databaseadvisors.com
Subject: Re: [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

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com