[Webinar] Streamline your web hosting managementRegister Today

x
?
Solved

How do I hide tables and forms from user and make a form open everytime application initializes

Posted on 2007-11-20
5
Medium Priority
?
711 Views
Last Modified: 2013-11-29
I am using msaccess 2007 and I want to hide my tables and forms and queries from users. I also want a form to pop up when they initialize the application. I did it with ms access 2003 but with 2007 I just don't see the options.

Thanks
0
Comment
Question by:syedasimmeesaq
5 Comments
 
LVL 120

Assisted Solution

by:Rey Obrero (Capricorn1)
Rey Obrero (Capricorn1) earned 600 total points
ID: 20322048
in access 2007
click the logo in the upper left corner of the access window
select access options
0
 
LVL 9

Author Comment

by:syedasimmeesaq
ID: 20322493
But how do I use it to do above. I remember in msaccess 2003 there was something where you can use startup and choose a form to open everytime an application will initialize.
Thanks
0
 

Assisted Solution

by:tripsma
tripsma earned 600 total points
ID: 20322872
1) Click the logo in the upper left corner of the access window
2) Select access options
3) Select Current Database
4) In the Application Options area ( at the top) go to teh Display Form pick list and select the form you would liek to start up when the database is opened.
0
 
LVL 2

Accepted Solution

by:
Remi Gelinas earned 800 total points
ID: 20322966
Using code, you can do the following

Public Function Autoexec()
On Error Resume Next
    Dim iAttr As Long, aDef As Variant
    iAttr = dbSystemObject + dbHiddenObject

    '#############################
    '# Hide tables
    CurrentDb.TableDefs("MSysACEs").Attributes = iAttr            'Table Systeme
    CurrentDb.TableDefs("MSysQueries").Attributes = iAttr         'Table Systeme
    CurrentDb.TableDefs("MSysObjects").Attributes = iAttr         'Table Systeme
    CurrentDb.TableDefs("MSysAccessXML").Attributes = iAttr       'Table Systeme
    CurrentDb.TableDefs("MSysIMEXSpecs").Attributes = iAttr       'Table Systeme
    CurrentDb.TableDefs("MSysIMEXColumns").Attributes = iAttr     'Table Systeme
    CurrentDb.TableDefs("MSysAccessObjects").Attributes = iAttr   'Table Systeme
    CurrentDb.TableDefs("MSysRelationships").Attributes = iAttr   'Table Systeme

    '###########################################
    '# Hide modules
    For Each aDef In CurrentProject.AllModules
        Application.SetHiddenAttribute acModule, aDef.Name, True
    Next
   
    '###############################################
    '# Hide forms
    For Each aDef In CurrentProject.AllForms
        If aDef.Name <> "Menu" Then
            Application.SetHiddenAttribute acForm, aDef.Name, True
        End If
    Next
   
    '###############################################
    '# Open default form
    Call DoCmd.OpenForm("Menu", acNormal, , , acFormEdit, acWindowNormal)

End Function
0
 
LVL 9

Author Comment

by:syedasimmeesaq
ID: 20444257
I have not forgotten about this question. I am doing the other parts. I will be back on this in a week. Thanks
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have had my own IT business for a very long time. I started mostly with hardware and after about a year started to notice a common theme. I had shelves with software boxes -- Peachtree, Quicken, Sage, Ouickbooks -- and yet most of my clients were…
Instead of error trapping or hard-coding for non-updateable fields when using QODBC, let VBA automatically disable them when forms open. This way, users can view but not change the data. Part 1 explained how to use schema tables to do this. Part 2 h…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

640 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question