dim rs as new adodb.recordset
rs.open "stoklarinbulundugutabloadi", currentproject.connection, adopenkeyset, adlockoptimistic
rS.Find "[tablodakibarkodalani]='" & me.formdakibarkodalani & "'" ' eğer ki alan string değer ise bunu kullanın
rS.Find "[tablodakibarkodalani]=" & me.formdakibarkodalani ' eğer ki alan integer değer ise bunu kullanın
me.fiyat= rs!fiyat
me.urunadi= rs!urunadi
me.serinoo=rs!serino
me.depo=rs!depo
rs.close
set rs=nothing
Kalan için hareket tablosundan uyuşan ürün barkoduna göre girenler ve çıkanlar sayılıp, çıkartıldıktan sonra getirilmesi gerekiyor.
