cdbl komutu

[mtbi00]

Merhaba,

Kendi yaptığım userformda bulunan değerlerle ilgili işlem yapmak istediğimde textboxta değer varsa sorun yok. Ama textboxta değer yoksa hata veriyor. Ne yaptımsa çözemedim. Komut satırım aşağıdaki gibi. Yardımlarınız rica olunur.

anaform.tb_belirsiz = CDbl(anaform.tb_belirsiz) + CDbl(anaform.tb_ktut)

(anaform.tb_ktut değer varsa sorun olmuyor ama değer yoksa 0 değeri vermiyor. Hata veriyor.)
Type mismatch hatası alıyorum.

 

[AdemCan]

Merhaba, bahsettiğiniz satırdan önce anaform.tb_ktut içeriğini kontrol etmek için

If anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0

satırını kullanabilirsiniz. Bu şekilde anaform.tb_ktut da değer yoksa 0 olarak kabul eder.

 

[mtbi00]

Merhaba, bahsettiğiniz satırdan önce anaform.tb_ktut içeriğini kontrol etmek için

If anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0

satırını kullanabilirsiniz. Bu şekilde anaform.tb_ktut da değer yoksa 0 olarak kabul eder.

Çok teşekkür ederim.

 

[Orion1]

Birde yanlışlıkla metin giripte deneyin

 

[Zeki Gürsoy]

CDbl tür dönüşüm fonksiyonu, kutu boş olduğunda veya sistem ayarlarındaki sayı biçimi ile - ondalık ayraç söz konusu olduğunda - örtüşmediğinde hata döndürür. Val fonksiyonu sorunsuz çevirir ancak Türkiye ondalık ayraç virgül olduğundan virgül sonrasını yok sayarak tamsayı döndürür.

Özetle, IF sınaması ile kutuyu kontrol etmeniz gerekir.

.

 

[AdemCan]

Yanlışlıkla metin girilirse hata vermemesi için paylaştığım satır aşağıdaki şekilde kullanılabilir.

If Not IsNumeric(anaform.tb_ktut.Value) Or anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0