Želeo bih ovaj problem da rešim na najjednostavniji mogući način, te sam na netu pronašao navodno rešenje koje početak pretrage u combo box-u odlaže sve do momenta kada se ukuca 3. slovo u njega.
Code:
Private Sub Field1_Combo_Change()
Dim strText As String
strText = Nz(Me.Field1_Combo.Text, "")
If Len(strText) > 2 Then
Me.Field1_Combo.RowSource = "Select keywords from " _
& "My_Words " _
& "where keywords like '" & strText & "*' " _
& "order by keywords"
Me.Field1_Combo.Dropdown
End If
End Sub
Private Sub Field1_Combo_Change()
Dim strText As String
strText = Nz(Me.Field1_Combo.Text, "")
If Len(strText) > 2 Then
Me.Field1_Combo.RowSource = "Select keywords from " _
& "My_Words " _
& "where keywords like '" & strText & "*' " _
& "order by keywords"
Me.Field1_Combo.Dropdown
End If
End Sub
Ppokušao sam da ovo rešenje primenim i na moju bazu, ali ne uspevam.
Bio bih vam zahvalan ako bi neko mogao da pogleda da li ovo ima smisla i kako može da se iskoristi.
Šaljem deo moje baze u prilogu.
Hvala unapred!