Yapay 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.