(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
herhangi bir hayat belirtisi olmazsa 1 sn sonra -1 kabul edip kaydı geri alıyorDim 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
eğer süre bitmeden çıkılmak istenirse before update gidiyor oradada mesaj ile soruyor
cevap alamazsa kaydetmeden çıkıyorDim 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
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
