Thanks for the reply and the suggestion.  I've actually got something similar
already in place and functional, but it is a bit clumsy.  That's why I was
hoping to be able to use the QDG Interface instead.

-Michael

Hi Fred.

Thanks for your reply.  There are no stored Queries involved.  I'm just
trying to generate some SQL that will be used elsewhere in my VBA code.  
Here's how I envision it:

If the TextBox is blank, the user clicks a command button next to it.  The
Query Design Grid opens, and is completely blank (like when creating a new
Query).  The user selects Tables, Fields, etc. and closes the QDG.  The
TextBox is then populated with the resulting SQL.

If the TextBox contains SQL, the user clicks the command button, and the QDG
is populated with the SQL from the TextBox.  The user makes changes, exits
the QDG, and the TextBox is populated with the changed SQL.

Is it just not possible for VBA to interface with the Query Design Grid?  I
forgot to mention previously that I'm using Access 2003 (if that matters).

If not, perhaps I can create a Temp Query , then use your code to open it
and populate it with SQL.  I'd make changes, save it, and then output the SQL
to a TextBox.  I'll give this a try, however, if there is any way to
interface directly with the QDG, I'd love to hear about it.

-Michael

Hi Fred.

With one small exception, I've got this working.  Here is the code behind
the CommandButton:

Private Sub cmdTextSQL_Click()
On Error Resume Next
 Dim qdf As DAO.QueryDef
 Set qdf = CurrentDb.QueryDefs("qryTextSQL")
 qdf.SQL = Me!rsTextSQL
 DoCmd.OpenQuery "qryTextSQL", acViewDesign
 Me!rsTextSQL = Replace(qdf.SQL, vbCrLf, " ")
 Set qdf = Nothing
End Sub

The one problem is that all the code runs as soon as I click the button.  I
need it instead to pause after the "DoCmd" line, wait for the Query to be
saved and closed, then resume execution with the "Me!rsTextSQL =" line.  Can
this be done?  Or is that why you suggested using two different buttons?

-Michael