aşağadaki kod ile buton1 e bastığımda tablo1 de buton1 e eşit olan alanları tablo2 ye aktarıyorum

CurrentDb.Execute "insert into Tablo2 (ürün,kod,fiyat) select ürün,kod,fiyat from Tablo1 " _
& "where buton_no= 1 "

benim istediğim

bilgileri tabloya değil
form üzerindeki aynı isimdeki ilişkisiz metin kutularına aktarsın

yardımlarınız için teşekürler

Sayin hedefkaya ;

Me.IliskisizUrün=dlookup("ürün";"Tablo1";"[buton_no]= 1")
Me.IliskisizKod=dlookup("kod";"Tablo1";"[buton_no]= 1")
Me.IliskisizFiyat=dlookup("fiyat ";"Tablo1";"[buton_no]= 1")

veya

Dim Kyt As Recordset
Set Kyt = Application.CurrentDb.OpenRecordset("select ürün,kod,fiyat from Tablo1 where ((buton_no)= 1) ")
Kyt.MoveLast: Kyt.MoveFirst
Do
Me.IliskisizUrün=Kyt.Fields(0)
Me.IliskisizKod=Kyt.Fields(1)
Me.IliskisizFiyat=Kyt.Fields(2)
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing

gibi bircok yontem ile yapilabilir.

Kolay gelsin....