| zxz | 22.02.2015 15:50 |
|---|---|
|
Predmet:Re: Problem sa pretragom Uf nevalja sacekaj. Ovo je samo ako nista ne napises. |
|
| kenan | 22.02.2015 15:50 |
|---|---|
|
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 |
|
| Jasmin | 22.02.2015 15:54 |
|---|---|
|
Predmet:Re: Problem sa pretragom nece treba tu jos nesto dopisivati |
|
| Jasmin | 22.02.2015 15:57 |
|---|---|
|
Predmet:Re: Problem sa pretragom Keno hvala na odgovoru tako sam uradio prije ali mi je onda podforma vidljiva, a to necu. |
|
| kenan | 22.02.2015 15:57 |
|---|---|
|
Predmet:Re: Problem sa pretragom NETREBA AKO HOČES POSLIJE PRETRAGE DA TI OSTANU VIDLJIVE SUBFORME |
|
| zxz | 22.02.2015 16:02 |
|---|---|
|
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 |
|
| Jasmin | 22.02.2015 16:03 |
|---|---|
|
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. |
|
| zxz | 22.02.2015 16:06 |
|---|---|
|
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 |
|
| Jasmin | 22.02.2015 16:08 |
|---|---|
|
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? |
|
| zxz | 22.02.2015 16:08 |
|---|---|
|
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. |
|