(24/03/2020, 14:22)accessman yazdı: güzel olmuş sn. @feraz

ben şöyle yapıyorum ferazın eklediği aktif control değişikliğine göre geri sayan fonksiyona value yi ekledim
bu timer da süre dolunca soruyor

Dim result As Integer

        Dim mesaj As String

        

        

        mesaj = "Uzun Süredir İşlem Yapmadınız" & vbCrLf & _

        "Bu Haliyle Kaydetmek için  -->  Evet" & vbCrLf & _

        "Kaydetmeden Çıkmak İçin  -->  Hayır" & vbCrLf & _

        "Beklemek için  -->  İptal" & vbCrLf & vbCrLf & _

        "Uzun Süredir İşlem Yapmadınız"

        

        result = customClosingMsgBox(mesaj, "Süre Doldu", 1, vbYesNoCancel)



        If (result = -1) Then

            If (editsAndAdditions(False, False)) Then

                Me.Ayrıntı.BackColor = GetHexColor("#FFFFFF") '  'https://color.provishal.com/

                Me.Undo

            Else

                Me.Ayrıntı.BackColor = GetHexColor("#E0F7FA")

            End If

        ElseIf (result = 6) Then 'yes

            If (editsAndAdditions(False, False)) Then

                Me.Ayrıntı.BackColor = GetHexColor("#FFFFFF") '  'https://color.provishal.com/

            Else

                Me.Ayrıntı.BackColor = GetHexColor("#E0F7FA")

            End If

        ElseIf (result = 7) Then 'no

            Me.Undo

            If (editsAndAdditions(False, False)) Then

                Me.Ayrıntı.BackColor = GetHexColor("#FFFFFF") '  'https://color.provishal.com/

            Else

                Me.Ayrıntı.BackColor = GetHexColor("#E0F7FA")

            End If

        ElseIf (result = 2) Then 'cancel

            TimerInterval = 1000

        End If

herhangi bir hayat belirtisi olmazsa 1 sn sonra -1 kabul edip kaydı geri alıyor
eğer süre bitmeden çıkılmak istenirse before update gidiyor oradada mesaj ile soruyor

Dim sonuc As Integer

            Dim mesaj As String

        

            mesaj = "Şu Bilgiler Değişti." & vbCrLf & vbCrLf & _

            degisiklik & vbCrLf & _

            "Değişiklikler Kaydedilecek ?" & vbCrLf & _

            "Emin misiniz ? "

        

            sonuc = customClosingMsgBox(mesaj, "Emin misiniz ? ", 1, vbYesNo)



            If (sonuc <> 6) Then

                Call closingMsgBox("Veriler Kaydedilmedi", " İşlem iptal edildi.", 1)

                Me.Undo

            ElseIf (sonuc = 6) Then 'yes

                Call KayitCasusu(Form, [id], Nz(Me.sicil.OldValue, ""))

            End If

cevap alamazsa kaydetmeden çıkıyor

Evet abey hertürlü olabilir.Benimkisi sadece kısa bir örnekti.Bazen düşünüyorum acaba forumda 2 adey accessman olarak üyemi var diye kodları inceledikten sonra