Alttaki gibi değişecek kodlar.
Berduş hocamız sayı alanında eksik yapmış hata verdi böyle hatasız.
Normalde sayıi çin kalıplar '" & xxx & "' metin için " & xxx & " oluyor bende bişey öğrenmiş oldum.
If DCount("[kod]", "Tablo1", "[kod] = """ & rs(0) & """") > 0 Then
ElseIf 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) & """"
CurrentDb.Execute _
"INSERT INTO Tablo1" _
& " ([kod], [ad], [yas], [tarih])" _
& " VALUES ( """ & rs(0) & """ , """ & rs(1) & """ , '" & rs(2) & "', """ & Format(rs(3), "dd.mm.yyyy") & """ );"