ACC2000: Properties Are Missing from Queries After You Access TableDef Object with ADOX Catalog Object

• The Name AutoCorrect feature is turned on (this feature is turned on by default).
• In Visual Basic for Applications, you access a Table Object with the ADOX Catalog object.

Back to the top

1. On the Tools menu, click Options.
2. In the Options dialog box, click the General tab.
3. Ensure that the Track name AutoCorrect Info check box is not selected, and then click OK.

Back to the top

Steps to Reproduce the Behavior

1. Create a new Access database.
2. On the Tools menu, click Options.
3. In the Options dialog box, click the General tab.
4. Ensure that the Track name AutoCorrect Info check box is selected, and then click OK.
5. In the Database window, click Tables, and then create a table named Table1 in Design view.
6. Create one field named Field1. Set the data type of the field to Text.
7. Close the table and click Yes when Access asks if you want to create a primary key. This lets Access add the ID AutoNumber field.
8. Create a query named Query1.
9. Add the Field1 field and the ID field to the query design grid.
10. Click the top of the Field1 column so that the entire column is selected. Right-click the column, and then click Properties on the shortcut menu. The properties for the Field1 field appear.
11. On the General tab, type any valid text for the following properties:
    • Description
    • Format
    • Input Mask
    • Caption
12. Save and close the query.
13. In the Database window, click Modules, and then click New. In the Visual Basic Editor, on the Tools menu, click References, and then click to select the check box for the following library (you may need to scroll down to see it):
    Microsoft ADO Ext. 2.1 for DDL and Security
    Click OK.
14. In the new module, type or paste the following code:

    Sub xQueryFieldProps()
    
      Dim Cat As ADOX.Catalog
      Dim conn As ADODB.Connection
      Dim idxADOX as ADOX.Index
    
      Set Cat = New ADOX.Catalog
      Cat.ActiveConnection = Application.CurrentProject.Connection
    
      'The following line has the Catalog object refering to Table1.
      Set idxADOX = Cat.Tables("Table1").Indexes(0)
    
    End Sub
    					

15. In the Immediate window, type the following code:

    xQueryFieldProps
    					

16. On the File menu, click Close and Return to Microsoft Access.
17. In the Database window, click Queries, and then open the Query1 query in Design view.
18. In the query design grid, click the top of the Field1 column so that the entire column is selected. Right-click the column, and then click Properties on the shortcut menu.
19. On the General tab, note that the properties are now missing.

Back to the top