Textbox 0.00 TL gözüken alana şart getirme

[kemaluz16]

Merhaba arkadaşlar,

Form üzerindeki textbox 0.00 TL eşitse diğer işlemlere geçme gibi bir şart getirmek istiyorum

Bu şekilde yazdım ama olmadı

If TextBox1.Value = "" Or TextBox1.Value =" 0.00 TL" Then
Exit Sub

Else
End if

 

[Korhan Ayhan]

Sorunuzu küçük bir örnek dosya ile desteklerseniz çözüm almanız kolaylaşacaktır.

 

[kemaluz16]

Dün yardımcı olduğunuz dosyanın içersinde koşul getirmek istedim hocam

Tüm textbox ların toplamını texbox'ta toplayıp bu şarta dayalı sıfır tl ise ve boş ise işlem yapma büyükse işlem yap demek istiyorum

 

[Korhan Ayhan]

Bu şekilde bir deneyiniz..

    If TextBox41.Value = "" Or TextBox41.Value = "0,00 TL" Then
        Exit Sub
    Else

 

[kemaluz16]

Şimdi hiç işlem yapmıyor. TextBox41 0,00 TL büyük ise işlemi gerçekleştirsin örnek (64,00 TL - 35,00 TL - 3,5 TL gibi) ,0,00 TL veya boş ise işlem yapmasın istiyorum tekrar çok teşekkür ederim hocam

Bunun gibi

 

[Korhan Ayhan]

Denemek için paylaştığınız dosyada TextBox3 nesnesine 100 TL yazdım. Sorun olmadan çalıştı..

 

[kemaluz16]

acaba if şartını yanlış yere mi koyuyorum hocam dosyaya adapte edip gönderebilirmisiniz size zahmet

 

[Korhan Ayhan]

İnceleyiniz..

Bilgilendirme için ek olarak "MsgBox" ekledim.

 

[kemaluz16]

Çok teşekkür ederim Korhan Ayhan hocam bir sorum daha olacak işlemi başlat dediğimde numlock kendini kapatıyor neden olabilir.

 

[Korhan Ayhan]

Kullanılan Sendkeys kodu bu etkiyi yaratıyor sanırım. Forumda Numlock tuşunu açan kodlar paylaşılmıştı.. Arama yaparsanız ulaşabilirsiniz..

 

[kemaluz16]

buldum hocam herşey için çok teşekkür ederim yardımcı olmak amaçlı forumdaki arkadaşlarla paylaşıyorum


Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Sub Numlockk ()
'NumLock kapaly ise aç...
If GetNumLockKey Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
End Sub
Private Function GetNumLockKey() As Boolean
GetNumLockKey = GetKeyState(vbKeyNumlock)
End Function

formun içersine call Numlockk ile çeğırttıp kullanabilirsiniz.