Centar za edukaciju-BiH

Predmet:Re: Problem sa pretragom

---

Uf nevalja sacekaj. Ovo je samo ako nista ne napises.

---

Predmet:Re: Problem sa pretragom

---

EVO RJEŠEN PROBLEM

FALSE ZAMJENI SA TRUE AKO MISLIŠ DA TI POKAŽE ŠTO ŽELIŠ

TI USTVARI PONIŠTAVAŠ ONO ŠTO JE PONIŠTENO

JA MSLIM DA SI TO HTIO

Predmet:Re: Problem sa pretragom

---

nece treba tu jos nesto dopisivati

---

Predmet:Re: Problem sa pretragom

---

Keno hvala na odgovoru
tako sam uradio prije ali mi je onda podforma vidljiva, a to necu.

---

Predmet:Re: Problem sa pretragom

---

NETREBA AKO HOČES POSLIJE PRETRAGE DA TI OSTANU VIDLJIVE SUBFORME

Predmet:Re: Problem sa pretragom

---

Me.SUB_Produktion.Visible = True
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True

Me.RecordSource = Me.RecordSource
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "Nema podataka po ovom kriteriju"
GoTo Kraj
End If
                
Me.Bookmark = Me.RecordsetClone.Bookmark

i na kraju prije endsub napisi kraj.
Primjer:

Kraj:
End sub

---

Predmet:Re: Problem sa pretragom

---

Da poslije tacne pretrage hocu da mi ostanu vidljive podforme.
Medjutim ako korisnik upise pogresno u polje "search" onda u ovom primjeru radi al je problem da mi se jedna od ove tri podfoirme vidi.

Znaci ovako ako korisník upise neku vrijednost koje nema u bazi treba da mu dodje ona obavjest da ta vrijednost ne postoji,
i kad klikne na "ok" da mu ostanu nevidljive podforme, sve dok ne bude upisao vrijednost koja postoji u bazi.
I samo u tom slucaju se otvaraju sve tri podforme i vidljive su.

---

Predmet:Re: Problem sa pretragom

---

uf nisam stigao ispratit.
Me.RecordSource = Me.RecordSource
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "Nema podataka po ovom kriteriju"
GoTo Kraj
End If
Me.SUB_Produktion.Visible = True
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.Bookmark = Me.RecordsetClone.Bookmark

i na kraju prije endsub napisi kraj.
Primjer:

Kraj:
End sub

---

Predmet:Re: Problem sa pretragom

---

Zona
Nisam ni sumnjao u tebe.
Blizimo se rjesenju.
Sad radi, ali kako sam objasnio i Kenanu
kako da mi se ne vide podforme u koliko se upise pogresna vrijednost u search?

---

Predmet:Re: Problem sa pretragom

---

Premjesti ovo,
Me.SUB_Produktion.Visible = True
Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.Bookmark = Me.RecordsetClone.Bookmark

Ispod ifa ili pak ubaci u if ovo samo sa visible=false.
Bolje je da premjestis ispod nego da dva puta pises.

---