ACC97: Listview Control Loses Data When Changing Properties (166912)

MORE INFORMATION

Steps to Reproduce Problem

1. Start Microsoft Access and open the sample database Northwind.mdb.
2. Create a new form not based on any table or query in Design view.
3. On the Insert menu, click ActiveX Control.
4. In the Insert ActiveX Control dialog box, select Microsoft ListView Control, version 5.0, and then click OK.
5. Set the following properties of the ListView control:

   Name: ListView1
   Width: 4"
   Height: 2"

6. On the View menu, click Code.
7. Type the following procedure, which populates the ListView control with data when you open the form:

         Private Sub Form_Open(Cancel As Integer)
            Dim db As Database, rs As Recordset
            Dim itmX As ListItem
            Set db = CurrentDb()
            Set rs = db.OpenRecordset("Employees", dbOpenDynaset)
   
            ListView1.ColumnHeaders.Add, , "First Name", ListView1.Width/3
            ListView1.ColumnHeaders.Add, , "Last Name", _
               ListView1.Width/3, lvwColumnCenter
            ListView1.ColumnHeaders.Add, , "Birthdate", _
               ListView1.Width/3
            ListView1.View = lvwReport
   
            While Not rs.EOF
               Set itmX = ListView1.ListItems.Add(, , CStr(rs![FirstName] ))
               If Not IsNull(rs![LastName]) Then
                  itmX.SubItems(1) = CStr(rs![LastName])
               End If
               If Not IsNull(rs![BirthDate]) Then
                  itmX.SubItems(2) = rs![BirthDate]
               End If
               rs.MoveNext
            Wend
         End Sub
   						

8. Add a command button named Command0 to the form, and set its OnClick property to the following event procedure:

         Private Sub Command0_Click()
            Me!ListView1.Enabled = Not Me!ListView1.Enabled
         End Sub
   						

9. Save the form as frmListView, and then switch it to Form view. Note that as you click the command button to toggle the Enabled property of the ListView control, the number of records displayed in the control reduces by about half. However, after the number of records is reduced to one, the last record continues to display even if you continue to click the command button.