1 - Accesste Olmayan veriyi Alma/ Değişeni Güncelleme
2 - Sadece değişeni güncelleme
3 - Sadece olmayı ekleme
4 -
(07/02/2020, 22:28)feraz yazdı: Bu arada güncellenmek için bağlanılan Excel açık olursa program donuyor yani Excel kapalı olmalı galiba.bağlı tablolarda eğer ilişkili Excel dosyası açıksa dosya kilitleniyordu bu dosyada dosyanın geçici kopyası oluşturularak sorun giderildi BasZmn satırının altına eklenecek kod: Geçici Dosya oluşturma
BasZmn = Now '<--zaten var alttakiler eklenecek
Dim fDialog As Office.FileDialog
Set FSO = CreateObject("Scripting.FileSystemObject") 'E?er Excel dosyas? a??ksa ba?l
Source = KynkDos
KynkDos = CurrentProject.Path & "\Sil_Tmp_hy" & Mid(KynkDos, InStrRev(KynkDos, "."))
FSO.CopyFile Source, KynkDos, True
Geçici dosyayı silme: Kill KynkDos
BitZmn = Now '<--zaten var üsteki kod tek eklenecek