Yes
To Hide the database window click on tools and startup.
Uncheck all the boxes will do this.
To enable and disable the shift key is the following code
Private Sub Command0_Click()
On Error GoTo error
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
DoCmd.Beep
MsgBox "Shift Key Disabled", vbInformation
Exit Sub
error:
DoCmd.Beep
MsgBox "Shift Key already disabled", vbCritical
End Sub
Private Sub Command1_Click()
On Error GoTo error
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.refresh
DoCmd.Beep
MsgBox "Shift Key Enabled", vbInformation
Exit Sub
error:
DoCmd.Beep
MsgBox "Shift Key already enabled", vbCritical
End Sub
All you do is create a form and place a hidden link on another form to it and place two buttons there one for enable and one for disable. David Lerwill
"If at first you don't succeed go to the pub"