CurrentDb.Execute "UPDATE tbl_kriter SET [krt" & Sutun & "]='" & Me.Controls("TXT" & Sutun) & "' WHERE ((([Alanlar])=" & Me.alan1 & "))"
Çalışmanızı yeterince inceleme imkanım olmadı sayısala çevirirsek diğer formlarda sorun çıkarır mı bilmediğimden eski yapıyı kullanmıştım. Eğer dediğim şekilde ilişkilendirmeyi degistirecekseniz diğer form , rapor ve tablolarda kullanılmış ilişkileri tek tek saptayıp bir kâğıda yazın değişikliklerden sonra bu alanları düzeltirken kolaylık olur. Sorun çıkaran kodunuda gelince. Alanın türünü değiştirdiğimiz için artık sayisal olan alanın başındaki ve sonundaki tek tırnağı kaldırmalısınız. Kodu aşağıdaki şekilde düzenleyip dener misiniz?