Skip to main content

AccessTr.neT


Excelden Veri Alma

Excelden Veri Alma

#37
zaten harika olan örnekte kendimce daha rahat anlaşılması için ufak tefek değişiklikler yaptım
.rar ExceldenVeriAl_hy_acc.rar (Dosya Boyutu: 49,48 KB | İndirme Sayısı: 13)
Son Düzenleme: 16/02/2020, 09:02, Düzenleyen: accessman.
Cevapla
#38
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 sadeceImg-grin

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.
Cevapla
#39
ş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
Cevapla
#40
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.
Cevapla
#41
(08/02/2020, 20:43)feraz yazdı: Dosya güncellendi
.rar ExceldenVeriAl_hy Al,güncelle ve her ikisi beraber 3.rar (Dosya Boyutu: 40,4 KB | İndirme Sayısı: 12)
Cevapla
#42
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"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task