+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Excelden Veri Alma (/konu-excelden-veri-alma--86523.html)
Cvp: Excelden Veri Alma - accessman - 16/02/2020
zaten harika olan örnekte kendimce daha rahat anlaşılması için ufak tefek değişiklikler yaptım
Cvp: Excelden Veri Alma - feraz - 16/02/2020
Bende anlaşılması için kısaltmıştım.31.mesajdaki aclink ile yapıldıysa benim için son haliydi.Sonuçta aynı kodlar sadece berduş hoca 15 sütunluk yaptıysa ben 5 sütuna düşürmüştüm sadece
Seçeneklerden sıkıştır onar olayınıda işaretleyin çünkü kıd her çalışmasında vt boyut büyüyor.Buda accessin dezavantajı heralde.
Cvp: Excelden Veri Alma - accessman - 16/02/2020
şimdi bu koda eklenmesi gereken
tablo adı aynı olup içeriği farklı olan Access tablosunu silip yeni tablo oluşturması veya farklı isimde tablo ismi sorması
bunun ile ilgili feraz kod eklemişti ama hangi konudaydı unuttum
ikinci olarak dosya yolu sabit ise bunu const da tutup dosyayı her seferinde seçmemek yani
bir metin kutusunda dosya yolu hazır gelecek değiştirmek isterse gözattan dosya yolunu değiştirecek
bu değişiklik ile moduldeki const değeride değişecek bir sonrakine yeni yol hazır olarak gelecek
bu da daha önce paylaşılmıştı
üçüncü olarak yeni excelde olmayıp eski Access tablosunda olanların asıl Access tablosundan kesilip yeni bir pasife düşenler tablosuna eklenmesi
yani demem o ki mesela personel çıkış yapmış ama bir ay sonra fikir değiştirdi tekrar çalışmak istiyor bunu tamamen silmek mantıksız
pasifler dosyasına alıp bekletmek lazım
acizane bunlarda eklenirse daha mükemmel olur diye düşünüyorum
Cvp: Excelden Veri Alma - feraz - 16/02/2020
Bence dediklerinizi ayrı konu altında açıp yaptığınız örnek dosyayıda oraya eklerseniz daha iyi olur çünkü.
Cevap yazıldıkça sayfa sayı artıyor ve aranan dosya vs... bulması zorlaşıyor
Benim düşüncem tabii.
Cvp: Excelden Veri Alma - feraz - 17/02/2020
(08/02/2020, 20:43)feraz yazdı: Dosya güncellendi
Cvp: Excelden Veri Alma - feraz - 17/02/2020
ilgili satır alttaki gibi değiştirilmesi gerekiyormuş.
Güncelleyim istedim
Kod:
If Not IsNull(DLookup("Name", "MSysObjects", "Name='TmpTablo' and type in (1,4,6)")) Then DoCmd.DeleteObject acTable, "TmpTablo"