textboxdaki sayısal değeri bir sayısal değer ile kıyaslamak?

[udentr2002]

Merhaba arkadaşlar textboxda bir sayısal değerim var, bir butona bastığımda ilgili sayfada stokları tarayıp stok miktarını veren kodlarım var ilgili hammaddenin stok miktarını textboxda yazılan olan miktarlara kıyaslıyorum eğer depodaki o hammaddenin miktarı textboxda yazan miktardan büyükse "üretim yapabilmeniz için miktar yeterlidir" diye bir mesaj verip başka bir butonu aktif hala getiriyor. Eğer küçükse "üretim yapabilmeniz için miktar yeterli değildir" deyip o butonu pasif bırakıyor yanlız kıyaslamayı doğru yapmıyor bunun nedeni ne olabilir textboxun formatı ilemi ilgili acaba dosyam çok büyük olduğu için daha fazla kafanızı karışltırmamak için ilgili kodları yazacağım.
Depodaki hammaddenin stok miktarını veren kod aşağıdadır,

Private Sub CommandButton17_Click()
On Error Resume Next
Sheets("HammaddeDepo").Select
stok.ComboBox1 = TextBox16.Text
Set sh = Sheets("HammaddeDepo")
sonkayit = sh.Cells(65536, 1).End(xlUp).Row
For i = 4 To sonkayit
If sh.Cells(i, 1) = stok.ComboBox1.Value Then
miktar = sh.Cells(i, 8) * sh.Cells(i, 13) / 1000
miktar1 = miktar + miktar1
End If
Next i
MsgBox ("Depodaki" & " " & TextBox16 & " " & "Miktarı" & " " & miktar1 & " " & "KG" & "'dır"), vbInformation, ("Stok Durumu")


If Farmasotik_Emir.TextBox18.Text > miktar1 Then
MsgBox Farmasotik_Emir.ComboBox1 & " " & "Üretimini Yapabilmeniz için" & " " & Farmasotik_Emir.TextBox16 & " " & "Miktarı Yetersizdir", vbCritical, "Stok Kontrol"
Farmasotik_Emir.CommandButton2.Enabled = False
ElseIf Farmasotik_Emir.TextBox18.Text <= miktar1 Then
MsgBox Farmasotik_Emir.ComboBox1 & " " & "Üretimini Yapabilmeniz için" & " " & Farmasotik_Emir.TextBox16 & " " & "Miktarı Yeterlidir", vbInformation, "Stok Kontrol"
Farmasotik_Emir.CommandButton2.Enabled = True
End If
End Sub

bu miktarları doğru kıyaslamıyor mesala miktar1 adlı döngü yani depodaki stok miktarının toplamını gösteren döngü değeri 100 kg üretim yapabilmemiz için gerekli miktar 10 kg yazmasına rağmen yetersizdir diyor ve kodu pasif bırakıyor kodlarda bir hata yok ama kıyaslamayı mantıklı yapmıyor bunun sebebi textboxun formatı ilemi ilgili formatlarıda denedim ama yine olmadı eğer sorumu anlayabilen bir hocam yardımcı olursa çok sevinirimm

 

[udentr2002]

???

Bu konuda yardım edebilecek bir hocam varmı??

 

[Korhan Ayhan]

Selamlar,

TextBox18.Text

İfadesindeki .Text komutunu .Value olarak değiştirip denermisiniz.

 

[udentr2002]

Cost_Cotrol hocam

Olmadı ya yine aynı mantıksız kıyaslama yapıyor depodaki miktar yeterli olmasına rağmen yeterli değildir diyor yada depodaki miktar yetersizse yeterlidir mesajıda verebiliyor. Başka nelerden kaynaklanabilir.????

 

[emrexcel123]

textbox18'in yanına hiçbirşey koymadan deneyin...

 

[Ferhat Pazarçevirdi]

&#350;u &#351;ekilde denermisiniz l&#252;tfen;

a=Farmasotik_Emir.Textbox18.Text
a=a*1

If a > miktar1 Then

MsgBox Farmasotik_Emir.ComboBox1 & " " & "&#220;retimini Yapabilmeniz i&#231;in" & " " & Farmasotik_Emir.TextBox16 & " " & "Miktar&#305; Yetersizdir", vbCritical, "Stok Kontrol"
Farmasotik_Emir.CommandButton2.Enabled = False
ElseIf a <= miktar1 Then
MsgBox Farmasotik_Emir.ComboBox1 & " " & "&#220;retimini Yapabilmeniz i&#231;in" & " " & Farmasotik_Emir.TextBox16 & " " & "Miktar&#305; Yeterlidir", vbInformation, "Stok Kontrol"
Farmasotik_Emir.CommandButton2.Enabled = True
End If
End Sub

 

[udentr2002]

Sn fpc hocam

Çok teşekkür ederim sorun çözüldü tekrar tekrar çok teşekkür ederim.
Bu arada ilgilenen diğer tüm hocalarımada teşekkür ederim