ListView1_DblClick olayına koşul eklemek.

[s.savas]

Merhaba arkadaşlar.

ListView1_DblClick olayına ilave bir ekleme yapılarak veya farklı bir yöntemle listview'sa bulunan veriler çift tıklanınca; frmONAY isimli form üzerinde bulunan TextBox6,TextBox7 ve TextBox8 haricindeki bütün TextBox ve ComboBox ların pasif olması sağlanabilirmi?

Private Sub ListView1_DblClick()
Y = ListView1.SelectedItem.Index
TextBox4 = ListView1.ListItems(Y).ListSubItems(1).Text 
TextBox1 = ListView1.ListItems(Y).ListSubItems(2).Text 
TextBox2.Text = ListView1.ListItems(Y).ListSubItems(3).Text 
ComboBox1 = ListView1.ListItems(Y).ListSubItems(4).Text 
ComboBox2 = ListView1.ListItems(Y).ListSubItems(5).Text 
TextBox5 = ListView1.ListItems(Y).ListSubItems(6).Text 
TextBox3 = ListView1.ListItems(Y).ListSubItems(7).Text 
TextBox6 = ListView1.ListItems(Y).ListSubItems(8).Text 
TextBox7 = ListView1.ListItems(Y).ListSubItems(9).Text 
TextBox8 = ListView1.ListItems(Y).ListSubItems(10).Text
TextBox12 = ListView1.ListItems(Y).ListSubItems(11).Text 
End Sub

 

[Ömer]

Merhaba,

İlgili kodları aşağıdakilerle değiştirerek deneyiniz..

Private Sub ListView1_DblClick()
 
Dim ara As Control, y As Long
 
y = ListView1.SelectedItem.Index
With ListView1.ListItems(y)
    TextBox4 = .ListSubItems(1).Text 'Onay No
    TextBox1 = .ListSubItems(2).Text 'Onay Tarihi
    TextBox2 = .ListSubItems(3).Text 'Malzemenin Hizmetin Adı
    ComboBox1 = .ListSubItems(4).Text 'Bütçe Kodu
    ComboBox2 = .ListSubItems(5).Text 'Alım Yöntemi
    TextBox5 = .ListSubItems(6).Text 'Kalan Ödenek
    TextBox3 = .ListSubItems(7).Text 'Yaklaşık Maliyet
    TextBox6 = .ListSubItems(8).Text 'Karara Bağlanan
    TextBox7 = .ListSubItems(9).Text 'Gerçekleşme Tarihi
    TextBox8 = .ListSubItems(10).Text 'Açıklama
    TextBox12 = .ListSubItems(11).Text 'Açıklama
End With
 
For Each ara In Me.Controls
    If TypeName(ara) = "TextBox" Or TypeName(ara) = "ComboBox" Then
        If ara.Name <> "TextBox6" And ara.Name <> "TextBox7" _
        And ara.Name <> "TextBox8" Then
            ara.Visible = False
        End If
    End If
Next ara
 
End Sub

.

 

[s.savas]

Merhaba,

İlgili kodları aşağıdakilerle değiştirerek deneyiniz..

Private Sub ListView1_DblClick()
 
Dim ara As Control, y As Long
 
y = ListView1.SelectedItem.Index
With ListView1.ListItems(y)
    TextBox4 = .ListSubItems(1).Text 'Onay No
    TextBox1 = .ListSubItems(2).Text 'Onay Tarihi
    TextBox2 = .ListSubItems(3).Text 'Malzemenin Hizmetin Adı
    ComboBox1 = .ListSubItems(4).Text 'Bütçe Kodu
    ComboBox2 = .ListSubItems(5).Text 'Alım Yöntemi
    TextBox5 = .ListSubItems(6).Text 'Kalan Ödenek
    TextBox3 = .ListSubItems(7).Text 'Yaklaşık Maliyet
    TextBox6 = .ListSubItems(8).Text 'Karara Bağlanan
    TextBox7 = .ListSubItems(9).Text 'Gerçekleşme Tarihi
    TextBox8 = .ListSubItems(10).Text 'Açıklama
    TextBox12 = .ListSubItems(11).Text 'Açıklama
End With
 
For Each ara In Me.Controls
    If TypeName(ara) = "TextBox" Or TypeName(ara) = "ComboBox" Then
        If ara.Name <> "TextBox6" And ara.Name <> "TextBox7" _
        And ara.Name <> "TextBox8" Then
            ara.Visible = False
        End If
    End If
Next ara
 
End Sub

.

Ömer hocam çok teşekkür ederim.
İzin verirseniz konu ile alakalı bir soru daha sorabilirmiyim.
TextBox6,TextBox7 ve TextBox8 dolu ise tüm TextBox ve ComboBox ların enabled özelliği false olsun.
Bu koşulu şunun için istiyorum. Açılmış olan bir hesap kapatılmış ise sonradan userform vasıtası ile değiştirilemesin.

 

[Ömer]

Dolu olup olmadığını hangi olaydan sonra kontrol edeceğiz. Yine forma çift tıklama ile mi?

Ayrıca doluluk kontrolü yapılırken şartın sağlanması için 6-7-8 nolu textboxların tümünün mü dolu olması gerekiyor.

.

 

[s.savas]

Dolu olup olmadığını hangi olaydan sonra kontrol edeceğiz. Yine forma çift tıklama ile mi?

Ayrıca doluluk kontrolü yapılırken şartın sağlanması için 6-7-8 nolu textboxların tümünün mü dolu olması gerekiyor.

.

Dolu olup olmadığını gene çift tıklama olayında konrol edilmesi ve doluluk kontrolü için bütün TextBox ve ComboBoxların dolu olması gerekiyor.

 

[Ömer]

Kodlardaki ara (kontrol) döngüsünü aşağıdakiyle değiştiriniz..

For Each ara In Me.Controls
    If TypeName(ara) = "TextBox" Or TypeName(ara) = "ComboBox" Then
        ara.Enabled = True
        If TextBox6 <> "" And TextBox7 <> "" And TextBox8 <> "" Then
            ara.Enabled = False
        End If
    End If
Next ara

.

 

[s.savas]

Çok teşekkür ederim üstat. Emeğinize sağlık.