FIX: Name Not Found in This Collection When Deleting Member

MORE INFORMATION

Steps to Reproduce Problem

1. Start a new project in Visual Basic. Form1 is created by default.
2. Copy the file BIBLIO.MDB from your Visual Basic directory to the root directory (C:\BIBLIO.MDB). The program created below modifies the copy of BIBLIO.MDB instead of the master file. The BIBLIO.MDB sample database file is a bibliographical reference.
3. Add a command button to Form1.
4. Add the following code to the Command1 Click event:

      Sub Command1_Click()
         Dim db as Database
         Set db = OpenDatabase ("c:\BIBLIO.MDB")
         ' db.TableDefs("Titles").Indexes.Refresh ' Add this for workaround
         db.Tabledefs("Titles").Indexes.Delete "PubID"  '<- Problem line
      End Sub
   						

5. Start the program or press the F5 key. The program gives the incorrect error, "Name not found in this collection."

Workaround Example

To work around this bug, use the Refresh method before using the Delete method:

   db.TableDefs("Titles").Indexes.Refresh
				

As an alternative workaround, replace the Delete line with this command:

   ' Enter the following two lines as one, single line:
   db.TableDefs("Titles").Indexes.Delete
      db.TableDefs("Titles").Indexes("PubID")
				

This command expands "PubID" into its complete reference:

   db.TableDefs("Titles").Indexes("PubID")
				

This refreshes the Indexes collection before PubID is deleted in the same statement.

NOTE: If you run the program twice using the workaround, the program correctly gives the error, "Name not found in this collection." The error is correct this time because the PubID index member was successfully deleted and no longer exists.