(05/10/2018, 14:52)ozanakkaya yazdı:DoCmd.RunCommand acCmdDeleteRecord
Teşekkürler,
Böylece Bire-Çok bağlantılı iki tablo arasındaki ilişkiden oluşan Form ve alt formumdaki verileri komple şu kod satırı ile sırasıyla silmiş oluyorum. (Önce alt formdaki kayıt siliniyor, sonra da ana formdaki silinmiş oluyor. Tek taşla iki kuş..)
Kod:
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