Centar za edukaciju-BiH


Stranice (2):1,2

#1 15.01.2019 21:21
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Pretraga
Jel moze neko da napise kod za pretragu u primeru? Kade se upise ime i prezime da prebaci na taj rekord. Hvala puno unapred

Prilozi:
Informacije o tipu datoteke za:rar  Pretraga.rar
Preuzimanja:289
Velicina datoteke:21.76 KB

↑  ↓

#2 16.01.2019 00:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
Napravi jedan komandni taster.
Na on klik tog tastera stavi sledeci kod:
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.  
  9. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 16.01.2019 10:36
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Radi, ali kad se ukuca ime i prezime koji ne postoje, ono otvori za upis novog rekorda. Sta trebam da uradim da ne otvara na novi rekord, nego da izbaci obavestenje da ne postoji ime u bazi? Hvala unapred
↑  ↓

#4 16.01.2019 13:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
↑  ↓

#5 16.01.2019 18:49
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Kad stavim opciju allow additions na NO, kad nema podataka, nestane sve sa forme i komande i polja vidi se samo prazna forma. Ako to ne moze da se ubaci u kod na if ako nema imena da ne reaguje nema veze, neka ide na novi rekord. A sta trebam da promenim u kodu da bi radio ako ga stavim u text box na on enter? Hvala unapred
↑  ↓

#6 16.01.2019 19:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
Na on enter nemoze raditi jer on enter je dogadjaj koji se desi kada dodjes u polje za pretragu znaci prije kucanja kriterija ali se moze staviti na on dirty ili on exit i onda kada pritisnes enter trebalo bi da radi
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 16.01.2019 22:10
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Ok, radi dobro i ovako, hvala. Sta trebam da dodam u kodu kad otvorim jos jedan text box za grad, ali da bude neobavezno? Da radi i ako se ukuca grad i ako se ne ukuca, Hvala unapred
↑  ↓

#8 16.01.2019 23:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
E sad neznam kako si mislio jeli ovako
ime prezime grad

Ili si mislio da bilo sta ukucas ili ime ili prezime ili grad.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 16.01.2019 23:54
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Da bude kao u query-u prvi uslov u criteria a drugi u or, stavio sam u primeru kako treba da izgleda na formi. Hvala unapred

Prilozi:
Informacije o tipu datoteke za:rar  Pretraga.rar
Preuzimanja:282
Velicina datoteke:24.54 KB

↑  ↓

#10 17.01.2019 10:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
evo novi kod
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command17_Click()
  2. Dim SQL As String, Kriterij As String, RecordSource As String
  3. Dim Brojac As Integer
  4.  
  5. SQL = "SELECT * FROM Imenik"
  6. Kriterij = ""
  7. Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac
  8. Dodaj_Kriterij Me.Text18, "grad", Kriterij, Brojac
  9.     If Kriterij <> "" Then
  10.         Kriterij = " WHERE " & Kriterij
  11.     End If
  12.     RecordSource = SQL & Kriterij
  13.     Me.RecordSource = RecordSource
  14.     If Me.RecordsetClone.RecordCount = 0 Then
  15.     MsgBox "Nema podataka"
  16.     End If
  17. End Sub
  18.  
  19. Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer)
  20.     If VrijednostPolja <> "" Then
  21.         If Brojac > 0 Then
  22.             Kriterij = Kriterij & " AND "
  23.         End If
  24.     Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39))
  25.     Brojac = Brojac + 1
  26.     End If
  27. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 35 pm.