Hiçbir fikrim yok ama başına obj koyduklarına ve createobject dediklerine gore sizce de object uygun olmaz mı?
Createobject("wscript.shell").popup Mesajda 3 Buton Ve Default Seçim
ş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
![[Resim: MTVlNzllOWJjZjI2MTc.gif]](http://flashresim.com/upload/MTVlNzllOWJjZjI2MTc.gif)
Ö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 sayesindebiraz haksızlık olmuyor mu @feraz bey)
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
eğer süre bitmeden çıkılmak istenirse before update gidiyor oradada mesaj ile soruyor
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 Ifeğ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(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 sayesindebiraz haksızlık olmuyor mu @feraz bey)
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
Karar almıştım konulara yazmayacağım diye dayanamadım
Konuyu Okuyanlar: 3 Ziyaretçi
