ACC2000: Combo Boxes Limited to 65536 (64 KB) Rows (207601)

MORE INFORMATION

Steps to Reproduce Behavior

1. Open the sample database Northwind.mdb.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

3. Type the following procedure:

   Sub FillTable()
      ' Creates a table that contains
      ' 70,000 records.
   
      Dim db As DAO.Database
      Dim tbl As DAO.TableDef
      Dim fld As DAO.Field
      Dim rs As DAO.Recordset
      Dim lng As Long
   
      Set db = CurrentDb
      Set tbl = db.CreateTableDef()
      tbl.Name = "LargeTable"
      Set fld = tbl.CreateField("Field1", dbLong)
      tbl.Fields.Append fld
      db.TableDefs.Append tbl
      Set rs = tbl.OpenRecordset(dbOpenDynaset)
      For lng = 1 To 70000
         rs.AddNew
         rs.Fields("Field1") = lng
         rs.Update
      Next
      rs.Close
      MsgBox "Table Created"
   End Sub
   					

4. To run this procedure, type the following line in the Immediate window, and then press ENTER:

   FillTable

   When the procedure is finished, you receive a message indicating that the table was created.
5. Open a new form in Design view, and add a combo box to the form.
6. Set the RowSource property of the combo box to LargeTable.
7. Open the form in Form view.
8. Type 65536 in the combo box.
9. Click the arrow next to the combo box to view the list. Note that 65536 is the last visible row in the combo box.