LAN Performance

[Guest]

I have a packaged and deployee version of an Access application over our
network, the BE resides on the server. The performance is pretty good but the
moment a PC goes into 'sleep mode' with the instance still open, performance
slows down. What would cause the application to slow down? When the machine
is active again, the application is a bit faster but still not as fast as
before.

 

[Arvin Meyer]

Patient: Doctor it hurts when I do that

Doctor: Don't do that

Seriously, It is not a good idea to let machines with any application which
maintains an active server connection "sleep" It is far to easy for a user
simply reboot or turn a machine off, causing corruption. All of our laptops
are set to stay awake while not on battery power.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Guest]

OK, maybe this is a bit out of our realm but is there a way to terminate
active connections when these machines go to sleep? It is inevitable that
users will walk away from their machines in the middle of something and stay
away longer than they expect. We do have a password protection required to
activate the machine again. Is there some setting we can set to end their
session? If you are unsure of this subject, can you point me in the right
direction?

 

[Arvin Meyer]

There is no setting, but you can use a hidden form which tests activity
every minute or so and will simply close the app when there is none. The
form's TimerInterval is set to 60000 (1 minute). This form is visible and
allows a user to move the mouse or keyboard over it and delay the closing by
another 30 minutes. You could easily just remove that code, hide the form
and quit the app after the first 30 minutes. BTW, the form opens with the
app and has no way to close it without shutting down the app.

Option Compare Database
Option Explicit
Dim lngActivityCounter As Long

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_Timer()
'
'NOTE: The Timer Interval = 60000 (1 minute)
'If no activity by user for 30 minutes, then quit application
lngActivityCounter = lngActivityCounter + 1
'30 minutes = 1800 sec (30 min x 60 sec/min)
'After 30 minutes (1800 sec via: 20 min x 60 sec/min) of no activity,
'close application completely
If lngActivityCounter >= 30 Then
Beep
Me.Doomsday.Visible = True
If Me!Doomsday.Caption = 0 Then
DoCmd.Quit acQuitSaveAll
Else
' This counts down 15 seconds before quiting
Me!Doomsday.Caption = Me!Doomsday.Caption - 1
End If
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[adsl]

I have a packaged and deployee version of an Access application over our
network, the BE resides on the server. The performance is pretty good but
the
moment a PC goes into 'sleep mode' with the instance still open,
performance
slows down. What would cause the application to slow down? When the
machine
is active again, the application is a bit faster but still not as fast as
before.

 

[adsl]

Patient: Doctor it hurts when I do that

Doctor: Don't do that

Seriously, It is not a good idea to let machines with any application
which
maintains an active server connection "sleep" It is far to easy for a user
simply reboot or turn a machine off, causing corruption. All of our
laptops
are set to stay awake while not on battery power.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[adsl]

OK, maybe this is a bit out of our realm but is there a way to terminate
active connections when these machines go to sleep? It is inevitable that
users will walk away from their machines in the middle of something and
stay
away longer than they expect. We do have a password protection required to
activate the machine again. Is there some setting we can set to end their
session? If you are unsure of this subject, can you point me in the right
direction?

 

[adsl]

There is no setting, but you can use a hidden form which tests activity
every minute or so and will simply close the app when there is none. The
form's TimerInterval is set to 60000 (1 minute). This form is visible and
allows a user to move the mouse or keyboard over it and delay the closing
by
another 30 minutes. You could easily just remove that code, hide the form
and quit the app after the first 30 minutes. BTW, the form opens with the
app and has no way to close it without shutting down the app.

Option Compare Database
Option Explicit
Dim lngActivityCounter As Long

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_Timer()
'
'NOTE: The Timer Interval = 60000 (1 minute)
'If no activity by user for 30 minutes, then quit application
lngActivityCounter = lngActivityCounter + 1
'30 minutes = 1800 sec (30 min x 60 sec/min)
'After 30 minutes (1800 sec via: 20 min x 60 sec/min) of no activity,
'close application completely
If lngActivityCounter >= 30 Then
Beep
Me.Doomsday.Visible = True
If Me!Doomsday.Caption = 0 Then
DoCmd.Quit acQuitSaveAll
Else
' This counts down 15 seconds before quiting
Me!Doomsday.Caption = Me!Doomsday.Caption - 1
End If
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[adsl]

There is no setting, but you can use a hidden form which tests activity
every minute or so and will simply close the app when there is none. The
form's TimerInterval is set to 60000 (1 minute). This form is visible and
allows a user to move the mouse or keyboard over it and delay the closing
by
another 30 minutes. You could easily just remove that code, hide the form
and quit the app after the first 30 minutes. BTW, the form opens with the
app and has no way to close it without shutting down the app.

Option Compare Database
Option Explicit
Dim lngActivityCounter As Long

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_Timer()
'
'NOTE: The Timer Interval = 60000 (1 minute)
'If no activity by user for 30 minutes, then quit application
lngActivityCounter = lngActivityCounter + 1
'30 minutes = 1800 sec (30 min x 60 sec/min)
'After 30 minutes (1800 sec via: 20 min x 60 sec/min) of no activity,
'close application completely
If lngActivityCounter >= 30 Then
Beep
Me.Doomsday.Visible = True
If Me!Doomsday.Caption = 0 Then
DoCmd.Quit acQuitSaveAll
Else
' This counts down 15 seconds before quiting
Me!Doomsday.Caption = Me!Doomsday.Caption - 1
End If
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[adsl]

I have a packaged and deployee version of an Access application over our
network, the BE resides on the server. The performance is pretty good but
the
moment a PC goes into 'sleep mode' with the instance still open,
performance
slows down. What would cause the application to slow down? When the
machine
is active again, the application is a bit faster but still not as fast as
before.

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

 

[adsl]

There is no setting, but you can use a hidden form which tests activity
every minute or so and will simply close the app when there is none. The
form's TimerInterval is set to 60000 (1 minute). This form is visible and
allows a user to move the mouse or keyboard over it and delay the closing
by
another 30 minutes. You could easily just remove that code, hide the form
and quit the app after the first 30 minutes. BTW, the form opens with the
app and has no way to close it without shutting down the app.

Option Compare Database
Option Explicit
Dim lngActivityCounter As Long

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'reset the timer
lngActivityCounter = 0
Me.Doomsday.Caption = 15
Me.Doomsday.Visible = False
End Sub

Private Sub Form_Timer()
'
'NOTE: The Timer Interval = 60000 (1 minute)
'If no activity by user for 30 minutes, then quit application
lngActivityCounter = lngActivityCounter + 1
'30 minutes = 1800 sec (30 min x 60 sec/min)
'After 30 minutes (1800 sec via: 20 min x 60 sec/min) of no activity,
'close application completely
If lngActivityCounter >= 30 Then
Beep
Me.Doomsday.Visible = True
If Me!Doomsday.Caption = 0 Then
DoCmd.Quit acQuitSaveAll
Else
' This counts down 15 seconds before quiting
Me!Doomsday.Caption = Me!Doomsday.Caption - 1
End If
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access