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
