Listbox Yardım

[Kohhh]

Mağazamda kullandığım Excel formuna birşey eklemek istiyorum.

SÜrekli cihazların durumuna açıp bakmak zorunda kalıyorum. Bunu list box ile örnekleri gördüm. Gayet başarılı.

Bir örneğe baktım arama kutusu yok. Fazla örnekte inceleyemiyorum eklentileri indirme yetkim yok

Bu konuda bir üstad yardımcı olursa yada yol gösterirse memnun olurum.

birde listem kalabalık olduğu için SERİ MARKA FİZİKİ DURUM KUTU gibi kolon isimleri olursa süper olur. Olmazsa canınız saolsun

Oluşturduğum formda textbox samsung yazdığımda samsung cihazları gözüksün. tek isteğim bu.

aşağıda örnek dosyam
SORU.rar

 

[Orion1]

Markaya göre arıyor.
Dosyanız linkte ve ektedir.

DOSYAYI İNDİR

Private Sub TextBox1_Change()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
conn.Open ("Provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
        "\database.xlsx;extended properties=""excel 12.0;hdr=yes"";")
rs.Open "select * from [Sayfa1$] where MARKA like '" & TextBox1.Text & "%';", conn, 1, 1
ListBox1.Clear
If rs.RecordCount > 0 Then ListBox1.Column = rs.getrows
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
End Sub

 

[hlojan]

Harikasınız Ben optionbutton eklermisiniz demeyi unutmuşum . Kutu AÇIK ve KAPALI diye. Ado ile yazdığınızdan ben yazamazdım. Bende Textbox2 oluşturdum. option buttonu Textbox2.Value 2 yönlendirdim. if AÇIK else Kapalı yaptım Textbox2 yi de formun dışına ittim biraz dolambaclı oldu ama işime yaradı süper oldu. Sadece anlatmak istedmç iyi çalışmalar

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
TextBox2.Value = "a"
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
TextBox2.Value = "k"
End If
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
TextBox2.Value = ""
End If
End Sub

 

[Orion1]

Harikasınız Ben optionbutton eklermisiniz demeyi unutmuşum . Kutu AÇIK ve KAPALI diye. Ado ile yazdığınızdan ben yazamazdım. Bende Textbox2 oluşturdum. option buttonu Textbox2.Value 2 yönlendirdim. if AÇIK else Kapalı yaptım Textbox2 yi de formun dışına ittim biraz dolambaclı oldu ama işime yaradı süper oldu. Sadece anlatmak istedmç iyi çalışmalar

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
TextBox2.Value = "a"
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
TextBox2.Value = "k"
End If
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
TextBox2.Value = ""
End If
End Sub

Yanlış yere yazdınız sanırım.
Bu başlık sayın kohhh un konusu.

 

[Orion1]

Anladım.siz ayni kişilersiniz.
Yalnız 1 kişinin 2 ayrı kullanıcı olarak girmesi forum kurallarına aykırı.Bunu biliyormusunuz?