+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [FORM] kod için yardım (/Konu-kod-icin-yardim)
kod için yardım - hedefkaya - 27-02-2014
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
Cvp: kod için yardım - dsezgin - 28-02-2014
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....