Textbox değeri

[35ibo45]

Üstadlar selam.
Listbox4'teki değer -0-(SIFIR)’a eşitse, Textbox4’e;
“Textbox3’teki ismin ALACAĞI ve BORCU yoktur.”
Listbox4'teki değer -0-(SIFIR)’dan küçükse, Textbox4’e;
“Textbox3’teki ismin Listbox4’deki değer kadar BORCU vardır.”
Listbox4'teki değer -0-(SIFIR)’dan büyükse, Textbox4’e;
“Textbox3’teki ismin Listbox4’deki değer kadar ALACAĞI vardır.”
Nasıl yazdırabilirim?

 

[Korhan Ayhan]

Merhaba,

Ben tutar kısmının ListBox nesnesinde 4. sütunda olduğunu varsaydım. Sizde farklı ile kodu revize edersiniz.

Private Sub CommandButton1_Click()
    Select Case ListBox4.Column(3)
        Case Is = 0: TextBox4 = TextBox3 & " ALACAĞI ve BORCU yoktur."
        Case Is < 0: TextBox4 = TextBox3 & " " & ListBox4.Column(3) & " TL BORCU vardır."
        Case Is > 0: TextBox4 = TextBox3 & " " & ListBox4.Column(3) & " TL ALACAĞI vardır."
    End Select
End Sub

 

[35ibo45]

Korhan Hocam selam.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Kodları çalıştırınca;
Runtime error 381
could not get the column property.Invalit property array index şeklinde debug veriyor ve

Select Case ListBox4.Column(3)

satırı sarıya boyanıyor.

 

[Korhan Ayhan]

Ben 4 sütunlu bir listbox üzeinde denedim. Sorun çıkmadı. Kodu kendi dosyanıza uyarlamanız gerekiyor.

 

[35ibo45]

Bendeki listbox4 tek sütunlu Hocam.
Kodlardaki (3) leri (1) yapıyorum aynı hatayı veriyor.

 

[Korhan Ayhan]

Sıfır yapıp deneyiniz.

 

[35ibo45]

Aynı sonuç, aynı hata sayın Hocam.

 

[Korhan Ayhan]

O zaman örnek dosyanızı paylaşınız.

 

[35ibo45]

O zaman örnek dosyanızı paylaşınız.

Tamamdır sayın hocam.
Pcyi kapattım, cepten yazıyorum. Sabah paylaşırım.
Teşekkürler

 

[35ibo45]

Korhan hocam tekrar merhaba.
Şimdi aklıma geldi. Dosya paylaşmak için altın üyelik gerekiyor.
Canımız sağ olsun.
Tekrar teşekkürler.

 

[huseyinn31]

Korhan hocam tekrar merhaba.
Şimdi aklıma geldi. Dosya paylaşmak için altın üyelik gerekiyor.
Canımız sağ olsun.
Tekrar teşekkürler.

Dosya paylaşım siteleri üzerinden dosyanızı paylaşabilirsiniz.

 

[35ibo45]

Teşekkürler

Dosya paylaşım siteleri üzerinden dosyanızı paylaşabilirsiniz.

 

[35ibo45]

Korhan hocam tekrar merhaba.
Şimdi aklıma geldi. Dosya paylaşmak için altın üyelik gerekiyor.
Canımız sağ olsun.
Tekrar teşekkürler.

DİKKAT
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!

 

[35ibo45]

Dosya paylaşım siteleri üzerinden dosyanızı paylaşabilirsiniz.

DİKKAT
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!

 

[Korhan Ayhan]

Evet foruma dosya eklemek için Altın üyelik gereklidir. Ama zorunluluk yoktur.

Yani dosya paylaşım sitelerine örnek dosyanızı yükleyip indirme linkini forumda paylaşabilirsiniz.

Aslında bu durum çok efektif bir çözüm değil. Nedeni ise harici dosya barındırma siteleri bir müddet sonra dosyayı siliyor. Bu şekilde olunca da forumun arşiv özelliği niteliğini kaybediyor.

Tabi ki tercih sizlerindir.

 

[35ibo45]

Evet foruma dosya eklemek için Altın üyelik gereklidir. Ama zorunluluk yoktur.

Yani dosya paylaşım sitelerine örnek dosyanızı yükleyip indirme linkini forumda paylaşabilirsiniz.

Aslında bu durum çok efektif bir çözüm değil. Nedeni ise harici dosya barındırma siteleri bir müddet sonra dosyayı siliyor. Bu şekilde olunca da forumun arşiv özelliği niteliğini kaybediyor.

Tabi ki tercih sizlerindir.

Tamamdır sayın hocam.
İlginize ve emeğinize tekrar tekrar ve çok çok teşekkür ederim.