ilişkili kayıt silme

[esref55]

Merhaba arkadaşlar
Bir ana form var, birde alt form.
Ana formdaki kayıt sili çalıştırdığımda, alt formadaki aynı kişiye ait kayıtları silmek istiyorum. Tablolarda kayıtlar olduğu için birincil anahtar oluşturamıyorum. Aşağıdaki komutu nasıl düzenlemeliyim.
Tablo1-Tablo2 deki [Ads] alanları uyumlu.
Private Sub Komut112_Click()
On Error Resume Next
If Me.NewRecord Then
Me.Undo
ElseIf MsgBox("Kayıt silinsin mi?", vbYesNo) = vbYes Then
Me.Recordset.Delete
End If
End Sub

 

[omerceri]

Sorunuzu tam anlamadım ama Tablo1 dayalı bir formda oluşuracağınız bir düğmenin koduna aşağıdaki kodları yazarsanız, Tablo2de Ads alanları formdaki Ads Metin kutusuna eşit satırları siler.
Dosyanızı yedekleyerek deneyin.......
Dim ys As New ADODB.Recordset
Sorgu1 = "Delete* FROM Tablo2 WHERE Tablo2.Ads=" & Me.Ads
ys.Open Sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

 

[esref55]

sayın omercerı
tablo1 deki silniyor tablo2 deki silinmiyor.

 

[omerceri]

Kodlar Tablo2deki kayıtları siler , Tablo1de de silmesi için Aşağıdaki kodları Yukardaki mesajdaki kodların altına yazın.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

[omerceri]

Kodlar aşağıdaki gibi örnek ekte
Dim ys As New ADODB.Recordset
Sorgu1 = "Delete* FROM Tablo2 WHERE Tablo2.Ads=" & """" & Me.Ads & """"
ys.Open Sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

[esref55]

Sayın omerceri
istediğim olmadı.
tablo1 e bağlı form1 - tablo 2 ye bağlı form 2
form2 form1 in alt formu.
form1 deki kişiyi silince altformdaki ona bağlı kayıtlarda silinsin istiyorum.

 

[Taruz]

Merhaba..

Önce alt formdaki verileri ortak alanı koşul gösterip sildirmelisiniz.. Sonra kişiyi sildirin.. Tabi tabloları ilişkilendirmiş olsaydınız bunlara gerek kalmazdı..

Örnek yapınızı eklerseniz kodlamada yardımcı olmaya çalışırım..

 

[esref55]

sayın omerceri ve sayın taruz ilginize teşekkür ederim.
içindeki bilgileri boşaltarak gönderiyorum. yardımcı olabilirseniz memnun olurum.
sağlık formundaki kişiyi silince, gorevlendirme formundaki kişiyi de silmeli.

 

[omerceri]

Kodları aşağıdaki gibi değiştirirseniz, Formdan da siler.
Dim ys As New ADODB.Recordset
Sorgu1 = "Delete* FROM Tablo2 WHERE Tablo2.Ads=" & """" & Me.Ads & """"
ys.Open Sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.Refresh

 

[omerceri]

Dosyanız ekte

 

[Taruz]

Merhaba..

Alternatif olarak bunuda kullanabilirsiniz..

On Error Resume Next
If Me.NewRecord Then
Me.Undo
ElseIf MsgBox("Kayıt silinsin mi?", vbYesNo) = vbYes Then
Set trz = Application.CurrentProject.Connection
    trz.Execute "Delete* FROM Tablo2 WHERE Tablo2.Ads=" & """" & Me.ADS & """"
    Me.Recordset.Delete
    trz.Close
    Set trz = Nothing
    Me.Requery
End If

 

[esref55]

Değerli Arkadaşlar
aynı şekilde arşive aktar butonuna kod yazabilirmiyiz. yani arşive aktarırkende
alt forma ait tablo bilgisini silebilirmiyiz.

 

[esref55]

Sayın Taruz ve Sayın Omerceri
Yardımlarınız için çok teşekkür ederim. Sorunum halledildi.