- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhabalar;
Bir excel dosyasından (Sheet2) direkt import ettiğim bir tablom (MyTable1) var...
"ExcelToMDB.xls" >> import >>> "MyDB.mdb" .
Access' e import ettikten sonra; Bu excel dosyasında bazı alanlarda (tüm alanlarda değil, örn: 5 alandan birinde ) değişiklik yapılmaktadır;
excel dosyasındaki bu değişiklikleri belli aralıklarla Access ortamında [MyTable1] üzerinde güncellemek istiyorum.
-------------------------------------------
i = 2
Do While Len(Range("A" & i).Value) > 0
With rs
.Edit
.Fields("Firma") = Range("A" & i).Value
.Fields("Borc") = Range("B" & i).Value
.Fields("Tarih") = Range("C" & i).Value
.Fields("Not") = Range("D" & i).Value
.Update
End With
i=i+1
Loop
-------------------------------------------
gibi....
bu konuda yardımcı olabilirmisiniz.
İyi Çalışmalar dilerim.
Bir excel dosyasından (Sheet2) direkt import ettiğim bir tablom (MyTable1) var...
"ExcelToMDB.xls" >> import >>> "MyDB.mdb" .
Access' e import ettikten sonra; Bu excel dosyasında bazı alanlarda (tüm alanlarda değil, örn: 5 alandan birinde ) değişiklik yapılmaktadır;
excel dosyasındaki bu değişiklikleri belli aralıklarla Access ortamında [MyTable1] üzerinde güncellemek istiyorum.
-------------------------------------------
i = 2
Do While Len(Range("A" & i).Value) > 0
With rs
.Edit
.Fields("Firma") = Range("A" & i).Value
.Fields("Borc") = Range("B" & i).Value
.Fields("Tarih") = Range("C" & i).Value
.Fields("Not") = Range("D" & i).Value
.Update
End With
i=i+1
Loop
-------------------------------------------
gibi....
bu konuda yardımcı olabilirmisiniz.
İyi Çalışmalar dilerim.