Microsoft KB Archive/106270

= PRB: Illegal to Use Find Method with Table Object Variable =

Article ID: 106270

Article Last Modified on 1/8/2003

-

APPLIES TO


 * Microsoft Visual Basic 3.0 Professional Edition

-



This article was previously published under Q106270



SYMPTOMS
Using the FindFirst, FindNext, FindLast, or FindPrevious method on an object variable of type Table results in this error:

Can't perform operation; it is illegal.

Pressing the F1 key on this error dialog gives the following description from the Visual Basic Help:

Error 3219.

You tried to use a method or property with or on a recordset,

and it isn't valid for that object.



CAUSE
The FindFirst, FindNext, FindLast, and FindPrevious methods can be used only with a Dynaset or Snapshot. These Find methods cannot be used with a Table object variable.



WORKAROUND
To move between the records of a Table, use the Seek method or the Move methods (MoveFirst, MoveLast, MoveNext, and MovePrevious).

Also, you can create a Dynaset or Snapshot variable on the whole Table by using the CreateDynaset or CreateSnapshot method. Then you can use the FindFirst, FindNext, FindLast, and FindPrevious methods on that Dynaset or Snapshot. The Find methods move between records that meet specific conditions.



STATUS
This behavior is by design.



Steps to Reproduce Behavior
The following code demonstrates the error using the FindFirst method on a Table object variable: Dim db As database Dim recordset As table ' Correction: Dim recordset As dynaset Set db = OpenDatabase("c:\vb3\biblio.mdb") Set recordset = db.OpenTable("authors") ' Instead: db.CreateDynaset ' The following line gives "can't perform operation; it is illegal": recordset.FindFirst "Author like 'a*'" Debug.Print recordset.Fields("Author") The following code works around this behavior by first creating a Dynaset from the Table, and then using FindFirst on the Dynaset: Dim db As database ' Dim recordset As table  ' Gives problem. Dim recordset As dynaset     ' Workaround. Set db = OpenDatabase("c:\vb3\biblio.mdb") ' Set recordset = db.OpenTable("authors")  ' Gives problem. Set recordset = db.CreateDynaset("Authors")   ' Workaround. recordset.FindFirst "Author like 'a*'" Debug.Print recordset.Fields("Author")

