kayıtları silme işleminde istediğimi yapamama

1 2
31/05/2014, 11:24

suat03

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.
31/05/2014, 12:05

C*e*l*o*y*c*e

Merhaba örneginizi eklemeyi unuttunuz sanırım..
31/05/2014, 12:11

suat03

Ö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.
31/05/2014, 14:25

ozanakkaya

Önce sıkıştır/onar, sonra ziple.
31/05/2014, 15:37

suat03

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.
31/05/2014, 17:39

ozanakkaya

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
1 2