+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak (/konu-varolan-excel-dosyasi-uzerine-ayni-ad-ile-tekrar-kayit-yapmak.html)
Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak - megasoftware - 05/05/2016
Saygıdeğer Hocalarım ve arkadaşlarım bir tablomu aşağıda ki komut ile excele yolluyorum. Ancak eski dosya yerinde durduğu müddet boyunca sonraki yollamalarım da yeni hali gelmiyor. Yani mevcut dosya üzerine yenisini yazarark yenilemiyor. Bu sorunu aşmak için acaba komuta bir şey mi eklemem lazım yoksa her seferinde farklı ad ile mi kaydetmek zorundayım ? Yardımlarınız için şimdiden çok teşekkür ederim..
Kod:
Dim YOL As String
YOL = CurrentProject.Path & "\Müşteri Listesi.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"Cvp: Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak - emir ustaoğlu - 05/05/2016
Saynım megasoftware;
Alıntı:tablomu aşağıda ki komut ile excele yolluyorum. Ancak eski dosya yerinde durduğu müddet boyunca sonraki yollamalarım da yeni hali gelmiyor.
ifadenize yönelik olarak,
belirtmiş olduğunuz komutta herhangi bir sorun görünmüyor. kendi çalışmamda da denedim değişiklikleri excele aktarıyor.
Çalışmanızı içinde gerçek dışı farazi 5-10 kayıt barındıracak şekilde konunuza dahil ederseniz muhtemel başka bir hatanın buna sebep olup olmadığını kontrol edebiliriz.
Bilgilerinize
Saygılar iyi çalışmalar...
Cvp: Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak - atoz112 - 05/05/2016
sayın megasoftware,
bahsettiğiniz talebinize yönelik olarak;
sayın ustaoğlu'nun yazdıklarına ek olarak,bir diğer alternatif kullanım olması adına,önceki dosyayı bir kontrol yolu ile silip tekrar aktarımı da sağlayabilirsiniz.
ÖRNEK
Kod:
If Dir(YOL) <> "" Then
Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"Cvp: Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak - megasoftware - 05/05/2016
[quote pid='134203' dateline='1462436114']
Kod:
If Dir(YOL) <> "" Then
Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"Sayın hocam verdiğiniz fikir ile sorun çözülmüştür. Saygılarımla iyi çalışmalar dilerim. Konuyu taşıya bilirsiniz.
