zaten harika olan örnekte kendimce daha rahat anlaşılması için ufak tefek değişiklikler yaptım
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.
ş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
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.
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"