taraernst
asked on
Hiding queries when opened from dialog box
How might you hide a query in code when it is being opened from the On Click event procedure? I have a dialog box that passes parameters to 6 different queries and the query results are displayed in a report. When the command button for the dialog box is clicked, all 6 queries open and then the report displaying the results. Current code looks like this:
Private Sub cmdRunContribTransCountQry _Click()
On Error GoTo Err_cmdRunContribTransCoun tQry_Click
DoCmd.OpenQuery "qryContribTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryDistribTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryLoansTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryContribElapsedAvg", acViewNormal, acEdit
DoCmd.OpenQuery "qryDistribElapsedAvg", acViewNormal, acEdit
DoCmd.OpenQuery "qryLoansElapsedAvg", acViewNormal, acEdit
DoCmd.OpenReport "rptERScorecard", acViewPreview
Exit_cmdRunContribTransCou ntQry_Clic k:
Exit Sub
Err_cmdRunContribTransCoun tQry_Click :
MsgBox Err.Description
Resume Exit_cmdRunContribTransCou ntQry_Clic k
End Sub
Any suggestions?
Private Sub cmdRunContribTransCountQry
On Error GoTo Err_cmdRunContribTransCoun
DoCmd.OpenQuery "qryContribTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryDistribTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryLoansTransCount", acNormal, acEdit
DoCmd.OpenQuery "qryContribElapsedAvg", acViewNormal, acEdit
DoCmd.OpenQuery "qryDistribElapsedAvg", acViewNormal, acEdit
DoCmd.OpenQuery "qryLoansElapsedAvg", acViewNormal, acEdit
DoCmd.OpenReport "rptERScorecard", acViewPreview
Exit_cmdRunContribTransCou
Exit Sub
Err_cmdRunContribTransCoun
MsgBox Err.Description
Resume Exit_cmdRunContribTransCou
End Sub
Any suggestions?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
As another option, you could covert each of your queries to SQL.
Private Sub cmdRunContribTransCountQry _Click()
On Error GoTo Err_cmdRunContribTransCoun tQry_Click
dim db as database
dim strSQL as string
set db = currentdb
strSQL="SQL version of qryContribTransCount"
db.execute strSQL
set db = currentdb
strSQL="SQL version of qryDistribTransCount"
db.execute strSQL
etc...
DoCmd.OpenReport "rptERScorecard", acViewPreview
Exit_cmdRunContribTransCou ntQry_Clic k:
Exit Sub
Err_cmdRunContribTransCoun tQry_Click :
MsgBox Err.Description
Resume Exit_cmdRunContribTransCou ntQry_Clic k
End Sub
This solution too may be off base because I do not know exactly what your queries do.
Private Sub cmdRunContribTransCountQry
On Error GoTo Err_cmdRunContribTransCoun
dim db as database
dim strSQL as string
set db = currentdb
strSQL="SQL version of qryContribTransCount"
db.execute strSQL
set db = currentdb
strSQL="SQL version of qryDistribTransCount"
db.execute strSQL
etc...
DoCmd.OpenReport "rptERScorecard", acViewPreview
Exit_cmdRunContribTransCou
Exit Sub
Err_cmdRunContribTransCoun
MsgBox Err.Description
Resume Exit_cmdRunContribTransCou
End Sub
This solution too may be off base because I do not know exactly what your queries do.
so your code looks like this:
Private Sub cmdRunContribTransCountQry
On Error GoTo Err_cmdRunContribTransCoun
currentdb.querydefs("qryCo
currentdb.querydefs("qryDi
currentdb.querydefs("qryLo
currentdb.querydefs("qryCo
currentdb.querydefs("qryDi
currentdb.querydefs("qryLo
DoCmd.OpenReport "rptERScorecard", acViewPreview
Exit_cmdRunContribTransCou
Exit Sub
Err_cmdRunContribTransCoun
MsgBox Err.Description
Resume Exit_cmdRunContribTransCou
End Sub
to tell you the truth... i don't know exactly what these queries are doing. so i may be way off base.
dovholuk