Skip to main content

AccessTr.neT


Form Kullanılmadığında otomatik kapanma

Form Kullanılmadığında otomatik kapanma

Çözüldü #1
Aşağıdaki örnekte form kullanılmadığında değil windows kullanılmadığında kapanıyor.

Windows kullanılsa bile (örnek:dosya açma-kapama) form kullanılmıyor ise kapatması için ne yapabiliriz..




Const IDLEMINUTES = 1 yazan yere (1 yazıyor 1 dakika sonra kapanır,30 yazarsan 30 dakika sonra kapanır) istediğini yazabilirsin
..kod.............
Private Sub Form_Timer()
Const IDLEMINUTES = 1 ' Kaç dakika istiyorsanız onu yazın

Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime

Dim ActiveFormName As String
Dim ActiveControlName As String
Dim ExpiredMinutes

On Error Resume Next

' Get the active form and control name.

ActiveFormName = Screen.ActiveForm.name
If Err Then
ActiveFormName = "No Active Form"
Err = 0
End If

ActiveControlName = Screen.ActiveControl.name
If Err Then
ActiveControlName = "No Active Control"
Err = 0
End If

' Record the current active names and reset ExpiredTime if:
' 1. They have not been recorded yet (code is running
' for the first time).
' 2. The previous names are different than the current ones
' (the user has done something different during the timer
' interval).
If (PrevControlName = "") Or (PrevFormName = "") _
Or (ActiveFormName <> PrevFormName) _
Or (ActiveControlName <> PrevControlName) Then
PrevControlName = ActiveControlName
PrevFormName = ActiveFormName
ExpiredTime = 0
Else
' ...otherwise the user was idle during the time interval, so
' increment the total expired time.
ExpiredTime = ExpiredTime + Me.TimerInterval
End If

' Does the total expired time exceed the IDLEMINUTES?
ExpiredMinutes = (ExpiredTime / 1000) / 60
If ExpiredMinutes >= IDLEMINUTES Then
' ...if so, then reset the expired time to zero...
ExpiredTime = 0
' ...and call the IdleTimeDetected subroutine.
'IdleTimeDetected ExpiredMinutes

DoCmd.Quit
End If

End Sub
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Form Kullanılmadığında otomatik kapanma - Yazar: nsahin - 04/01/2010, 14:05