(08/02/2020, 16:02)berduş yazdı: Bu son hali :Alttakinde amaç nedir?
1 - Accesste Olmayan veriyi Alma/ Değişeni Güncelleme
2 - Sadece değişeni güncelleme
3 - Sadece olmayı ekleme
4 - 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
Geçici dosyayı silme: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
Kill KynkDos
BitZmn = Now '<--zaten var üsteki kod tek eklenecek
KynkDos = CurrentProject.Path & "\Sil_Tmp_hy" & Mid(KynkDos, InStrRev(KynkDos, "."))