Predmet:Brza i laka pretraga
Ne filtriranje podataka nego pretraga ba osnovu izbora u coboBoxu.
Veoma brza i laka pretraga i primjenljiva.
PreuzmiIzvorni kôd (Visual Basic):Sub CboMoveTo_AfterUpdate ()
Dim rs As DAO.Recordset
If Not IsNull(Me.cboMoveTo) Then
Set rs = Me.RecordsetClone
rs.FindFirst "[ImePolja] = " & Me.ImeComba
If rs.NoMatch Then
MsgBox "Nema podataka"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.