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.formagelecekbilgi1 = rs!tablodangelecekbilgi1
me.formagelecekbilgi2 = rs!tablodangelecekbilgi2
rs.close
set rs=nothing
kendinize göre düzenledikten sonra kodları barkod okutma sonrasında güncelleme sonrasına ekleyerek kullanabilirsiniz.
bu tarz kod yapısını kullanarak çok rahat ve hızlı bir şekilde veri çekebilirsiniz. örneğinizi görmediğim için şu an sadece mantık olarak anlatmaya çalıştım. tabi başka türlü veri getirme yöntemleri de var.