• 29-12-2022, 15:26:44
    #1
    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 ?
  • 29-12-2022, 16:28:04
    #2
    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.
  • 29-12-2022, 16:31:57
    #3
    AliYucel adlı üyeden alıntı: mesajı görüntüle
    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.
    Chat gpt mi hocam ?

    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:56
    #4
    M_Can adlı üyeden alıntı: mesajı görüntüle
    Chat gpt mi hocam ?

    Malesef o da gene eksiye düştükten sonra 2. tetiklemede uyarıyı veriyor
    çok teşekkür ederim genede ilginiz için
    Evet chatgpt Bence chatgptye sordurup tam istediğinizi alana kadar sorun. Yazdığı yerde yarım kalırsa kaldığım yerden devam et diye yazın chatgptyi zorlayın cevabınızı verecektir. 🙂