Ana form ve alt formdaki kayitlar silme

[erset]

Oncelikle herkese merhaba,
konudan da anlisilacagi gibi. ana formumda bulunan bir butonla ayni anda
ana form ve alt formda bulunan kayitlari silmek istiyorum.
Bunun icin bana bir yol gosterebilirmisin.
Simdiden tesekkurler...

 

[gulsum1]

benim taksitlendirme örneğindeki kodu incele senin derdinin devası o

 

[erset]

Tam olarak anlatamadim...

Oncelikle cevabiniz icin tesekur ederim Gulsum hanim, "Taksitlendirme" ornginizi incledim fakat tam olarak anliyamadim. Galiba ben tam anlatamamis olabilirim. Benim yapmak istedigim ana formumda bulunan kayit sil butonuna ana formda ve alt formda bulunan kayitlarin silinmesi Bunu query kullanarak yapiyorum. Fakat ben bunu qery ile yapmak istemiyorum. Su anda ana form veya alt formdabulunan kayitlari ayri ayri silebiliyorum. Benim istedigim tek butonla iki formumda bulunan kayitlari silmek.
Yardimlarinizi bekliyorum.
Herkese kolay gelsin...

 

[gulsum1]

cevap

Private Sub Komut17_Click()

Dim Rs As New ADODB.Recordset
Rs.Open "tarih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("no") = no.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
Set Rs = Nothing
Set conn = Nothing
End Sub

bu bir tablodan formdaki no alanı ile eşleşen kayıtların tamamını silmeye yarar üstarafınada normal silme kodu eklersen o senin ana formdaki kaydını siler bu kod ise altformdaki ilgili kayıtların hepsini siler