Hiding queries

[uncletreetrunk]

I want to hide/protect my query because I don't want users to be able to modify the design view.
So I found this code online:

dim db as database, qd as querydef
set db = currentdb()
for each qd in db.querydefs
msgbox qd.name
next
set db = nothing

I don't know if this works and I don't know where to put it to make it work ><

Also if you have an alternative solution, I am all ears!


Thanks in advanced!

[RuralGuy]

All that will do is display each Query Name in a MessageBox one at a time. Have you considered *only* releasing an ACCDE and not the ACCDB?

[uncletreetrunk]

Ahh thanks for the response! mmm gotcha! I'm using the ACCDE version and query is still available in design view Or did I do something wrong?

[RuralGuy]

Hmmm... I'd better go check.

[RuralGuy]

Well it looks like ACCDE locks out design view on Forms, Reports and Modules but not Tables, Queries and Macros. How about going into Access Options and unchecking the options you want to rescrict? You could also lock out the ShiftBypass option.

[uncletreetrunk]

Hmm... that's interesting. Will do thanks! I've heard of that...what does the shift bypass do? I know it'll bypass form on database load but that's it :P

[RuralGuy]

ShiftBypass: http://access.mvps.org/access/api/api0068.htm
*NOTE* don't lock yourself out of the db!

[uncletreetrunk]

oooo Thanks I'll try not too xD although I have an unprotected backup jussstt in case

[RuralGuy]

Smart move!