ListView1_Click hakkında

[ocamsul]

Arkadaşlar iyi geceler;

ListView1_Click olayında ListView1 in 1. hücresini TextBox1 e alamadım! bunun nedeni ne olaki

Private Sub ListView1_Click()
  On Error Resume Next
  If ListView1.ListItems.Count = 0 Then Exit Sub
 X = ListView1.SelectedItem.Index

    TextBox1.Text = ListView1.ListItems(X).ListSubItems(0).Text
    TextBox2.Text = ListView1.ListItems(X).ListSubItems(1).Text
    TextBox3.Text = ListView1.ListItems(X).ListSubItems(2).Text
    TextBox4.Text = ListView1.ListItems(X).ListSubItems(3).Text
    TextBox5.Text = ListView1.ListItems(X).ListSubItems(4).Text

End Sub

 

[Orion1]

ilgili satırı aşğaıdaki ile değiştirip deneyin.
Ayrıca şu on error resume next deyimini kullanmayın.
Ben bir tek o deyimi çalışma sayfasında change veya select olayında kullanıyom.
Çünkü satır veya kolon silinince hata oluşuyor.
yazmayın ki hata nerede görün.
iyi bir coder hatayı tesbit eder ve onu gideriri.
ama siz bu hatayı atlama ve devam etme kodunu tyazrasanız hatayı nasıl göreceksiniz.
Bu ilk satırda hata oluyor
ve o yüzden veriyi textboxa almıyor.
oysa on error resume next yazmasa idiniz o satırda hata verecek ve o satırı sarıya boyyayacaktı.
sizde o satırla ilgili bir çalışma yapıp doğrusunu yazacaktınız.
Herkese söylüyoerum ama beni dinleyen yok.
Hemen on error resume next yapıştırıyorlar.
Bunu kullanınca çok dikat etmeniz lazım.
hata oluştuğunda onu sorgulayın en azaından ne hatası diye.
ilgili kodu aşğaıdaki ile değiştirip deneyin.Ben denemedim ama olu sanırım.
Ya bunu yazın

TextBox1.Text = ListView1.ListItems(X).Text

Olmazsa bunu deneyin

TextBox1.Text = ListView1.ListItems.Text

 

[ocamsul]

Sn: Evren hocam, evet dediğiniz gibi oldu. Birde uyarınıza bundan böyle uyacağım. Teşekkür ederim.

TextBox1.Text = ListView1.ListItems(X).Text

 

[Ömer]

Merhaba,

Alternatif olarak aşağıdaki gibi de kullanabilirsiniz.

Private Sub ListView1_Click()
 
    With ListView1
        x = .SelectedItem.Index
 
        TextBox1.Text = .ListItems(x)
        For i = 1 To 4
            Controls("Textbox" & i + 1).Text = .ListItems(x).ListSubItems(i)
        Next i
    End With
 
End Sub

.

 

[ocamsul]

Sn: Ömer hocam teşekkür ederim. Notumu aldım

 

[ocamsul]

ilgili satırı aşğaıdaki ile değiştirip deneyin.
Ayrıca şu on error resume next deyimini kullanmayın.
Ben bir tek o deyimi çalışma sayfasında change veya select olayında kullanıyom.
Çünkü satır veya kolon silinince hata oluşuyor.
yazmayın ki hata nerede görün.
iyi bir coder hatayı tesbit eder ve onu gideriri.
ama siz bu hatayı atlama ve devam etme kodunu tyazrasanız hatayı nasıl göreceksiniz.
Bu ilk satırda hata oluyor
ve o yüzden veriyi textboxa almıyor.
oysa on error resume next yazmasa idiniz o satırda hata verecek ve o satırı sarıya boyyayacaktı.
sizde o satırla ilgili bir çalışma yapıp doğrusunu yazacaktınız.
Herkese söylüyoerum ama beni dinleyen yok.
Hemen on error resume next yapıştırıyorlar.
Bunu kullanınca çok dikat etmeniz lazım.
hata oluştuğunda onu sorgulayın en azaından ne hatası diye.
ilgili kodu aşğaıdaki ile değiştirip deneyin.Ben denemedim ama olu sanırım.
Ya bunu yazın

TextBox1.Text = ListView1.ListItems(X).Text

Olmazsa bunu deneyin

TextBox1.Text = ListView1.ListItems.Text

Sn: Evren hocam; dediğiniz gibi

On Error Resume Next

satırını kaldırdığımızda UserForm için komple uyarı verdi.

Kodlarımda acaba ne gibi bir hata var arkadaşlar.

 

[halit3]

Hata bu satırda

.Add , , Sh.Cells(2, [COLOR=red][B]0[/B][/COLOR]), Sh.Range("A3").Width

Buradaki sıfır değerinden kaynaklanıyor sayfalarda başlangıç sutünü 1 dir sıfır olmaz bu sıfırı bir yapıp deneyiniz takip eden kodlarıda buna göre kaydırarak düzeltin.

 

[ocamsul]

Sn: halit hocam teşekkür ederim, eksik olmayın.