Prikazi cijelu temu 16.01.2019 14:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pretraga
Ovaj postojeci kod malo izmijeni
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub  ImeTastera_Click()
  2. Dim sql As String
  3. Dim kriterij As String
  4.  
  5. kriterij = Me.Text11 & "*'"
  6. sql = "SELECT * FROM Imenik WHERE (Ime & ' ' &  prezime) like '" & kriterij
  7. Me.RecordSource = sql
  8. If Me.RecordsetClone.RecordCount = 0 Then
  9. MsgBox "nema podataka"
  10. End If
  11. End Sub

a da ti ne skace na novi upis u property forme nadji opciju allow additions i stavi NO.
Ona ti je na tabu data.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.