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.
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?
-
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.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Implementing simple internal controls in the Microsoft Access application.
This following write-up describes a different way to copy Lotus Notes Calendar to Outlook. Along with this, we will also learn the reason behind this NSF to PST migration. Users can prefer different procedures as per their convenience.
With just a little bit of SQL and VBA, many doors open to cool things like synchronize a list box to display data relevant to other information on a form. If you have never written code or looked at an SQL statement before, no problem! ... give i…
Hi,
this video explains a free download that you can incorporate into your Access databases, or use stand-alone for contact management.
Contacts -- Names, Addresses, Phone Numbers, eMail Addresses, Websites, Lists, Projects, Notes, Attachments…
Suggested Courses
Course of the Month4 days, 12 hours left to enroll
587 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.