Excelden Veri Alma

1 2 3 4 5 6 7 8 9
16/02/2020, 08:19

accessman

zaten harika olan örnekte kendimce daha rahat anlaşılması için ufak tefek değişiklikler yaptım
16/02/2020, 12:37

feraz

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.
16/02/2020, 13:19

accessman

ş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
16/02/2020, 13:34

feraz

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.
17/02/2020, 20:04

feraz

(08/02/2020, 20:43)feraz yazdı: Dosya güncellendi
17/02/2020, 20:05

feraz

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"
1 2 3 4 5 6 7 8 9