Skip to main content

AccessTr.neT


Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak

Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak

Çözüldü #1
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
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 19/05/2011, 14:09, Düzenleyen: volkan1.
Cevapla
Çözüldü #2
[/vb]msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then

Bu şekilde denermisin.
Son Düzenleme: 19/05/2011, 14:18, Düzenleyen: DUAYEN.
Cevapla
Çözüldü #3
Malesef hocam hata veriyor. Belkide ben yanlış yere eklemişimdir kodu. Tıklandığnda kodunda 11 satır cod var hangi satıra eklemeliyim.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 19/05/2011, 14:27, Düzenleyen: volkan1.
Cevapla
Çözüldü #4
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.
Cevapla
Çözüldü #5
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
Cevapla
Çözüldü #6
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
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 19/05/2011, 15:02, Düzenleyen: volkan1.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da