Textbox Karşılaştırma Sorunu

[sahir73]

Stok çalışmada txtMiktar ve txtKalan adında txtboxlarım var . Sorunum şu şekilde
txtKalan textboxın değeri örneğin 2500 olsun işlem yapmak istediğim miktar yani miktar txtboxun değeri 3 olduğunda karşılaştıma yaptığımda miktar textboxın değeri kalandan fazlaymış gibi algılıyor. ama miktar txtboxu ilk rakamı 2 ya da 1 ise 2500 den küçük olduğunu algılıyor bu yüzden kalan stoğa göre işlem yapamadım.

 

[Muzaffer Ali]

Merhaba.

Soruyu çözebilmek için önce
1- Gizlediğiniz Exceli görünür hale getirmem gerekti.
Lütfen örnek dosyalarınızda her şeyden önce bizim Excelimize müdahale eden kodları kaldırın. Benim diğer Excel dosyalarım da gizlendi.
Exceli gizlemeyin. Gizlediğiniz şeyde sorunu nasıl çözeceğiz?
2- Yukarıdaki görselde bulunan formu direk açınca çalışmıyor, başka bir formdan buna ulaşılabiliyor.
İlk formu bulmak ta yetmiyor, hangi butonun bu formu açtığını da bulmam gerekti.

Vel hasılı bulmaca gibi bir şey oldu.

Sonraki sorularınızda bunlara dikkat ederseniz daha hızlı yanıt alırsınız.

Sorun aşağıdaki koddan kaynaklanıyor.

Bir bulmaca da benden size.
Aşağıdaki satırı bulun, silin

If Me.cmbIslem.ListIndex = 2 And Me.txtMiktar.Value > Me.txtKalanStok.Value Then

Yerine aşağıdaki kodu ekleyin

If Me.cmbIslem.ListIndex = 2 And CDbl(Me.txtMiktar.Value) > CDbl(Me.txtKalanStok.Value) Then

 

[sahir73]

Merhaba.

Soruyu çözebilmek için önce
1- Gizlediğiniz Exceli görünür hale getirmem gerekti.
Lütfen örnek dosyalarınızda her şeyden önce bizim Excelimize müdahale eden kodları kaldırın. Benim diğer Excel dosyalarım da gizlendi.
Exceli gizlemeyin. Gizlediğiniz şeyde sorunu nasıl çözeceğiz?
2- Yukarıdaki görselde bulunan formu direk açınca çalışmıyor, başka bir formdan buna ulaşılabiliyor.
İlk formu bulmak ta yetmiyor, hangi butonun bu formu açtığını da bulmam gerekti.

Vel hasılı bulmaca gibi bir şey oldu.

Sonraki sorularınızda bunlara dikkat ederseniz daha hızlı yanıt alırsınız.

Sorun aşağıdaki koddan kaynaklanıyor.

Bir bulmaca da benden size.
Aşağıdaki satırı bulun, silin

If Me.cmbIslem.ListIndex = 2 And CDbl(Me.txtMiktar.Value) > CDbl(Me.txtKalanStok.Value) Then

Yerine aşağıdaki kodu ekleyin

If Me.cmbIslem.ListIndex = 2 And Me.txtMiktar.Value > Me.txtKalanStok.Value Then

Muzaffer bey Sağ olun acemiliğe verin. Cevabınız için teşekkür ederim ancak cevabınız var olması gereken çözüm idi ancak öyle çalışmadığından deneme yanılma üsülü
If Me.cmbIslem.ListIndex = 2 And CDbl(Me.txtMiktar.Value) > CDbl(Me.txtKalanStok.Value) Then buna çevirdim yoksa önceki hali sizin değiştirin dediğiniz kısımdı.

 

[sahir73]

If Me.cmbIslem.ListIndex = 2 And Me.txtMiktar.Value > Me.txtKalanStok.Value Then

bu olması gereken kod ama çalışmıyor

 

[Muzaffer Ali]

Kodların sırasını yanlış yazmışım düzelttim.

Bu şekilde sorun çözüldü mü?

 

[sahir73]

Çok teşekkür ederim. Çözüldü

 

[Muzaffer Ali]

Kolay gelsin.