sil makrosu

[akd]

Merhaba arkadaşlar,
Formadan tabloya ADO ile kaytı yatığım bir çalışmam var,
Formadan hangi kod ile tablodaki kayıtı şilebilirim.
Kayıt silme kodu lazım.
İyi çalışmalar...

 

[karaayhan]

slm abdulkadir bey...

Private Sub kayitsil_Click()
Dim msg As String
Dim style
Dim kimlikint As Integer

msg = rstper!adsoyad & " isimli kaydı" & Chr(13) & _
"silmek istediğinize emin misiniz?" ' Define message.

style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

response = MsgBox(msg, style, "KAYIT SİLME")
If response = vbYes Then ' User chose Yes.
rstper.MovePrevious
kimlikint = rstper!Kimlik
rstper.MoveNext

rstper.Delete
rstper.Update
kimlikara (kimlikint)
formabas
'rstper.MoveFirst

'Else ' User chose No.

End If


End Sub

 

[akd]

Merhaba sayın Karaayhan,
Malesef kodda eksiklik var galiba,
tabloya bağlantı yok, bazı terimlere degişken tanımlaması yapılamammış.
Eğer mümkünse bu kodun çalıştığı belgeyi eklerseniz, nasıl yapıldığına bakıp
ona göre uyarlamalar yaparız herhalde.
İyi akşamlar...

 

[karaayhan]

hocam sizin örneği mail atın olmazsa ona uyarlayım.
problem çıkacağını sanmıyorum ama yine de bakmam lazım.

 

[ozanakkaya]

arkadaşlar ben aşağıda yazdığım kod ile tablodaki verileri siliyorum. Bi deneyin

Private Sub Komut0_Click()
Set db = CurrentDb


If MsgBox("Tablodaki Kayıtlar Silinsin mi?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.SetWarnings False
'ARŞİVEVRAKKAYIT silinecek tablo adı
strSQL = "DELETE * FROM ARŞİVEVRAKKAYIT;"
db.Execute strSQL

DoCmd.SetWarnings True

Set db = Nothing
End If
End Sub