Tablodan Tabloya Kayıt-Ekleme ve Silme Sorgusu

İyi geceler;

Ana tablomuz= veriler
Süresi Bitenler tablosu= bitenler
ana Form= veriler

veriler tablosuna kayıt olan evraklardan , ilgili evrakın zamanaşımı süresi bitmişse BİTENLER tablosuna atıyor ve anaformda ki gizlenmiş ARŞİV liste kutusuna kayıt oluyor.

Yapılmak istenen, zamanasimi<date() ise, ana tablodan sil ve bitenler tablosuna ekle.

birkaç tane sitede ki örneklerden silme sorgusu yaptım ancak, veriler tablosundan sildiği gibi, bitenler tablosunuda siliyor.
Tşk.

Konu hakkında ki öneri ve yardımlarınızı bekliyorum.

Tşk.

ekleme sorgusunun Sql kodları

INSERT INTO bitenler ( Suc_No, Savcilik_No, Ad_Soyad, Zamanasimi, Sonyanit_Tarihi )

SELECT Veriler.Suc_No, Veriler.Savcilik_No, Veriler.Ad_Soyad, Veriler.Zamanasimi, Veriler.Sonyanit_Tarihi

FROM Veriler

WHERE (((Veriler.Zamanasimi)<Date()));

silme sorgusunun Sql kodları

DELETE Zamanasimi FROM Veriler WHERE (((Zamanasimi)<Date()));

Teşekkür ederim, ana formun;

Private Sub Form_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "bitenleriekle"
DoCmd.OpenQuery "bitenlerisil"
DoCmd.SetWarnings True

ekledim, bitenleri tabloya ekliyor(öncedende ekliyordu) ancak ana form listem1 kutusunda halen görüyorum..Yanlış yerde mi çalıştırıyorum sorguyu !

listem1.requery Kodu Ekle, liste yenilensin.

Recalc

Me.listem1.Requery

bu iki kod var, ben mesaja yazmadım...Biraz uğraşayım, biryerde hata yapıyorum ama, anlamadım.