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

Teşekkürler Sn Sledgeab. Ancak bir de nereye yazacağımızı belirtirseniz. Malum acemiyiz özellikle de kod yazmada. Saygılar.

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.

Teşekkürler sn Sledgeab. Evde akşam deneyeceğim.. Saygılar..

İşlem yapılmadığı taktirde formun 5 dakika sonra otomatik olarak kapanmasını istiyoruz. Aynı çalışma üzerinden yapılabilir mi, nasıl?

Teşekkür ederim.

7. mesajda Sayın @ozanakkaya Hocamınızın paylaştığı kod zaten bu işlevi görüyor. Yapmak istediğiniz nedir gerekiyorsa bu konuyu içeriğinde link olarak belirttiğiniz yeni konu açarak sorunuzu iletin lütfen. Örnek uygulama üzerinden konuyu devam ettirmeyin ki hem konu karışmasın ve uzamasın, hem de benzer soruya cevap arayanlar rahatlıkla ulaşabilsin ve inceleme şansına sahip olsun.