aktarma sorgusu

[esref55]

merhaba arkadaşlar
giriş formundaki tayin tarihi kısmına bir tarih girdikten sonra kayıt tuşuna basıp, arşive aktar dediğmde, aktarma yapılıyor fakat sonunda #silindi yazıları çıkıyor, tekrar onu silmek zorunda kalıyorum. Yardımcı olursanın memnun olurum. Birde bu aktarma esnasında çıkan mesajları azaltabilirmiyim. Teşekkür ederim.

 

[beab05]

Merhabalar;

Bence alttaki yöntemi kullanınız, tablolarınız çok fazla alan içerdiği ve farklı olduğu için örnek kodu uygulayamadım.. Ama bana kalırsa arşiv olacak tabloyu direkt kopyala-yapıştır ile birebir oluşturun ve alttaki kod ile arşive gönderme ve silmeyi yapınız.. Çok daha hızlı ve pratik olur..

    Set bb = Application.CurrentProject.Connection
    bb.Execute "insert into ARSIV  SELECT * from SAGLIK where xxx= '" & kriter_alan_ismi &"'"
    bb.execute "delete from SAGLIK where xxx= '" & kriter_alan_ismi & "'"

    bb.Close
    Set bb = Nothing

    me.form.requery

 

[esref55]

Sayın Beab05, kodu denedim, ancak bir hata verdi.

 

[beab05]

Tekrra merhaba;
Hata vermesi çok normal çünkü aynen yapıştırmışsınız. Yukarıdaki kriter alanları düzenlemeniz gerekiyordu.. Herneyse ben düzenledim..
Kodu alttaki gibi değiştiriniz..

Ekleme ve silme sorgularını da silebilirsiniz uygulamanızdan

Set bb = Application.CurrentProject.Connection
    bb.Execute "insert into ARSIV  SELECT * from SAGLIK where ADS = '" & Me.Açilan_Kutu114 & "'"
    bb.Execute "delete from SAGLIK where ADS= '" & Me.Açilan_Kutu114 & "'"

    bb.Close
    Set bb = Nothing
    Me.Açilan_Kutu114.Requery
    Me.Requery

 

[esref55]

çok teşekkür ederim

 

[assenucler]

Teşekkürler Sayın beab05 hocam...