1) Access standart makrosu içinde yer alan "Kayıt sil" butonunun Vba kodu nedir acaba?
2) Bir de kimliğe bağlı kayıt sil komutunu öğrenmek istiyorum. Yani nasıl ki ;
Kod:
DoCmd.OpenForm "Form Adı", acNormal, , "[Kimlik]=" & Me.Kimlik
DoCmd.OpenForm "Form Adı", acNormal, , "[Kimlik]=" & Me.Kimlik
(05/10/2018, 11:53)notrino yazdı: Merhaba,
1) Access standart makrosu içinde yer alan "Kayıt sil" butonunun Vba kodu nedir acaba?
2) Bir de kimliğe bağlı kayıt sil komutunu öğrenmek istiyorum. Yani nasıl ki ;
komutu kimliğe bağlı bir form açıyor, aynı şekilde kimliğe bağlı bir silme olayı yaratmak istiyorum. Tşk.Kod:DoCmd.OpenForm "Form Adı", acNormal, , "[Kimlik]=" & Me.Kimlik
Set db = CurrentDb()
SQL = "SELECT * FROM standartlar_listesi_tablosu WHERE id = " & Me.txid & ";"
Set rs = db.OpenRecordset(SQL)
rs.Delete
DoCmd.RunSQL "DELETE * FROM (tablo_adi);"
(05/10/2018, 14:09)Allback yazdı:(05/10/2018, 11:53)notrino yazdı: Merhaba,
1) Access standart makrosu içinde yer alan "Kayıt sil" butonunun Vba kodu nedir acaba?
2) Bir de kimliğe bağlı kayıt sil komutunu öğrenmek istiyorum. Yani nasıl ki ;
komutu kimliğe bağlı bir form açıyor, aynı şekilde kimliğe bağlı bir silme olayı yaratmak istiyorum. Tşk.Kod:DoCmd.OpenForm "Form Adı", acNormal, , "[Kimlik]=" & Me.Kimlik
Merhaba,
Direk Vba kodunun karşılığı nedir bilmiyorum ama ben "koşula bağlı" silme işlemlerinde aşağıdaki kod bloğunu kullanıyorum.
Tablonuzdaki tüm veriyi silmek istiyorsanız aşağıdaki kodu kullanabilirsiniz.Kod:Set db = CurrentDb()
SQL = "SELECT * FROM standartlar_listesi_tablosu WHERE id = " & Me.txid & ";"
Set rs = db.OpenRecordset(SQL)
rs.Delete
Kod:DoCmd.RunSQL "DELETE * FROM (tablo_adi);"
DoCmd.RunCommand acCmdDeleteRecord
(05/10/2018, 14:52)ozanakkaya yazdı:DoCmd.RunCommand acCmdDeleteRecord
Private Sub Komut13_Click()
Set db = CurrentDb()
SQL = "SELECT * FROM Tablo2 WHERE Kimlik = " & Me.Kimlik & ";"
Set rs = db.OpenRecordset(SQL)
rs.Delete
DoCmd.RunCommand acCmdDeleteRecord
End Sub