Merhaba ustalar. Ekte projemle beraber
Excel dosyası da var. Projemde bulunan "Excelden Aktar" butonuna tıkladığında ekteki
Excel dosyasındaki verileri
Access projeme aktarmasını istiyorum. Aktardıktan sonra ne kadar veri aktarmışsa örneğin "5 kayıt başarıyla aktarıldı" şeklinde mesaj gösterirse ve excelden aktarılan verinin aynısı veritabanında varsa "Kayıtlar Mevcut Üzerine Yazılsın Mı?" şeklinde uyarırsa çok iyi olur. Çok uğraştım yapamadım. Yardımcı olursanız çok sevinirim. Şimdiden çok tşkler.
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Ayrıca, bu zamana kadar cevap alamamanızın sebebini özel mesaj ile belirttim.
Hocam elinize sağlık tam istediğim gibi olmuş. Yalnız Giriş Tarihi, Çıkış Tarihi ve Barınma verilerini almıyor?
Merhaba,
Örnekte diğer verileri aldıran kod mevcut,
DoCmd.RunSQL "INSERT INTO DEFTER_KAYIT ( yil, [KAYIT NO], [KONUNUN ÖZETİ], KAYIT_TARIHI, SAYISI, geldigiyer ) SELECT TOP 1 tbl_Gecici.[KAYIT YILI], tbl_Gecici.[KAYIT SAYISI], tbl_Gecici.[ADI SOYADI], tbl_Gecici.[KAYIT TARİHİ], tbl_Gecici.[TC NO], tbl_Gecici.[İŞYERİ ADI] FROM tbl_Gecici WHERE tbl_Gecici.[KAYIT YILI]=" & GYili & " AND [KAYIT SAYISI]=" & GKayitSayi & ""
Alınmasını istediğiniz diğer alanları kendiniz ekleyiniz.
(08/12/2017, 16:05)ozanakkaya yazdı: [ -> ]Merhaba,
Örnekte diğer verileri aldıran kod mevcut,
DoCmd.RunSQL "INSERT INTO DEFTER_KAYIT ( yil, [KAYIT NO], [KONUNUN ÖZETİ], KAYIT_TARIHI, SAYISI, geldigiyer ) SELECT TOP 1 tbl_Gecici.[KAYIT YILI], tbl_Gecici.[KAYIT SAYISI], tbl_Gecici.[ADI SOYADI], tbl_Gecici.[KAYIT TARİHİ], tbl_Gecici.[TC NO], tbl_Gecici.[İŞYERİ ADI] FROM tbl_Gecici WHERE tbl_Gecici.[KAYIT YILI]=" & GYili & " AND [KAYIT SAYISI]=" & GKayitSayi & ""
Alınmasını istediğiniz diğer alanları kendiniz ekleyiniz.
Hocam kendi istediğim alanları kendim ekledim ama ana tablo olan DEFTER_KAYIT tablosuna atmıyor. Geçici tabloya atıyor.
Merhaba,
Eklediğiniz örnekteki kodda 2 problem var.
1-) from kodundan önce virgül olmamalı, belirlenen alanlar yazıldıktan sonra virgül eklenmez
2-) BARINIYORMU şeklinde alan eklemişsiniz. Ancak geçici tablodaki alanın adı [BARINI YORMU] şeklinde
kodun düzgün hali:
DoCmd.RunSQL "INSERT INTO DEFTER_KAYIT ( yil, [KAYIT NO], [KONUNUN ÖZETİ], KAYIT_TARIHI, SAYISI, geldigiyer, [TARİH], [ALINDIĞI TARİH], barinma ) SELECT TOP 1 [KAYIT YILI], [KAYIT SAYISI], [ADI SOYADI], [KAYIT TARİHİ], [TC NO], [İŞYERİ ADI], [GİRİŞ TARİHİ], [ÇIKIŞ TARİHİ], [BARINI YORMU] FROM tbl_Gecici WHERE [KAYIT YILI]=" & GYili & " AND [KAYIT SAYISI]=" & GKayitSayi & ""