Arkadaşlar merhaba
Excelde stok sayısı ile eksi bakiyeye düşmemek için bir kontrol yaptığımı varsayalım
Eğer komboboxdaki seçilen veri Nora ise gir
If CmbSeanslar.Text = "Nora" Then
Eğer veri tabanındaki sayı 0 dan büyükse gir
If Sheets("VERITABANI").Range("E2") > 0 Then
eğer textboxdaki sayı veri tabanındaki stok sayısından az ise koşula gir
If txtbiletadet.Text <= Sheets("VERITABANI").Range("E2") Then
koşuk sayısını güncelle
Sheets("VERITABANI").Range("E2") = Sheets("VERITABANI").Range("E2") - txtbiletadet.Text
End If
End If
End If
Arkadaşlar burada eksiye düşmemesi için bir kontrol yapmaya çalışıyorum. ilk döndüğünde sorun yok, ikincide eksiye düşecekmi diye fazla bir sayı yazıyorum eksiye düşüyor tetiklediğimde
ama 3. kezde düşmüyor
Nasıl bir yol izleyebilirim ?
excel vba ile stok kontrol problemim
3
●90
- 29-12-2022, 16:28:04Yapay zekaya sordum cevabı şu:
aşağıdaki kod bloğunda veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürdükten sonra, veri tabanındaki E2 hücresinin değerinin sıfırdan küçük olup olmadığını kontrol ederek stokun eksi bakiyeye düşmemesi için bir kontrol yaptığınızı varsaydım:
If CmbSeanslar.Text = "Nora" Then
If Sheets("VERITABANI").Range("E2") > txtbiletadet.Text Then
Sheets("VERITABANI").Range("E2") = Sheets("VERITABANI").Range("E2") - txtbiletadet.Text
If Sheets("VERITABANI").Range("E2") < 0 Then
MsgBox "Stok yetersiz. Satış işlemi gerçekleştirilemedi."
End If
End If
End If
Bu kod bloğunun çalışma şekli şu şekildedir:
1. Eğer CmbSeanslar'ın seçilen değeri "Nora" ise, kod veri tabanındaki E2 hücresinin değerini kontrol eder.
2. Eğer veri tabanındaki E2 hücresinin değeri txtbiletadet textbox'ındaki değerden büyükse, kod veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürür.
3. Düşürülen değer sıfırdan küçükse, kod kullanıcıya "Stok yetersiz. Satış işlemi gerçekleştirilemedi." mesajı gösterir ve satış işlemi gerçekleştirilmez.
Bu kod bloğu, veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürüp sonra sıfırdan küçük olup olmadığını kontrol ederek stokun eksi bakiyeye düşmemesi için bir kontrol yapar. Eğer txtbiletadet textbox'ına girilen değer veri tabanındaki E2 hücresinin değerinden büyükse satış işlemi gerçekleştirilmez ve stok eksi bakiyeye düşmez. - 29-12-2022, 16:31:57AliYucel adlı üyeden alıntı: mesajı görüntüle
Malesef o da gene eksiye düştükten sonra 2. tetiklemede uyarıyı veriyor
çok teşekkür ederim genede ilginiz için - 29-12-2022, 16:39:56M_Can adlı üyeden alıntı: mesajı görüntüle