Şarta BaĞli Uyari Mesaji

[oerbas]

Herkese saygı ve selamlarımla;

Çıkış Miktarı Stok mevcudundan büyük olarak girildiği zaman uyarı mesajı veriyor. Tek haneli rakamlarda problem yok. Ancak birden çok haneli rakamlarda ilk hane dikkate alınıyor. Örneğin Stok mevcudu 300 biz ise bu stoktan 50 adet çıkmak istiyoruz. Brada stok mevcudunun ilk rakamı olan 3 stok çıkışının ilk rakamı alan 5 ten küçük olduğu için uyarı mesajı yine çalışıyor. İstediğim şu çıkış miktarı stok mevcudundan küçük ise uyarı mesaj çalışmasın.

Sayın VEDAT ELCİ den alıntıdır.

KOD
Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox2) - Val(TextBox1)

If TextBox1.Value > TextBox2.Value Then
MsgBox "Mevcut Stokunuz " & TextBox2.Value & " Siz ise " & TextBox1.Value & "çıkmaya çalışıyorsunuz!"
Exit Sub
End If
End Sub

 

[Ali]

Kodları aşağıdaki gibi değiştirin


Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox2) - Val(TextBox1)
If Val(TextBox1) > Val(TextBox2) Then
MsgBox "Mevcut Stokunuz " & TextBox2.Value & " Siz ise " & TextBox1.Value & "çıkmaya çalışıyorsunuz!"
Exit Sub
End If
End Sub

 

[Recep İpek]

Alternatif olarak,

Private Sub TextBox1_Change()
If TextBox1 = vbNullString Then Exit Sub
TextBox3.Value = Val(TextBox2) - Val(TextBox1)
If TextBox1.Value * 1 > TextBox2.Value * 1 Then
MsgBox "Mevcut Stokunuz " & TextBox2.Value & " Siz ise " & TextBox1.Value & "çıkmaya çalışıyorsunuz!"
Exit Sub
End If

 

[oerbas]

Cevap yazan iki arkadaşa teşekkür ederim istediğim olmuş elinize sağlık.