Private Sub Form_Timer()
On Error GoTo err_Form_Timer
Const IDLEMINUTES = 5
Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime
Dim ActiveFormName As String
Dim ActiveControlName As String
Dim ExpiredMinutes
On Error Resume Next
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
If (PrevControlName = "") Or (PrevFormName = "") _
Or (ActiveFormName <> PrevFormName) _
Or (ActiveControlName <> PrevControlName) Then
PrevControlName = ActiveControlName
PrevFormName = ActiveFormName
ExpiredTime = 0
Else
ExpiredTime = ExpiredTime + Me.TimerInterval
End If
ExpiredMinutes = (ExpiredTime / 1000) / 60
If ExpiredMinutes >= IDLEMINUTES Then
ExpiredTime = 0
ZAMAN DOLDUĞUNDA YAPILMASI İSTENEN
End If
exit_Form_Timer:
DoCmd.Hourglass False
Exit Sub
err_Form_Timer:
MsgBox err.Description
Resume exit_Form_Timer
End Sub
Gerisayım Sayacı ile Kapanan Form
Teşekkürler Sn Sledgeab. Ancak bir de nereye yazacağımızı belirtirseniz. Malum acemiyiz özellikle de kod yazmada. Saygılar.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
kusra bakma benremix, kodda "Private Sub Form_Timer()" yazdığı için anlaşılır sandım.
Form özelliklerinden zaman dolduğunda olayına yazılacak, Süre ölçer aralığı "100" olarak belirlenecek.
Form özelliklerinden zaman dolduğunda olayına yazılacak, Süre ölçer aralığı "100" olarak belirlenecek.
Teşekkürler sn Sledgeab. Evde akşam deneyeceğim.. Saygılar..
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Konuyu Okuyanlar: 1 Ziyaretçi