[AccessD] How do you hide things from end users

Rocky Smolin rockysmolin at bchacc.com
Mon Mar 8 10:12:31 CST 2010


I have invisible (transparent background, no border) text boxes in the upper
left and right corners.  When I click either one, the focus shifts to a
second invisible text box where I enter a code.  The left one locks the
database, the right one unlocks it. 

The only indication to the user that there's a box there is if they pass
their mouse over it and the pointer changes to the insertion icon.  

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Edward Zuris
Sent: Monday, March 08, 2010 7:27 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] How do you hide things from end users


 Thanks Rocky.

 I hope this works on Access 2000 MDB as well.

 BTW, how do you undo the changes to fix bugs ?

 Once again thanks.

 Sincerely,
 Ed Zuris.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Sunday, March 07, 2010 3:22 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] How do you hide things from end users


I believe it's the MenuBar property you want to set to false.  In my mde
startup I use:

    ChangeProperty "StartupForm", dbText, TheOpeningForm
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "StartupShowStatusBar", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "MenuBar", dbBoolean, False

Where Change Property is:
 
Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

HTH

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Edward Zuris
Sent: Sunday, March 07, 2010 1:37 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] How do you hide things from end users


 I am trying to hide some things from the end users.
 
 I have been turning things on and off in the  Tools -> Startup menu.
 
 Yet there is still a command menu line at the top  for File,  Edit, View,
etc.
 
 Is there anyway to hide that ?
 
 Also, using the Shift Key at application startup  time.  
 Is there a way to change that in case some end user knows  about that
feature ?
 
 Many Thanks.
 
 Sincerely,
 Ed Zuris.

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list