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.