ACC2000: Cannot Perform OpenTable Method on Linked/Attached Table

ID: Q208379

The information in this article applies to:

Microsoft Access 2000

Moderate: Requires basic macro, coding, and interoperability skills.

This article applies only to a Microsoft Access database (.mdb).

SYMPTOMS

If you try to open a recordset on a linked table by using the dbOpenTable constant, you may receive the following error message:

Run-time error '3219':

Invalid Operation.

RESOLUTION

In Microsoft Access, a linked table must be opened as the Recordset object. The following code example assumes that you are linked to the Customers table in the sample database Northwind.mdb, which resides in the same folder as the database containing this code. The code opens the Northwind.mdb file, which actually contains the Customers table. The code then creates a recordset based on the Customers table.

The sample code in this article uses Microsoft Data Access Objects. For this code to run properly, you need to reference the Microsoft DAO 3.6 Object Library.


Public Function testLink()
   Dim myDb As DAO.DATABASE, rstCustomers As DAO.Recordset
   ' Open the Northwind.mdb database.
   Set myDb = DBEngine.Workspaces(0).OpenDatabase("Northwind.mdb")
   ' Create the recordset.
   Set rstCustomers = myDb.OpenRecordset("Customers", dbOpenDynaset)
End Function

MORE INFORMATION

Steps to Reproduce Behavior

Create a new, blank database in the same folder as the sample database Northwind.mdb.

On the File menu, point to Get External Data, and then click Link Tables.

In the Link dialog box, click Northwind.mdb, and then click Link.

In the Link Tables dialog box, click the Customers table, and then click OK.

Create a module and type the following line in the Declarations section if it is not already there:


Option Explicit

Type the following procedure:


Function Test()
   Dim db as DAO.Database
   Dim mySet as DAO.Recordset

   Set db = CurrentDB()
   ' Create the recordset based on the Customers table.
   Set mySet = db.OpenRecordset("Customers", dbOpenTable)
End function

To test this function, type the following line in the Immediate window, and then press ENTER:
```
? Test() 
```
Note that you receive the error message mentioned in the "Symptoms" section.

REFERENCES

For more information about the OpenRecordset method, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type "OpenRecordset" in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

Additional query words: prb


Keywords          : kberrmsg kbprg kbdta AccCon PgmObj KbVBA 
Version           : WINDOWS:2000
Platform          : WINDOWS 
Issue type        : kbprb

Last Reviewed: May 13, 1999