' Me.Controls("TXT" & sayac) = Dlookup ("[krt" & sayac & "]", "[tbl_kriter]", "[Alanlar]='" & Me.alan1 & "'")
Hocam alanları düzenleyip ilişkilendirmeyi yaptım. Ve sayısal olarak değiştirdim. Aşağıdaki şekilde;
Me.Controls("TXT" & sayac) = Dlookup ("[krt" & sayac & "]", "[tbl_kriter]", "[Alanlar]=" & Me.alan1)
'CurrentDb.Execute "UPDATE tbl_kriter SET [krt" & Sutun & "]='" & Me.Controls("TXT" & Sutun) & "' WHERE ((([Alanlar])='" & Me.alan1 & "'))"
bu kısımda hata alıyorum.