Soru ComboBox.Items.Remove ile silme işlemi

MESKO

New member
Üye
#1
For i = 0 To rs.fields.Count - 1
ComboBox4.AddItem rs.fields(i).Name
ComboBox4.Items.Remove ("ALİ")
ComboBox4.Items.Remove ("MEHMET")
Next

ComboBox4.Items.Remove ("ALİ") Bu satır Method or data member not found hatası veriyor.
additem ile gelen verinin içindeki Ali ve Mehmet'i sildirmek istiyorum. Yardımlarınızı rica ederim.
 

OrkmesB

Administrator
Yönetici
Admin
#2
Merhaba,

Verilerde silinecek kelimeleri bulamadığı için bu hatayı veriyor sanırım.
Eğer almak istemediğiniz veri varsa, bunu WHERE şartı ile yapsanız daha kolay olur.
Yani veriyi ComboBox'a alıp silmektense, bir şart dahilinde hiç almamak daha yararlı olacaktır.
 

MESKO

New member
Üye
#3
Merhaba,

Verilerde silinecek kelimeleri bulamadığı için bu hatayı veriyor sanırım.
Eğer almak istemediğiniz veri varsa, bunu WHERE şartı ile yapsanız daha kolay olur.
Yani veriyi ComboBox'a alıp silmektense, bir şart dahilinde hiç almamak daha yararlı olacaktır.
Private Sub UserForm_Initialize()

Dim i As Integer

baglan

Set rs = CreateObject("adodb.recordset")
rs.Open "select * from [RAPOR GRUBU$]", evn, 1, 1
ComboBox2.Clear
For i = 0 To rs.fields.Count - 1
ComboBox2.AddItem rs.fields(i).Name
Next

Set rs = CreateObject("adodb.recordset")
rs.Open "select * from [DATA$]", evn, 1, 1
ComboBox4.Clear
For i = 0 To rs.fields.Count - 1
ComboBox4.AddItem rs.fields(i).Name

Next

For i = 4 To 9
'ComboBox3.Clear
UFRAPOR.ComboBox3.AddItem Sayfa1.Range("A" & i).Value
Next i

End Sub

Additem'i sütun başlıklarından alıyorum. Where'li şart edatını yada silme işlemini initialize olayına nasıl kodlayabiliriz.
Teşekkürler.
İyi Çalışmalar.
 

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#4
For i = 0 To rs.fields.Count - 1
ComboBox4.AddItem rs.fields(i).Name
ComboBox4.Items.Remove ("ALİ")
ComboBox4.Items.Remove ("MEHMET")
Next

ComboBox4.Items.Remove ("ALİ") Bu satır Method or data member not found hatası veriyor.
additem ile gelen verinin içindeki Ali ve Mehmet'i sildirmek istiyorum. Yardımlarınızı rica ederim.
Aşağıdaki gibi deneyiniz.

Kod:
For i = 0 To rs.fields.Count - 1
if rs.fields(i).Name <> "ALİ" OR rs.fields(i).Name <> "MEHMET" then
ComboBox4.AddItem rs.fields(i).Name
End if
Next
 
Son düzenleme:
Üst