L
LisaB
When you print a query, it prints the name of the query as the Title. How
can you change this so that it prints a something different as the title
without changing the queries name.
--------------
1) I have a query that gets changed based on a SQL statement that the user
selects
2) The query's name is qryBulderTemp however, based on the SQL statement the
user selects I want the Title that is printed on the query to be reflective
3) I have a database table with with four fields (Name/Title, SQL Statement,
Description, UniqueKey)
4) I have a form that show the user the Title and Description, and a hidden
field for the SQL statement (txtSQL)
5) the user picks the query they want to see then clicks on a QueryView
button
This is the code behind the QueryView button
-------------------------------------------
Private Sub cmdQueryView_Click()
Dim Q As QueryDef
If IsNull(Me.txtSQL) Then
Exit Sub
Else
SQLStatement = Me.txtSQL
Set TheDB = CurrentDb()
Set Q = TheDB.QueryDefs("qryBuilderTemp")
Q.SQL = SQLStatement
Q.Close
DoCmd.ShowToolbar "Query Datasheet", A_TOOLBAR_NO
DoCmd.ShowToolbar "QueryBuilder", A_TOOLBAR_YES
DoCmd.OpenQuery "qryBuilderTemp", , acReadOnly
End If
End Sub
can you change this so that it prints a something different as the title
without changing the queries name.
--------------
1) I have a query that gets changed based on a SQL statement that the user
selects
2) The query's name is qryBulderTemp however, based on the SQL statement the
user selects I want the Title that is printed on the query to be reflective
3) I have a database table with with four fields (Name/Title, SQL Statement,
Description, UniqueKey)
4) I have a form that show the user the Title and Description, and a hidden
field for the SQL statement (txtSQL)
5) the user picks the query they want to see then clicks on a QueryView
button
This is the code behind the QueryView button
-------------------------------------------
Private Sub cmdQueryView_Click()
Dim Q As QueryDef
If IsNull(Me.txtSQL) Then
Exit Sub
Else
SQLStatement = Me.txtSQL
Set TheDB = CurrentDb()
Set Q = TheDB.QueryDefs("qryBuilderTemp")
Q.SQL = SQLStatement
Q.Close
DoCmd.ShowToolbar "Query Datasheet", A_TOOLBAR_NO
DoCmd.ShowToolbar "QueryBuilder", A_TOOLBAR_YES
DoCmd.OpenQuery "qryBuilderTemp", , acReadOnly
End If
End Sub