Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101

Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
iCentar
Prikazi cijelu temu 13.02.2012 13:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Sub CboMoveTo_AfterUpdate ()
  2.     Dim rs As DAO.Recordset
  3.  
  4. If Not IsNull(Me.cboMoveTo) Then
  5.         Set rs = Me.RecordsetClone
  6.         rs.FindFirst "[ImePolja] = " & Me.ImeComba
  7.         If rs.NoMatch Then
  8.             MsgBox "Nema podataka"
  9.         Else
  10.             Me.Bookmark = rs.Bookmark
  11.         End If
  12.         Set rs = Nothing
  13. End If
  14. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.