'Użytkownik musi wpisać pierwszą literę. Sprawdź, czy zadziała dla tak dużej tabeli
' właściwość Autorozwijanie formantu Me.Kombi0 ustaw na FALSE
Private Sub Form_Load()
If Me.Kombi0.AutoExpand Then Me.Kombi0.AutoExpand = False
End Sub
Private Sub Kombi0_Change()
' Oryginalnie:
' Me.Kombi0.RowSource=SELECT tblTabela.TwojePole FROM tblTabela;
Me.Kombi0.RowSource = "SELECT tblTabela.TwojePole FROM tblTabela WHERE (tblTabela.TwojePole Like ('" & Me.Kombi0.Text & "*'))"
Me.Kombi0.Dropdown
--
LX'yrs
End Sub