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.