PRA: Wrong Action Query Icon with CreateQueryDef Method

Article ID: Q105654
Creation Date: 22-OCT-1993
Revision Date: 19-SEP-1996

The information in this article applies to:

Microsoft Access versions 1.0 and 1.1

SYMPTOMS

The exclamation point (!) that identifies an action query icon in the Database window is missing from action queries that are created with the CreateQueryDef method.

CAUSE

The query icon that is displayed is determined by flags stored separately from the query itself. When a query is created with the CreateQueryDef method, the flags are set for the default icon instead of for the action query icon.

RESOLUTION

Open the query in Design view from the Database window. Then, save the query (without making any changes to it). The correct icon will be displayed.

STATUS

Microsoft has confirmed this to be a problem in Microsoft Access versions 1.0 and 1.1. This problem no longer occurs in Microsoft Access version 2.0.

MORE INFORMATION

This article assumes that you are familiar with Access Basic and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information on Access Basic, please refer to the "Introduction to Programming" manual.

Steps to Reproduce Problem

Open the sample database NWIND.MDB.

Create a new module.

Enter the following code in the module:
NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore when re-creating this code in Access Basic.

'Place the following Option line in the Declarations Section Option Explicit

Sub WrongIcon () Dim MyDB As Database, MyQuery As QueryDef Set MyDB = CurrentDB() Set MyQuery = MyDB.CreateQueryDef("Wrong Icon", "SELECT * _ into SomeTable FROM Customers;") MyQuery.Close MyDB.Close End Sub
From the View menu, choose Immediate Window.
Type the following, and then press ENTER:
```
      WrongIcon
```
Select the Database window. Note that the icon for the newly created query WrongIcon displays the default icon rather than the action query icon.

REFERENCES

Microsoft Access "Language Reference," pages 90-91

Microsoft Access "User's Guide," pages 161-163

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.