Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

reports and forms hidden 2

Status
Not open for further replies.

ardan

Technical User
Apr 22, 2003
27
US
Hello,

I am following someone that have created a access 2002 database. When I start the database it displays a form which is called from the tools/startup menu. But the form is not listed in the database windows, matter of fact NO forms or reports or listed.

I can see the tables and queries but not the forms or reports. Under window/hide nothing is hidden and there are NO linked tables.

Anybody have an idea first how they hid the forms and second how can I see them..

Also not macros or Modules are listed..... and it is a .mdb

Thanks.

Ardan

End of Line
 
What are the properties of the shortcut you click to open this database ?
I guess it's a VB app.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886
 


Nope, no switchs at all. I am opening the .mdb file, that is what makes this so puzzling to me.

just "databasename.mdb"

that's it.....

thanks, ardan

End of Line
 
Can you loop thru the forms collection from the VBE window, just to get an idea, of what's in there?

For Each qry In CurrentDb.QueryDefs
Debug.Print qry.Name
iObjCount = iObjCount + 1
Next

For Each frm In CurrentProject.AllForms
Debug.Print frm.Name
iObjCount = iObjCount + 1
Next

For Each mdl In CurrentProject.AllModules
Debug.Print mdl.Name
iObjCount = iObjCount + 1
Next

For Each rpt In CurrentProject.AllReports
Debug.Print rpt.Name
iObjCount = iObjCount + 1
Next
 
How are ya ardan . . . . .

Won't hurt to run this as well, [blue]clears the Hidden Attribute[/blue] for forms & reports (just run it from the Immediate Window):
Code:
[blue]Public Sub UnHideFrmRpt()
   Dim obj As AccessObject, dbs As Object

   Set dbs = Application.CurrentProject
   
   For Each obj In dbs.AllForms
      Application.SetHiddenAttribute acForm, obj.Name, False
   Next
      
   For Each obj In dbs.AllReports
      Application.SetHiddenAttribute acReport, obj.Name, False
   Next

End Sub[/blue]

Calvin.gif
See Ya! . . . . . .
 
BINGO!

That did it, I can now access the forms and reports.

Thanks very MUCH!

ardan


End of Line
 
AceMan's solution "unhides" the hidden objects.

If you just need them visible to work on and want to keep them hidden from your users, you could simply goto tools | options, on the view tab check hidden objects while you want them visible and then uncheck hidden objects when you want to rehide them.

Hope this helps.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top