Shawn Wysocki
09-27-2000, 10:57 AM
I want my opening form to open full screen so my users can't get into, or even access access when there in the database.
|
View Full Version : Opening a form in full screen Size Shawn Wysocki 09-27-2000, 10:57 AM I want my opening form to open full screen so my users can't get into, or even access access when there in the database. andyh 10-02-2000, 04:06 AM firstly, ensure that the check boxes (all of them) in tools-startup are not clicked. Also have the default form you want to open first selected in the Display form bit of tools-startup then you can size the form and auto centre it making the boarders sizeable whilst you do this and then have no borders. the only way to enter the workings of the dbf are to hold the 'Shift key' to bypass the startup criteria you have just specified. if you feel that your users will discover thisyou need to go one stage further: Create two on dblclick events for 2 labels on your form that say the following: Private Sub label1_DblClick(Cancel As Integer) Dim db As Database Set db = CurrentDb db.Properties.Delete "AllowByPassKey" db.Properties.refresh MsgBox "Access Enabled" End Sub ----------------------------------- Private Sub label2_DblClick(Cancel As Integer) Dim db As Database Dim prp As Property Set db = CurrentDb Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False) db.Properties.Append prp MsgBox " Access Disabled" End Sub ------------------------------------------ you then create a new module and enter the following code: Global gintpasswordflag As Integer Global gOkToclose As Integer The result will be that only when you double click the label1 will the shift key backdoor access be available. double click label2 and it is disabled again. I use this alot and a tip is perhaps to use 2 new labels that are transparent and place them somewhere that only you know about - i have mine on top of some graphics - enabled over green bit and disable over a red bit - your choice. Andy |