Sayın Hocalarım,
Ekli çalışmamda bulunan Teknikservis formunda SİL komutuna tıkladığımda form üzerinde bulunan Servisbilgileri formu
ile Ödemebilgileri forumlarındaki verileri silemiyorum,ilk tıklamamda siliniyor gibi görünsede yeni kayıt ekle dediğimde
bir önceki veriler tekrar geri geliyor,bu nedenle TEKNİKSERVİS formunda bulunan SİL komutunu nasıl düzenleyebilirim.
Saygılarımla.
Bu kod işinizi görebilir;
Kod:
DoCmd.SetWarnings False
Me.Alt_Form_Adi.SetFocus
With Me.Alt_Form_Adi
If MsgBox("Kayıt silinecek!! Emin misiniz?", vbYesNo, "Uyarı!") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "Kayıt Silindi!", vbOKOnly, "Bilgi!"
Else
Exit Sub
End If
End With
Sayın mntf02
Cevabınız ve ilginiz için teşekkür ederim,msjımda belirttiğim gibi silme işleminin yapılmasını
istiyordum,sizin cevabınızda ise sadece SERVİSHESABI formundaki alanları siliyor.
İyiçalışmalar.
Bu tür alt formlu formlarda alt alanları bağla, üst alanları bağla özelliği ile yapılan ilişkilendirme dışında tablo ilişkilendirmesi de yapılması gerekli.
T_TEKNİKSERVİS isimli tabloyu tasarım görünümünde aç ISLEMNO alanını birincil anahtar yap.
T_SERVISHESABI isimli tabloyu aç, işlem no alanı 2 olan verileri sil.
İlişkiler sayfasını aç, T_TEKNİKSERVİS ve T_SERVISHESABI isimli tabloları ilişkilendirme sayfasına ekle
T_TEKNİKSERVİS tablosundaki ISLEMNO ile T_SERVISHESABI isimli tablodaki ISLEMNO alanlarını "Bir-Çok" ilişkisi ile ilişkilendir. İlişkilendirme ayarında bulunan 3 onay kutusunu da işaretle
Eğer T_SERVISHESABI isimli tabloda islemno alanında 2 değeri olan veri varsa ve bu 2 nolu veri T_TEKNİKSERVİS isimli tabloda bulunmazsa ilişkilendirmeyi yapamazsın.
Üstte belirttiğim gibi önce T_SERVISHESABI isimli tablodaki işlem no alanı 2 olan verileri silmen gerekiyor.
Bu ilişkilendirmenin T_ODEMEBİLGİLERİ tablosundaki ISLEMNO alanı ile de yapılması gerekli.
Sayın Ozan hocam,
Ne kadar teşekkür etsem inanın yetersiz kalır,emeğinize sağlık Allah razı olsun.
İyi çalışmalar.
Saygılarımla.