Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim

1 2 3 4 5

(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ı:

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.

1 2 3 4 5