(25/02/2015, 16:23)atoz112 yazdı: sayın mehami,


bahsettiğiniz talebinize yönelik olarak aşağıdaki bilgilerin yeterli olacağı kanısındayım.

öncelikle,arşiv niteliğinde tablo oluşturmak için,site içerisinde arama yapmanız sonucu elde edebileceğiniz bilgileri ve örneklerini barındıran konuları incelemeniz size fikir verebilmesi ve bunları uygulamanıza yönelik verimli olacaktır.kısa bir bilgilendirme amacı ile,arşiv tablosu için,yapılması gerekenler ise;

AŞAMA-1:
kayıtların bulunduğu tablodaki alanların içerisinden hangi alanların oluşturulacak olan arşiv tablosunda yer alacağının (ya da,tercihe göre tüm alanlar da olabilir) belirlenerek bu arşiv tablosunun hazırlanması gerekmektedir.

AŞAMA-2:
aşağıdaki kodlama kalıbından hareket ile;gerekli kısımlardaki alan bilgilerini,kendi ilgili alan bilgilerinizi yazarak uygun bir düzenlemede bulunmalısınız.

Kod:

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False

'eski tablodan arşiv tablosuna aktarılması için
DoCmd.RunSQL "INSERT INTO arsiv_tablosu (alan1, alan2, alan3) SELECT eski_tablo.alan1, eski_tablo.alan3, eski_tablo.alan3 FROM eski_tablo WHERE (((eski_tablo.ID)=me.ID))"


'eski tablodan ilgili kaydın silinmesi için
DoCmd.RunSQL "DELETE * FROM eski_tablo WHERE (((eski_tablo.ID)=me.ID))"
DoCmd.SetWarnings True

me.requery
me.refresh

son olarak,benzer işlemler kullanılarak,diğer sorunuza cevap olması adına,arşiv tablosundan
eski tabloya aktarımı da sağlayabilirsiniz.bilginize.

iyi çalışmalar,saygılar.

Sayın Atoz112 İlginize çok tşk ederim;
Bulunmuş  olduğunuz öneriler ve vermiş olduğunuz örnek kodlamadan hareketle şöyle bir kod oluşturdum..Ancak hata vermekte yine..

tbl_hepsi adlı tabloyu kopyala-yapıştır ile ARSİV_TABLOSU olarak kayıt ettim..Yani tüm alanlar bu sayede  eşit-aynı sırada ve aynı isimde oldu..

Hazırladığım kod bu;
DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
 
DoCmd.RunSQL "INSERT INTO ARSİV_TABLOSU (adsoyad,tc,dosyano,sagliktani,ekyetersizlik, egitseltanisi,egitselokul_karari,okulu,okulcinsi,sinif,cinsiyet,tel,adres,destekegitim, destekraporu_bitis,destek_1ayonce,skr_1aySonrabitecek,skr_bitis,uygulanantest,testor,randevu, degerlendiren,kaynastirmagrubu,ilkdefa,kurula_gonder,kurul_no,kurul_tarihi,randevu_saati, dogum_tarihi,rapor_durumu)
SELECT tbl_hepsi.adsoyad, tbl_hepsi.tc, tbl_hepsi.dosyano, tbl_hepsi.sagliktani, tbl_hepsi.ekyetersizlik, tbl_hepsi.egitseltanisi, tbl_hepsi.egitselokul_karari, tbl_hepsi.okulu, tbl_hepsi.okulcinsi, tbl_hepsi.sinif, tbl_hepsi.cinsiyet, tbl_hepsi.tel, tbl_hepsi.adres, tbl_hepsi.destekegitim, tbl_hepsi. destekraporu_bitis, tbl_hepsi.destek_1ayonce, tbl_hepsi.skr_1aySonrabitecek, tbl_hepsi.skr_bitis, tbl_hepsi.uygulanantest, tbl_hepsi.testor, tbl_hepsi.randevu, tbl_hepsi. degerlendiren, tbl_hepsi.kaynastirmagrubu, tbl_hepsi.ilkdefa, tbl_hepsi.kurula_gonder, tbl_hepsi.kurul_no, tbl_hepsi.kurul_tarihi, tbl_hepsi.randevu_saati, tbl_hepsi. dogum_tarihi, tbl_hepsi.rapor_durumu

FROM tbl_hepsi WHERE (((tbl_hepsi.ID)=me.ID))"
 
 
DoCmd.RunSQL "DELETE * FROM tbl_hepsi WHERE (((tbl_hepsi.ID)=me.ID))"
DoCmd.SetWarnings True
 
me.requery
me.refresh
 

BU kodu frm_hepsi adlı formumda bulunan arşive gönder butonunun tıklandığında olay yordamına yapıştırıyorum..

Nerede hata yapmaktayım??Yardımlarınızı bekliyor saygılar sunuyorum..

NOT:Burada boşluklar çıktı ama asıl kodda(yapıştıdığım kodda) bu boşluk yok..