textbox'ları Toplama ile ilgili?

[woyzeck]

Merhaba Arkadaşlar,
aşağıdaki kodu yazdığım zaman herhangi bir textbox boş ise hata vermekte. ama boşluk yerine "0" kullandığım zaman hata vermemekte.

TextBox3.value - (CDbl(TextBox2) + CDbl(TextBox1))

dört işlem ile ilgili forumu aradım ama çözüm bulamadım.

textboxlardan herhangi biri boş olsa dahi hatasız bu işlemi gerçekleştirebilir miyim?

teşekkürler

 

[Orion1]

Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?goto=newpost&t=45434

 

[woyzeck]

evren bey ilginiz için teşekkürler,
fakat verilen code sadece textbox'ın numara olup olmadığını kontrol ediyor.

benim yapmaya çalıştığım daha çok,

textbox'ın içinde değer silindiği zaman otomatik 0 getirmesi.

sanırım bu UserForm_Initialize() kısmında yapılması gereken bişey. ama çözemedim.

eğer textbox1 boş ise textbox1.text = 0 olsun gibi bişey yazmaya çalışıyorum.

bunun hakkında bi öneriniz var mı acaba?

teşekkür ederim.

 

[woyzeck]

şimdi şöyle bir çözüm buldum kendimce;

If TextBox1.Text = "" Then TextBox1.Text = 0 Else

kodunu textbox'ları hesaplamadan önce otomatik 0 değerini veriyor.

ama daha uygun bi öneri var ise söylerseniz sevinirim.

teşekkürler ilginiz için.

 

[Orion1]

Merhaba Arkadaşlar,
aşağıdaki kodu yazdığım zaman herhangi bir textbox boş ise hata vermekte. ama boşluk yerine "0" kullandığım zaman hata vermemekte.

TextBox3.value - (CDbl(TextBox2) + CDbl(TextBox1))

dört işlem ile ilgili forumu aradım ama çözüm bulamadım.

textboxlardan herhangi biri boş olsa dahi hatasız bu işlemi gerçekleştirebilir miyim?

teşekkürler

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim txt1 As Double, txt2 As Double, txt3 As Double
If TextBox1.Value = "" Then
    txt1 = 0
    Else
    txt1 = CDbl(TextBox1.Value)
End If
If TextBox2.Value = "" Then
    txt2 = 0
    Else
    txt2 = TextBox2.Value
End If
If TextBox3.Value = "" Then
    txt3 = 0
    Else
    txt3 = CDbl(TextBox3.Value)
End If
TextBox4.Value = (txt3) - (txt1 + txt2)
End Sub