Centar za edukaciju-BiH


Stranice (2):1,2

#11 17.01.2019 16:02
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Kad se ubaci kod u primer on lepo radi, i tako bi trebalo da radi ali kad umesto text boxa stavim combo box nece, preimenovao sam polje grad u id_grad i text box u kodu ali nece opet. Sta jos trebam da ispravim? Hvala unapred

Prilozi:
Informacije o tipu datoteke za:rar  pretraga.rar
Preuzimanja:280
Velicina datoteke:24.42 KB

↑  ↓

#12 17.01.2019 19:43
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Pretraga
Ovo je kod za tekst box , nemozes menjati kontrole kako ti padne na umu.
Prvi odluci se koja kontrola ces koristiti i potrazi pomos , ovako ispada da se zezas sa ljudima.

Probaj gde je Me.Text11 zameni ga sa ImeCombo.text
↑  ↓

#13 17.01.2019 20:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
Mozda je ovdje sad bolje da prodiskutujemo.
Kao prvo u imeniku polje grad si promijenio iz teksta u broj.
Znaci ti u to polje upisujes id broj grada a ne ime grada.
Stavio si cobo box gdje citas dva polja iz tabele gradova ali je vidljivo samo drugo tj. ime grada.
Nista tu nije sporno sem pretrage.
Mogao si ti napraviti isto i ne mijenjati polje u imeniku samo da si napisao bound column 2 umjesto 1.
Onda bi vjerovatno sve proradilo.
Naravno pretraka se moze i ovako napraviti samo eto da se razumije sta se radi.
Bound kolumn znaci to koju ces kolonu iz combo boxa upisivati u tabelu imenik u polje grad.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 18.01.2019 02:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
evo ti kod za to tvoje trenutno stanje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command17_Click()
  2. Dim SQL As String, Kriterij As String, RecordSource As String, Uslov As String
  3. Dim Brojac As Integer
  4. Dim Db As dao.Database
  5. Dim Rs As dao.Recordset
  6.  
  7. Set Db = CurrentDb()
  8. Kriterij = ""
  9. If Format$(Me.Text18) <> "" Then
  10. SQL = "SELECT * FROM grad WHERE ime like " & Chr(39) & Me.Text18 & Chr(42) & Chr(39)
  11. Set Rs = Db.OpenRecordset(SQL)
  12.     Do While Not Rs.EOF
  13.     Uslov = Uslov & "," & Rs.Fields(0)
  14.     Rs.MoveNext
  15.     Loop
  16. Uslov = Mid(Uslov, 2)
  17. End If
  18. SQL = "SELECT * FROM Imenik"
  19. Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac, 0
  20. Dodaj_Kriterij Uslov, "ID_grad", Kriterij, Brojac, 1
  21.     If Kriterij <> "" Then
  22.         Kriterij = " WHERE " & Kriterij
  23.     End If
  24.  
  25.     RecordSource = SQL & Kriterij
  26.     Me.RecordSource = RecordSource
  27.     If Me.RecordsetClone.RecordCount = 0 Then
  28.     MsgBox "Nema podataka"
  29.     End If
  30. End Sub
  31.  
  32. Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer, Tip As Integer)
  33.     If VrijednostPolja <> "" Then
  34.         If Brojac > 0 Then
  35.             Kriterij = Kriterij & " AND "
  36.         End If
  37.         If Tip = 0 Then
  38.         Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39))
  39.         ElseIf Tip = 1 Then
  40.         Kriterij = (Kriterij & ImePolja & " IN(" & VrijednostPolja & ")")
  41.         End If
  42.     Brojac = Brojac + 1
  43.     End If
  44. End Sub

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

#15 18.01.2019 18:41
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
To je to, radi, hvala puno. Samo jos nesto da pitam, Kad prebacim ovaj kod na druge forme gde imam ista polja nece da radi, tj. pretraga po imenu radi ali ne i po gradu, zamenim ime commanda, text boxa i select from. Da ne treba i da se preimenuju chr 39 i chr 42? Hvala unapred
↑  ↓

#16 18.01.2019 19:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
Moramo se vratiti na post 13.
Upravo zbog ovoga sam ga i napisao.
Ima tu dosta pitanja koja traze odgovore?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 19.01.2019 08:48
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Pretraga
Da, tako je. Video sam post ali nisam bas najbolje razumeo. Kazete da sam to isto mogao da napravim a da ne menjam polje. Mislite da ne stavljam combo box ili da ne menjam imena polja u kodu? Hvala unapred
↑  ↓

#18 20.01.2019 00:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Pretraga
Ne combo bi ostao ali polje grad u tabeli imenik.
Samo bi u combu koji si napravio bilo bound column 2 umjesto 1.
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: 7: 56 pm.