(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

Kodu Seç

Kodu Kopyala

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

Kodu Seç

Kodu Kopyala

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

taşımanın bana faydası var çünkü genelde sorular kısmına girdiğim için uğraşılması gerekmeyen konular dikkatimi dağıtmıyor

(24/03/2020, 14:28)berduş yazdı: taşımanın bana faydası var çünkü genelde sorular kısmına girdiğim için uğraşılması gerekmeyen konular dikkatimi dağıtmıyor

Haklısınız ama konuda kilitlensinki cevap yazılamasın bu durumda abey.

Tabii bu sadece düşüncem.

(24/03/2020, 14:27)feraz yazdı:

(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

Kodu Seç

Kodu Kopyala

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

Kodu Seç

Kodu Kopyala

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

kendim yazdıklarımı takip edemiyorum bu konuda size hak veriyorum

@feraz bey aslında ben de sadece sizin gibi üyeyim sizden tek farkım ki kabul etmiş olsaydınız sizin de olacaktı soru taşıyabilmem ve sınırsız dosya ekleyip indirme gibi bir kaç şey. gerisi yönetimin taktiri ben sadece zamanımı değerlendirmek ve bir şeyler öğrenmek için cevap yazıyorum. forumdaki sorular dışında ne Access kullanırım ne de excel. yani benim için önemli olan bulmaca çözmek.

not: bulmaca çözmeyi seviyor olmam başkasının beni kullanmasına izin vereceğim anlamına gelmez,
bunu kimseye atfen söylemiyorum lütfen kimse alınmasın ama bazen gerçekten de "öğrenmeye çalışıyorum" diyerek tüm işi bize yıkmaya çalışanların olduğu da gerçek.