Textbox'lardan listview'e veri aktarmak

[ulutanas]

Merhaba

Arkadaşlar kullanmış olduğum bir userform da textbox'ları ve combobox'ları commondbutton ile listview'a aktarıyorum.O dosyada aktarımla ilgili hiç bir sorunum yok gayet güzel kullanıyorum.

Şimdi hazırladığım bir başka dosyada aynı şekilde textbox'ları ve combobox'ları commondbutton ile listview'a aktarmak istiyorum ama aynı kodları yaptığım değişikliklerle eklediğimde hata veriyor.

Kodlar aynın şu şekilde yanlış bir durum var mı dır acaba kontrol ederseniz sevinirim.

Private Sub CommandButton1_Click()

With ListView1
Y = ListView1.ListItems.Count + 1
.ListItems.Add , , TextBox1.Text 'ListView2.ListItems(Y).SubItems(0)
.ListItems(Y).SubItems(1) = TextBox2.Text
.ListItems(Y).SubItems(2) = TextBox3.Text
.ListItems(Y).SubItems(3) = ComboBox1.Text
.ListItems(Y).SubItems(4) = ComboBox2.Text
.ListItems(Y).SubItems(5) = TextBox7.Text
.ListItems(Y).SubItems(6) = TextBox8.Text
.ListItems(Y).SubItems(7) = ComboBox3.Text
.ListItems(Y).SubItems(8) = TextBox9.Text
.ListItems(Y).SubItems(9) = TextBox10.Text
.ListItems(Y).SubItems(10) = TextBox11.Text
.ListItems(Y).SubItems(11) = ComboBox12.Text
End With
End Sub

İyi çalışmalar,

Saygılarımla.

Ulutan Uygur.

 

[ulutanas]

Arkadaşlar hala çözemedim sorunu.

 

[Orion1]

daha önceden listview kolonlarını yeteri miktarda ekledinizmi?
Dosyayı görmeden zor.

 

[ulutanas]

Eski dosyamda listview ile ilgili her hangi kolon kodları yok veya ben bulamadım Kolon miktarı hakkında bir kod örneği eklerseniz denemiş ve ek bir bilgi daha öğrenmiş olurum.

İyi çalışmalar,

Saygılarımla...

 

[Orion1]

Eski dosyamda listview ile ilgili her hangi kolon kodları yok veya ben bulamadım Kolon miktarı hakkında bir kod örneği eklerseniz denemiş ve ek bir bilgi daha öğrenmiş olurum.

İyi çalışmalar,

Saygılarımla...

Dosyanız ektedir.

DOSYAYI İNDİR
.

 

[ulutanas]

Evren hocam tekrar teşekkürler siz bu dosyayı eklediniz aklıma yine sizin yardımınızla yaptığım bir dosya aklıma geldi ve orada da aynı şekilde halletmiştik sorunu

Bu arada dosyayı ararken arşivlerimde başka iki dosya daha buldum yine sitemizden yüklediğim dosyaydı. Aynı sorunu yaşayacak olan arkadaşlara da örnek olması için onları da ekleyeyim, umarım arayanlar rahatlıkla ulaşır.

İyi çalışmalar,

Saygılarımla...

 

[ulutanas]

Evren hocam aynı çalıştığım sayfada textbox ve combobox ları lisetview e ekleme sorunu halloldu yine sayenizde. Fakat Listview e eklediklerim içerisinden birisini değiştirmek için Listview e tıkladığım zaman o satır tekrar textbox ve comboboxlara taşıyorum. gerekli değişiklikleri yaptıktan sonra değiştir tuşuna bastığım zaman değişikliği gerçekleştirmiyor maalesef 2 gündür konuyla ilgili bakmadığım satır kalmadı tıpkı önceki kullandığım programdaki kodları giriyorum ama bu dosyada olmuyor Yani yine yardımınız rica edeceğim.

Denemek için örnek bir dosya ekledim nerede yanlışlık var kontrol ederseniz memnun olurum.

İyi çalışmalar,

Saygılarımla...

 

[ulutanas]

Evren hocam yardımınızı rica ediyorum.
İyi çalışmalar,
Saygılarımla...

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
If[B][COLOR="Red"] ListView1.SelectedItem.Selected = False[/COLOR][/B] Then
    MsgBox "listeden seçmediniz."
    Exit Sub
End If
With ListView1
[B][COLOR="red"]Y = .SelectedItem.Index[/COLOR][/B]
'.ListItems.Add , , TextBox1.Text 'ListView2.ListItems(Y).SubItems(0)
.ListItems(Y).Text = TextBox1.Text 'ListView2.ListItems(Y).SubItems(0)
.ListItems(Y).SubItems(1) = TextBox2.Text
.ListItems(Y).SubItems(2) = TextBox3.Text
.ListItems(Y).SubItems(3) = ComboBox1.Text
.ListItems(Y).SubItems(4) = ComboBox2.Text
.ListItems(Y).SubItems(5) = TextBox7.Text
.ListItems(Y).SubItems(6) = TextBox8.Text
.ListItems(Y).SubItems(7) = ComboBox3.Text
.ListItems(Y).SubItems(8) = TextBox9.Text
.ListItems(Y).SubItems(9) = TextBox10.Text
.ListItems(Y).SubItems(10) = TextBox11.Text
.ListItems(Y).SubItems(11) = TextBox12.Text
[B][COLOR="red"].SelectedItem.Selected = False[/COLOR][/B]
End With

End Sub

 

[ulutanas]

Evren hocam burada öğrenmenin sınırı yok bir şey daha öğrendim sayenizde.

Teşekkür ederim, hayırlı geceler.

İyi çalışmalar,

Saygılarımla...

 

[Orion1]

Evren hocam burada öğrenmenin sınırı yok bir şey daha öğrendim sayenizde.

Teşekkür ederim, hayırlı geceler.

İyi çalışmalar,

Saygılarımla...

Rica ederim.
iyi geceler.İyi çalışmalar.

 

[feritbulut]

site sahibi zaten reklamdan çok para kazanıyon niye dosya indirmek ücretli yazık yazık garibanlar her yerde sömürülüyor