Gan, ane punya issue nih pas mau load isi list combobox secara otomatis pas diinput comboboxnya, jd kyk google search gt ada suggested search. Masalahnya, pas combobox diisi dari item yang diambil dari database dengan input langsung di combobox, item akan terisi, tapi saat item yang diisi kurang dari jumlah item sebelumnya, akan terjadi bug yang dimaksud(item nyangkut di background)

Mohon bantuan, n mw tanya apa ada fungsi atw instruksi biar combobox bisa expand n collapse combobox?

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)

 Dim sql As String

 Dim rs As New ADODB.Recordset

 Dim i As Integer

 Dim a As String

 

 sql = "select * from MSItemInventory where name1 like '" & Combo1.Text & "'+'%' order by name1"

 Connect

 Set rs = con.Execute(sql)

 

 a = Combo1.Text

 'Combo1.Clear

 Set rs = con.Execute(sql)

 If Not rs.EOF Then

 Combo1.Clear

 i = 1

 While Not rs.EOF

 Combo1.AddItem (IIf(IsNull(rs!name1), "", rs!name1))

 Combo1.ItemData(Combo1.NewIndex) = i

 i = i + 1

 rs.MoveNext

 Wend

 End If

 Combo1.Text = a

 Combo1.SelStart = Len(Combo1)

End Sub