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