Set stok = Baglanti.Execute("select count(cadet) as Toplam from stokc where idd="&idd&"")
stokcik=stok("toplam")
stok=rec("adet")
stoktoplam=stok-stokcik

bu şekilde aynı üründen 2 adet çıktıysam yine 1 adet olarka hesaplıyor veya aynı üründen 2 kere de çıkış yapmış olsamda yine 1 adet olarak hesaplıyor