YARDIM: Askeriyede kullanılacak stok programı.

GNeRaL

Şu an Şırnak'ta vatani görevini yapan ve terihisine 40 gün kalan asker arkadaşım visual basic ile Kiler Stok Takip Programı hazırlamış ama biryerinde takılmış. Ben onun namına size soruyu yöneltiyorum;

Problem:
ilk çalıştırdımda
BİRİMFT = 1
oluyor
ama visualden F8 ile kodu tekrar devam ettirdim zaman BİRİMFT = 2
oluyor
Burdaki amaç
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 çıkış yapamasın
İLK SERVER 50 KG DOMATES BİTİRİYOR
SONRA TEKRAR ÇALIŞTIRDIĞIMDA
1 KG 50 KG BİTTİĞİ İÇİN
2 tl 50 GEÇ
GEÇİYOR AMA
HAFIZADA HALA 1 tl NİN 50 KG GÖRÜYOR

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