Something you may consider (just hit me) Hide the Database window. In your main menu you can add a procedure to trap keystrokes and prevent them from using F11 to show the DB window and use your own KeyCode combination to view the DB window...
However here is what I have for you so far if you want to take this approach.
Alright, I know this may be a bit crude and it will not work if they open a table in design view. However if they just click to open a table this will work.
What I did was create a dummy field, named whatever then use the lookup portion to make this work. My Rowsource I just added a select statement any select statement or table it will never get used. Then in the rowsource type I set to "Fragged" which is the name of my function.
- Function Fragged(ctl As Control, lngID As Long, lngRow As Long, _
-
lngCol As Long, intCode As Integer) As Variant
-
MsgBox "Your user name has been recorded and reported!",VBCritical
-
Application.Quit
-
Bye_Fragged:
-
Exit Function
-
-
Err_Fragged:
-
' MsgBox Err.Number & " " & Err.Description, vbOKOnly + vbCritical, "Fragged"
-
Fragged = False
-
Resume Bye_Fragged
-
End Function
-
Can you say good bye... :)
You can even put something in there that will record this users actions.