Jasmin 22.02.2015 14:17
Predmet:Problem sa pretragom

Ako u polje "search" u formi upisem neku trazenu vrijednost, otvori mi se u podformi rezultat pretrage.
Problem je u tome, ako upisem vrijednost koja ne postoji (nije unesena u bazu) u bazi podataka, onda dobijam obavijest da je greska u kodu.
Saljem bazu kao primjer.
Prilozi:
test.rar (Velicina datoteke:114.80 KB)

zxz 22.02.2015 14:31
Predmet:Re: Problem sa pretragom

Uf Jasko daj smanji koju verziju unazad.
Ti to hoces da se nama pofalis kako imas dobar comp.
Kod nas su kante.
Ja bi naj sretniji bio kad bi ti to poslao u 2003 verziji.

Jasmin 22.02.2015 14:53
Predmet:Re: Problem sa pretragom

nemam samo imam u ovoj verziji.
Da vas vidim sad Laughing

zxz 22.02.2015 15:02
Predmet:Re: Problem sa pretragom

Uf zardjo si ti skroz sto se tice accessa.
kada otvoris ovo u tom svom accessu 2020 hehe onda imas opciju save as pa odaberi najnizu access verziju koja tu ima na spisku.
To ti je lijevo gore kada kliknes na onaj krug pa iskoci meni i imas opciju save as.
Ja imam naj vecu 2007.

Jasmin 22.02.2015 15:05
Predmet:Re: Problem sa pretragom

jest, al' onda moras i kodove da mijenjas, inace ako to ne uradim nece da save as u nizim verzijama.

zxz 22.02.2015 15:10
Predmet:Re: Problem sa pretragom

Pa hoce u 2007 makar.
To mogu otvorit a da zapise bilo kako ja cu se snac a ovo tvoje nemogu nikako da otvorim a ni vecina ovjde jer je vjerovatno naj novija verzija ofisa a mi to nemamo.

zxz 22.02.2015 15:17
Predmet:Re: Problem sa pretragom

Daj makar mi kopiraj kod koji stoji iza tastera trazi ili tako nesto.
neznam kako je napravljeno.
Kopiraj kod i stavi u txt ili direktno na forum.

Jasmin 22.02.2015 15:40
Predmet:Re: Problem sa pretragom

nece da se save as ni u jednoj starijoj verziji. a evo koda:
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] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark

If Me.RecordsetClone.NoMatch Then
evo i slike forme


MsgBox "Search " & txtSök & " hittades inte!" & vbCrLf & "Gör ett nytt försök ? ", _
, "Söknings fel!"
txtSök.Value = ""
Me.SUB_Produktion.Visible = False
Me.SUB_Test.Visible = False
Me.SUB_Anteckning.Visible = False

Else
Me.SUB_Test.SourceObject = Me.SUB_Test.SourceObject
End If
txtSök.Value = ""

e sad ako promjenim na true onda radi, medjutim to mi nije rijesenje jer mi je onda podforma vidljiva, a ja to necu.
Prilozi:
form.jpg (Velicina datoteke:32.90 KB)

Jasmin 22.02.2015 15:44
Predmet:Re: Problem sa pretragom

neznam kako uleti ovaj text izmedju kodova "evo i slike forme" sa tim sm mislio na ovo sliku koju sam prilozio

zxz 22.02.2015 15:46
Predmet:Re: Problem sa pretragom

Me.SUB_Test.Visible = True
Me.SUB_Anteckning.Visible = True
Me.RecordSource = Me.RecordSource
if format$(Me![txtSök])="" Then : Goto Kraj ' ovo dopisi
Me.RecordsetClone.FindFirst "[Produktion] LIKE '" & Me![txtSök] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark

I na kraju prije end sub napisi

Kraj:
end sub