ACC2000: Cannot Set Attributes Property in Visual Basic Code

ID: Q198645

The information in this article applies to:

Microsoft Access 2000

SUMMARY

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

When you use the CreateTableDef method to create a table that is linked to a table in another Microsoft Access database or to an ODBC data source, you cannot set the Attributes property to dbAttachedTable or dbAttachedODBC. These constants are always read-only. When you create the linked table, you must set the Connect property and the SourceTableName property. This automatically sets the Attributes property to dbAttachedTable or to dbAttachedODBC, whichever is appropriate. However, you can set the Attributes property to dbAttachExclusive or dbAttachSavePWD.

After you have appended the table to the database, the Attributes property is read-only.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

The following sample procedure creates a linked table whose Attributes property is set to dbAttachedTable:

Start Access and create a blank database.

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


Option Explicit

On the Tools menu, click References, and in the Available References list, click to select Microsoft DAO 3.6 Object Library.

Type the following procedure:


Sub CreateLinkedTable()

   Dim dbLocal As DAO.Database
   Dim tbfNewAttached As DAO.TableDef

   Set dbLocal = CurrentDb()
   Set tbfNewAttached = dbLocal.CreateTableDef("MyEmp")

   With tbfNewAttached
     .Connect = ";database=<your path to Northwind>"
     .SourceTableName = "Employees"
   End With

   dbLocal.TableDefs.Append tbfNewAttached

End Sub

To test this function, type the following line in the Immediate window, and then press ENTER:


CreateLinkedTable

To test the Attributes property of the new table, type the following line in the Immediate window, and then press ENTER:


?currentdb.TableDefs("MyEmp").Attributes = dbAttachedTable

This returns the value True to the Immediate window.

To create a table that is linked exclusively, change the With...End With statement in the procedure in step 3 to the following:


With tbfNewAttached
   .Connect = ";database=<your path to Northwind>"
   .SourceTableName = "Employees"
   .Attributes = dbAttachExclusive
End With

To test the Attributes property of this table, type the following on a single line in the Immediate window, and then press ENTER:


?currentdb.TableDefs("MyEmp").Attributes = dbAttachedTable + dbAttachExclusive

The following sample With...End With statement sets the properties of a table linked to an ODBC DSN named "sqltest"; the table is linked to a table named dbo_employee in the remote data source.


With tbfNewAttached
   .Connect = "ODBC;DSN=sqltest;UID=sa;PWD="
   .SourceTableName = "employee"
End With

To test the Attributes property of this table, type the following line in the Immediate window, and then press ENTER:


?currentdb.TableDefs("MyEmp").Attributes = dbAttachedODBC

REFERENCES

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

Additional query words: attached VBA code

Keywords : MdlDao
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbinfo