Skip to main content

AccessTr.neT


Gerisayım Sayacı ile Kapanan Form

Gerisayım Sayacı ile Kapanan Form

#7
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
Cevapla
#8
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


Cevapla
#9
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.
Cevapla
#10
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


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da