Şu an Şırnak'ta vatani gorevini yapan ve terihisine 40 gun kalan asker arkadaşım visual basic ile Kiler Stok Takip Programı hazırlamış ama biryerinde takılmış. Ben onun namına size soruyu yoneltiyorum;

Problem:
ilk calıştırdımda
BİRİMFT = 1
oluyor
ama visualden F8 ile kodu tekrar devam ettirdim zaman BİRİMFT = 2
oluyor
Burdaki amac
dİYELİM
1 TL den 50 KB Domates Geldi
birde
2 TL 50 KG Domates Geldi
Burda benim yaptım
1 TL lik domates bitmeden 2 TL domatesi cıkış yapamasın
İLK SERVER 50 KG DOMATES BİTİRİYOR
SONRA TEKRAR CALIŞTIRDIĞIMDA
1 KG 50 KG BİTTİĞİ İCİN
2 tl 50 GEC
GECİYOR AMA
HAFIZADA HALA 1 tl NİN 50 KG GORUYOR

KOD:
Kod:
strSQL = "SELECT SUM(MIKTAR) as GIRIS_MIKTAR FROM [" & STOK_HESAP_KODU & "] WHERE BIRIMFT=" & RS!BIRIMFT & " AND (TURKOD='SS1' OR TURKOD='PO')" RS2.Open strSQL, AdoCN, 1, 3 strSQL1 = "SELECT SUM(MIKTAR) as CIKIS_MIKTAR FROM [" & STOK_HESAP_KODU & "] WHERE TURKOD='SS2' AND BIRIMFT=" & RS!BIRIMFT RS3.Open strSQL1, AdoCN, 1, 3 If IsNull

Değerli bilgilerinize