Kayıt yapmadan uyarı verme.

[Kuzey1907]

Kaydet işlemi yapmadan önce soru kaydetmek istiyormusunuz sorusunu sormak istiyorum bir kod buldum ancak hata veriyor.Kod aşağıda
İyi Çalışmalar,

Private Sub CommandButton7_Click()
pir = _
MsgBox(" Gerçekten kadetmek istiyor musunuz?", _
vbYesNo)
If pir = vbNo Then Cancel = True

Dim rs As New AdODB.Recordset
If ListBox1.ListIndex < 0 Then
MsgBox "Silmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
Exit Sub
End If
Set rs = New AdODB.Recordset
If ListBox1.ListCount < 0 Then
MsgBox "Silme yapabilmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
Exit Sub
End If
Set rs = conn.Execute("Delete * from Tablo1 Where ID =" & CDbl(ListBox1.Column(0)))
Call listele
MsgBox "Kayıt Silindi.", vbOKOnly, "EVREN"
Set rs = Nothing
End Sub

 

[fedeal]

Merhaba, alttaki gibi denermisiniz hata verirse hangi satır veriyor?
Birde kaydetmek diyorsunuz o kodlar silmek için

Private Sub CommandButton7_Click()
If ListBox1.ListIndex < 0 Then
MsgBox "Silmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
Exit Sub
end if
pir = msgBox(" Gerçekten silmek istiyor musunuz?", vbYesNo,"isim yazabilirsin")
If pir = vbNo Then exit sub
Set rs = New AdODB.Recordset
Set rs = conn.Execute("Delete * from Tablo1 Where ID =" & CDbl(ListBox1.Column(0)))
Call listele
MsgBox "Kayıt Silindi.", vbOKOnly, "EVREN"
Set rs = Nothing
End Sub

 

[Kuzey1907]

Resim olarak ekledim.

 

[fedeal]

Private Sub CommandButton7_Click()
[COLOR="Red"]Dim rs As New AdODB.Recordset
Dim pir As String[/COLOR]
If ListBox1.ListIndex < 0 Then
MsgBox "Silmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
Exit Sub
end if
pir = msgBox(" Gerçekten silmek istiyor musunuz?", vbYesNo,"isim yazabilirsin")
If pir = vbNo Then exit sub
Set rs = New AdODB.Recordset
Set rs = conn.Execute("Delete * from Tablo1 Where ID =" & CDbl(ListBox1.Column(0)))
Call listele
MsgBox "Kayıt Silindi.", vbOKOnly, "EVREN"
Set rs = Nothing
End Sub

Kırmızı satırı ilave edin

 

[Kuzey1907]

Yardımlarınız için Teşekkürler.
İyi Çalışmalar,