Skip to main content

AccessTr.neT


Sorguyu Çalıştırmadan Önce Onaylama Yapmak İstiyorum

Sorguyu Çalıştırmadan Önce Onaylama Yapmak İstiyorum

#3
Yukarıda yazdığım cevabın kod halini aşağıda bulabilirsiniz.

Lütfen olumlu/olumsuz geri dönüş yapınız.


Kod:
Dim YesNo As VbMsgBoxResult

YesNo = MsgBox("Kayıtlar silisin mi?" & vbCr & "Dikkat! Bu işlem geri alınamaz.", vbYesNo, "İşlem Onayı")

Select Case YesNo

Case vbYes
DoCmd.Close acQuery, "silme_sorgusu"
Case vbNo
MsgBox("İşlem iptal edildi.", vbOKOnly, "Uyarı")
End Select

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Sorguyu Çalıştırmadan Önce Onaylama Yapmak İstiyorum - Yazar: Allback - 09/10/2018, 08:05
Task