AccessTr.neT

Arkadaşlar iyi günler iyi çalışmalar.
Eklemiş olduğum programda kayıtlar mevcut. Bu kayıtlarda bir müşteri ile ilgili tamamen bağım koptuğunda müşteri kayıt ekranından o müşteriyi sildiğimde o müteriye ait bütün kayıtları otomatik olarak siliyorki bu zaten olması gereken.
Ancak kayıtlı müşterimin araç kayıt ekranında bulnan kaydını sildiğimde o araçla ilgili kayıtlı poliçenin silinme işlemini yapamadım.
Müşterim aracını sattığında ben gitip o müşterime ait araç kayıt ekranındaki kaydı sileceğim ve otomatik olarak da o plakaya ait bütün poliçe kayıtları otomatik silinsin istiyorum.
İlişkilendirme ile yapmaya çalıştım fakat bu seferde kayıt yapmama izin vermiyor.
Lütfen göndermiş olduğum programı inceleyip nasıl yapmam gerektiği konusunda yardımcı olurmusunuz.
Eklediğim tabloyunun görünmediğini farkettim. Birkaç kez düzetle yapıp tekrar ekledim ama nedence eklenmiyor.

Merhaba örneginizi eklemeyi unuttunuz sanırım..

Örneği ekledim fakat nedense bir türlü gözükmüyor. Sonradan farkettim Düzenle ile üç kez yine ekleme yaptım üçünde de yine eklememiş. Nedenini bilmiyorum.

Önce sıkıştır/onar, sonra ziple.

Valla Ozan bey tılsım sizde sanırım. İnanın tam 6 kez düzelt diye sorumu yeniledim ekledim fakat eklenmedi. Şimdi aynı şeyi yaptım eklendi. Bildiğim bütün bilgisayar bilgileri allak bullak oldu.
Şunda ekledim. görünüyor.

musterigiris formundan müşteri sildiğinde silinen kişinin kayıtlı poliçelerinin silinmesi için musterigiris formundaki silme butonunun kodlarını aşağıdaki ile değiştir.

Private Sub Komut48_Click()

On Error GoTo Err_Komut48_Click

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE musterino FROM policekayıt WHERE (((musterino)=[Formlar]![müsterigirisi]![musterino]));"

DoCmd.SetWarnings True

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut48_Click:

    Exit Sub

Err_Komut48_Click:

    MsgBox Err.Description

    Resume Exit_Komut48_Click

    

End Sub

musteriaracgirisi formundan araç sildiğinde araç ile ilgili poliçelerin silinmesi için musteriaracgirisi formundaki silme butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştir.

Private Sub Komut77_Click()

On Error GoTo Err_Komut77_Click



DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE aracid FROM policekayıt WHERE (((aracid)=[Forms]![musteriaracgirisi]![aracid]));"

DoCmd.SetWarnings True

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



Exit_Komut77_Click:

    Exit Sub



Err_Komut77_Click:

    MsgBox Err.Description

    Resume Exit_Komut77_Click

    

End Sub