Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Course Of The Month
8 days, 6 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Hiding queries when opened from dialog box
Posted on 2002-06-04
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
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?
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?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
3 Comments
use currentdb.querydefs("YourQ
i think that's what you're looking for...
if not let us know.
dovholuk
i think that's what you're looking for...
if not let us know.
dovholuk
further explained:
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
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
As another option, you could covert each of your queries to SQL.
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.
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.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents. The steps to find the Templates folder path are …
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette.
This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string.
Specify the first argument, which is the expression to be returned:
Specify the second argument, which …
Suggested Courses
Course of the Month8 days, 6 hours left to enroll
734 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.