Merhaba,

Siparis bilgileri ve siparis detay bilgilerini giris yaptigim bir formum var.
Bu formda bir buton ile baska bir form acip , siparis formundaki o andaki siparisin uretim bilgilerini giriyorum. Siparis bilgileri siparis tablosuna, detaylar siparis detay tablosuna, uretim bilgileri ise uretim tablosuna kayit oluyor. Ayni formdaki Sil butonu ile siparis ve detaylarini sorunsuz silebiliyorum. Ama ben istiyorum ki sil butonu ile uretim bilgilerini de sileyim. Bunu nasil bir kod ile yapabilirim ?

(21-10-2014, 01:01)aganamso demiş ki: Siparis bilgileri, siparis detay ve uretim tablosundaki verilerini, form uzerinde bulunan Sil butonu ile sorunsuz sileyim. Bunu nasil bir kod ile yapabilirim ?

Sn osmanaga;
Siparis bilgileri girildigi form uzerindeki sil butonu eylemini her tablodaki kayitlarin tumunun silinmesi icin tablo iliskilerinden index alanlarin iliskilendirilmesini bire-cok ayarlanip, kayit tutarliligi bolumundeki her uc bolumun isaretli olmasi Siparis bilgileri tablosundaki kayit silindiginde diger tablolarda da kayitlar silinecektir.

Sn dsezgin83260;

Benim tablolarımda ilişki yok. Sadece sorgu ve formlarda ilişki var. Bu durumda tablolarda ilişki kullanmadan kodlar ile bunu halledemez miyiz?

(21-10-2014, 16:19)aganamso demiş ki: Benim tablolarımda ilişki yok. Tablolarda ilişki kullanmadan kodlar ile bunu halledemez miyiz?

Sn osmanaga;
Formlarda iliskilendirdiginiz alan adlari ile degerlerini referans vererek SQL ile yapilabilir.
SQL :
Delete TabloAdi.* From TabloAdi Where ((OrtakSutunAdi)= [OrtakSutunAdiKutusu])
VBA :
currentdb.execute "Delete TabloAdi.* From TabloAdi Where ((OrtakSutunAdi)=" & Me.[OrtakSutunAdiKutusu] & ")"
Uc tablo icin ayri satir duzenlemeli.
Private Sub Buton_click()
dim Sayac as long
For Sayac=1 to 3
if Sayac=1 then TabloAdi ="Uretim"
if Sayac=2 then TabloAdi ="Siparis Detay"
if Sayac=3 then TabloAdi ="Siparis Bilgisi"
currentdb.execute "Delete " & TabloAdi & ".* From " & TabloAdi & " Where ((OrtakSutunAdi)=" & Me.[OrtakSutunAdiKutusu] & ")"
next Sayac
End sub

Sn. dezgin83260;

Çok teşekkür ederim. Yapmak istediğimi sizin gönderdiğiniz VBA kodu ile çözdüm.
Kod aşağıdaki gibidir. Benim gibi zorda kalan arkadaşların işine yarayacaktır. O nedenle kodu tekrar mesaja yazdım.


Private Sub Buton_click()
dim Sayac as long
For Sayac=1 to 3
if Sayac=1 then TabloAdi ="Uretim"
if Sayac=2 then TabloAdi ="Siparis Detay"
if Sayac=3 then TabloAdi ="Siparis Bilgisi"
currentdb.execute "Delete " & TabloAdi & ".* From " & TabloAdi & " Where ((OrtakSutunAdi)=" & Me.[OrtakSutunAdiKutusu] & ")"
next Sayac
End sub



Tekrar teşekkür ederim. Kolay gelsin.