Prikazi cijelu temu 05.04.2019 17:25
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Combobox as you type
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2.   Combo1.AllowAutoCorrect = False
  3.   Dim strSQL As String
  4.     strSQL = "SELECT * FROM tt WHERE Naziv Like '**'"
  5.    
  6.   Me.Combo1.RowSource = strSQL
  7.  
  8. End Sub
  9.  
  10. Private Sub Combo1_Change()
  11. Dim strSQL As String
  12.     strSQL = "SELECT * FROM tt WHERE Naziv Like '*" & Me.Combo1.Text & "*'"
  13.    
  14.   Me.Combo1.RowSource = strSQL
  15.   Me.Combo1.Dropdown
  16. End Sub