ACC2000: Cannot Set Attributes Property in Visual Basic Code (198645)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers 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 requirements. The following sample procedure creates a linked table whose Attributes property is set to dbAttachedTable:

1. Start Access and create a blank database.
2. Create a new module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

3. On the Tools menu, click References, and in the Available References list, click to select Microsoft DAO 3.6 Object Library.
4. 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
   					

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

   CreateLinkedTable
   					

   Note that the new linked table is shared.

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.

Note In the following sample code, you must change UID=<username> and PWD=<strong password> to the correct values. Make sure that the user ID has the appropriate permissions to perform this operation on the database.

With tbfNewAttached
   .Connect = "ODBC;DSN=sqltest;UID=<username>;PWD=<strong password>"
   .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