Centar za edukaciju-BiH

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:

---

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.

---

Predmet:Re: Problem sa pretragom

---

nemam samo imam u ovoj verziji.
Da vas vidim sad

---

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.

---

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.

---

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.

---

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.

---

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.

Slicice prilozenih slika:

---

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

---

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

---