If DCount("[kod]", "Tablo1", "[kod] = '" & rs(0) & "'") > 0 Then
CurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = '" & rs(0) & "'," & _
"[ad] = '" & rs(1) & "'," & _
"[yas] = '" & rs(2) & "'," & _
"[Tarih] = '" & rs(1) & "'" & _
"WHERE [kod] = '" & rs(0) & "'"
yukardaki koda dikkat ederseniz Access tablosundaki tüm A5 li kayıtlar aynı değere güncelleniyor. excelde 5 tane A5li kayıt olsa bile accessteki tüm A5li kayıtlar exceldeki son A5li kaydın değerini alacak demek olur. Çünkü rs recordseti exceldeki tüm kayıtlar içinde sırayla dolaşır. dolayısıyla son A5 değerini accessteki tüm A5lere atar. yani Kod sütunu benzersiz olmalı hem excelde hem Accesste. Bu açıdan bakarsanız son yöntem -dosyadaki hızlı yöntemi- hem daha hızlı hem daha uygun gibi.
Excelden Veri Alma Ve Kaydı Güncelleme
Konuyu Okuyanlar: 2 Ziyaretçi