[ valsalva @ 31.10.2016. 22:18 ] @
Počenik sam što se accessa tiče, a nasledio sam staru bazu sa oko 16000 zapisa koja u principu zadovoljava potrebe klijenta, sa jednim izuzetkom. Naime, celokupno pretraživanje zapisa se svodi na jedan combo box, napravljenom uz pomoć čarobnjaka po tipu "find records on my form ...". problem je u tome što se pretraživanje na ovaj način odvija veoma sporo na svim racunarima sa front end-om, bar dok se ne ukucaju prva 2-3 slova koja automatski sužavaju izbor. Ž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 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! |