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