(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
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
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
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.