AccessTr.neT
Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak (/konu-silme-sorgusunu-evet-hayir-onayindan-sonra-calistirmak.html)

Sayfalar: 1 2


Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - volkan1 - 19/05/2011

Herkeze iyi çalışmalar ;
Bir butona atadığım silme sorgusunu, butona tıklandığında hemen tabloyu silmek yerine Evet/Hayır şeklinde bir mesaj kutusuyla uyarı yapıp evet tıklanırsa silmesini hayır tıklanırsa iptal etmesini yapmak istiyorum. Yardımlarınız için teşekkürler.

butonun tıklandığında olay kodu ;
Private Sub Komut99_Click()
On Error GoTo Err_Komut99_Click
Dim stDocName As String
stDocName = "Silme_Kullanıcı _Gırıs_Cıkıs"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Komut99_Click:
Exit Sub
Err_Komut99_Click:
MsgBox Err.Description
Resume Exit_Komut99_Click
End Sub
ve evet hayırlı mesaj ktusu kodu;
If MsgBox("SİLMEK İSTİYORMUSUN", 308, "UYARI") = 7 Then 
End If



Cvp: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - DUAYEN - 19/05/2011

[/vb]msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then

Bu şekilde denermisin.



Cvp: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - volkan1 - 19/05/2011

Malesef hocam hata veriyor. Belkide ben yanlış yere eklemişimdir kodu. Tıklandığnda kodunda 11 satır cod var hangi satıra eklemeliyim.


Cvp: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - DUAYEN - 19/05/2011

Private Sub Komut99_Click() On Error 
GoTo Err_Komut99_Click Dim stDocName
As String stDocName =
Silme_Kullanıcı _Gırıs_Cıkıs"
DoCmd.OpenQuery stDocName, acNormal,
acEdit Exit_Komut99_Click: Exit Sub
Err_Komut99_Click: MsgBox
Err.Description Resume
Exit_Komut99_Click
msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then
End sub



bu şekilde denermisiniz.



Cvp: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - DUAYEN - 19/05/2011

Bak birde bu kodu denersin kendine göre uyarlarsın
krz = Form.Name & " silmek istediğinize, emin misiniz?"
If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then



Cvp: Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak - volkan1 - 19/05/2011

Malesef hata veriyor. Kod yapıştırldığında kırmızı oluyor.
(19/05/2011, 14:58)DUAYEN yazdı: Bak birde bu kodu denersin kendine göre uyarlarsın
krz = Form.Name & " silmek istediğinize, emin misiniz?"
If MsgBox(krz, vbYesNo, "aykutc soruyor") = vbYes Then

deniyorum