Dim sayac As Long



For sayac = 1 To 24

 Me.Controls("TXT" & sayac) = Dlookup ("[krt" & sayac & "]", "[tbl_kriter]", "[tbl_alanlar].[Alanlar]='" & Me.alan1 & "'")

Next sayac

End Sub

Arkadaşlar yukarıki kodda b([tbl_alanlar].[Alanlar]) bu kısımda hata halıyorum. Amacım Açılır kutunun güncelleme olayında
tabl_kriter ile tbl_alanlar arasında kriter oluturmak.
Yani tablo alanlar da bulunan alanlar alanındaki veri açılır kutudakine eşitse, tablo kriterdeki verileri döngüyle formdaki metin kutularına getirmek istiyorum.