' 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.

eski yapınızdan devam ettim inceleyip son durumu bildirirsiniz.

Hocam teşekkür ederim. Kodları anlamaya çalışıyorum.

Ç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?

CurrentDb.Execute "UPDATE tbl_kriter SET [krt" & Sutun & "]='" & Me.Controls("TXT" & Sutun) & "' WHERE ((([Alanlar])=" & Me.alan1 & "))"

Sayın hocam. Şöyle bir sorun var. Şimdi ben alan ekleme ve silme işlemlerini frm_alanekle formundan yapıyorum. Dolayısı ile gelişim tablosunda tekrardan bir alan ekleme olayı gereksiz değil mi? sizce de. Kişi alan ekledikten sonra tabloyu oluşturacak. Ben sizin yapınızda tabloya alan ekliyorum. Açılan kutuya düşüyor. Kriterleri grip formu kapatıyorum. lakin kayıt işlemi yapılmamış oluyor.

Bana lazım olan şey. frm_gelisimtablosu formunda bulunan açılan kutudan seçtiğim alana göre (ki bu alan-tbl_alanlardan gelecek, silindiğinde de tablo kriterdeki karşılığı silinecek) kriterleri girip kayıt işlemini tamamlamak-gerektiğinde güncellemek