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

1 2 3 4 5

Hiçbir fikrim yok ama başına obj koyduklarına ve createobject dediklerine gore sizce de object uygun olmaz mı?

şu şekilde kullanılırsa tıklanmadığında yapacağınız işlemleri yaptırabilirsiniz

Dim objWshShell As Variant

        Dim intResult As Variant

        

        Set objWshShell = CreateObject("WScript.Shell")

        intResult = objWshShell.PopUp("Kaydedilmeyecek...", 1, "Süre bitti...", vbYesNoCancel + vbQuestion + vbDefaultButton3)



        Select Case intResult

            Case -1

                MsgBox "Tıklanmadı"

            Case vbYes

                MsgBox "Yes"

            Case vbNo

                MsgBox "No"

            Case vbCancel

                MsgBox "Cancel"

        End Select

Bende bir örnek hazırladım dahada gelişebilir.
Örnek öncedende dediğim gibi form ile oldu.

Dosyayı herzaman olduğu gibi yine yükleyemiyoruz sağolsun berduş hocamız sayesinde Accesste heralde application.Wait yok bulamadım.Timer ile yaptım.

https://dosya.co/kj6ylkzcgd9u/süreli_for...j.rar.html

Option Compare Database



Dim say As Integer



Private Sub Form_Load()

    Me.TimerInterval = 1000

End Sub



Private Sub Form_Timer()

    say = say + 1

    If say = 5 Then Komut3_Click

End Sub



Private Sub Komut1_Click()

    MsgBox "Evet"

End Sub



Private Sub Komut2_Click()

    MsgBox "Hayir"

End Sub



Private Sub Komut3_Click()

    DoCmd.SetWarnings False

    DoCmd.Close acForm, Me.Name

    DoCmd.SetWarnings True

End Sub

(24/03/2020, 14:08)feraz yazdı: Dosyayı herzaman olduğu gibi yine yükleyemiyoruz sağolsun berduş hocamız sayesinde soru çözülünce cevaplara taşınması gerekiyor, ama bazı sorulara verilen cevapların ardı arkası kesilmiyorsa ben ne yapayım
sağolsun sayın @accessman da genelde geri dönüş yapmadığı ve konu dallanıp budaklandığı için cevplanmış olduğunu düşündüğüm an taşıyorum)

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

(24/03/2020, 14:15)berduş yazdı:
(24/03/2020, 14:08)feraz yazdı: Dosyayı herzaman olduğu gibi yine yükleyemiyoruz sağolsun berduş hocamız sayesinde soru çözülünce cevaplara taşınması gerekiyor, ama bazı sorulara verilen cevapların ardı arkası kesilmiyorsa ben ne yapayım
sağolsun sayın @accessman da genelde geri dönüş yapmadığı ve konu dallanıp budaklandığı için cevplanmış olduğunu düşündüğüm an taşıyorum)

Taşınan konuya cevap yazılıp dosya eklenemedikten sonra taşınmanın bir mantığı kalmıyor.
Normal başka forumlardan gördüğüm konu çözülürse kilitleniyor ve ne mesaj nede dosya ekleniyor abey.

Access hocamızı rahat bırakalım Böyle kabul edeceğiz

1 2 3 4 5