Metin Kutusu

Butona bastığımda metin1 tablo1den

metin2 tablo2'den bilgi alsın istiyorum 
forma tablo tanımlandığında 
me.metin1=[adi]
gibi 
teşekkür ederim

Tablolardaki ilk satırları getirir.

Private Sub Komut62_Click()



Me.Metin1 = Dlookup ("[adi]", "[tablo1]")

Me.Metin2 = Dlookup ("[renkler]", "[tablo2]")





End Sub

Kritere göre veri getirmek için örnek

Private Sub Komut62_Click()



Me.Metin1 = Dlookup ("[adi]", "[tablo1]", "[Kimlik]=" & Me.kriter)

Me.Metin2 = Dlookup ("[renkler]", "[tablo2]", "[Kimlik]=" & Me.kriter)



End Sub