(03/02/2020, 22:55)berduş yazdı: ama bence içinde ' bulunabilecek alanları replace fonksiyonu ile düzeltebilirsiniz.
veCurrentDb.Execute _
"UPDATE Tablo1 SET [kod] = '" & rs(0) & "'," & _
"[ad] = '" & Replace(rs(1), "'", "''") & "'," & _
"[yas] = '" & rs(2) & "'," & _
"[Tarih] = '" & rs(1) & "'" & _
"WHERE [kod] = '" & rs(0) & "'"
gibiCurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( '" & rs(0) & "' , '" & Replace(rs(1), "'", "''") & "' , " & rs(2) & ", '" & Format(rs(3), "dd.mm.yyyy") & "' );" 'Kayit ekle exceldekinde olup accesste mevcut olmayan veri
Dcount lardada olacak abey.Bundan sonra en garantisi başa ''' sonada ''' eklemek metin için
Kodları edit ve addnew olarak nasıl yapacaktık birde onu ekleseniz.
Belki daha hızlı olur.
Bende yaparım lakin siz daha tecrübelisiniz.