-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Apply the boot
- Thread starter Sully38
- Start date
SydneyGeek
MrExcel MVP
- Joined
- Aug 5, 2003
- Messages
- 12,251
If you want to see who is in the database, the .ldb file in the same folder as the DB has that information.
If you want to boot them out, you could use this:
1. An empty text file in the same folder, called DataBaseOn.txt
2. A startup form that opens in Hidden mode, which (a) opens your main menu and (b) looks periodically for the text file. If it is not found (eg you changed the name to DatabaseOff.txt), the DB closes with a message.
Adjust the interval using the Timer property of the form, which is entered in milliseconds. eg, 60000 is 1 minute.
Denis
If you want to boot them out, you could use this:
1. An empty text file in the same folder, called DataBaseOn.txt
2. A startup form that opens in Hidden mode, which (a) opens your main menu and (b) looks periodically for the text file. If it is not found (eg you changed the name to DatabaseOff.txt), the DB closes with a message.
Code:
Private Sub Form_Load()
DoCmd.OpenForm "Title Page", acNormal
End Sub
Private Sub Form_Timer()
Dim sPath As String
Dim i As Integer
Dim dStartTime As Double
Dim dEndTime As Double
sPath = CurrentProject.Path
With Application.FileSearch
.NewSearch
.LookIn = sPath
.SearchSubFolders = False
.FileName = "DatabaseOn.txt"
.MatchTextExactly = True
.fileType = msoFileTypeAllFiles
If .Execute() > 0 Then
'keep database going
Else
'turn off for maintenance
dStartTime = Timer
MsgBox "This database will be closing for maintenance"
DoCmd.Quit
End If
End With
End SubAdjust the interval using the Timer property of the form, which is entered in milliseconds. eg, 60000 is 1 minute.
Denis
Upvote
0
blacklabel
Board Regular
- Joined
- Aug 30, 2006
- Messages
- 144
I'm semi new to Access. Would I paste this code in with the code for the form that comes up when the database is launched? Also, when I create a form, I don't see a selection for timer properties. I really love the idea of this code if I could only get it to work for me.
Thanks in advance.
Thanks in advance.
Upvote
0
SydneyGeek
MrExcel MVP
- Joined
- Aug 5, 2003
- Messages
- 12,251
Yes. In the form's Properties (in Design view), go to the Events tab. Near the bottom you will see On Timer and Timer Interval.
First, On Timer...
Double-click the blank line so you see Event Procedure. Click the Builder (...) button at the end of the row and you will be in the code window. Paste the Form_Timer code in there.
If you want to launch another form when you load this one, create an On Load event and insert the Form_Load code. Change the name of the second form to suit.
This is the Timer Interval line. Enter the desired interval as I described in my previous post.
Denis
Upvote
0
SydneyGeek
MrExcel MVP
- Joined
- Aug 5, 2003
- Messages
- 12,251
I had some feedback re opening a form in hidden mode. Here's how to do it in code...
You attach that to the Load event of your startup form (Menu, Switchboard, whatever) and frmMonitor will open in the background.
Denis
Code:
DoCmd.OpenForm "frmMonitor",,,,,acHiddenDenis
Upvote
0
SydneyGeek
MrExcel MVP
- Joined
- Aug 5, 2003
- Messages
- 12,251
I'm not sure why it errored out -- often this happens if a library isn't referenced, and in that case the number represneted by the constant has to be used instead. I'll follow it up, but commenting the line shouldn't affect anything.
Denis
Denis
Upvote
0
SydneyGeek
MrExcel MVP
- Joined
- Aug 5, 2003
- Messages
- 12,251
Update -- Create a reference to the Microsoft Office Library if you don't already have one. That should remove the error, because FileSearch is part of the Office Library.
Denis
Denis
Upvote
0
