Centar za edukaciju-BiH

Predmet:Re: Baza za evidenciju korisnika

---

A sada kako, napravim formu, upit već imam, koji radi sa upisivanjem mjesta.

---

Predmet:Re: Baza za evidenciju korisnika

---

E gledaj.
Imas ti upit i vjerovatno podatke gledas u upitu.
Bolje je da se podaci gledaju preko forme ili pak preko izvjestaja.
Formu koju trebas napraviti sluzit ce samo za kriterij pretrage odnosno da na njoj napravis combo iz koga ces vrsiti odabir sta da vidis a kako ces to gledati je do tebe.
Kao sto sam naveo mozes to gledati preko nekog izvjestaja ili pak direktno na toj formi ili samo da podignes upit.

---

Predmet:Re: Baza za evidenciju korisnika

---

Evo primjer, sve što možete popraviti napravite to. Hvala.

Prilozi:

---

Predmet:Re: Baza za evidenciju korisnika

---

Evo, dodao sam ti formu za pretraživanje (frmPretrazivanje) iz koje po bilo kojem kriteriju možeš pretraživati korisnike i otvoriti njihov karton. Predlažem da u F_Korisnici subforma bude u Datasheet obliku. Puno je preglednije.
Također ti toplo preporučujem da na isključuječ Min, Max i Close Button dok je baza još u razvoju. Lakše je raditi. Te kozmetičke stvari napravi na kraju kada si gotov sa poslom.

Prilozi:

---

Predmet:Re: Baza za evidenciju korisnika

---

Hvala, pozdrav!

---

Predmet:Re: Baza za evidenciju korisnika

---

Samo još kada bi mi prikazivao umjesto šifre opštine naziv bilo bi mi mnogo bolje. Zbog čega kada pokrenem formu frmStanjeZFilt (tu mi izlista stanje) pa kada idem na filter pokrenem formu frmStanjeZFilt_QBF ta forma ondosno filter ne radi?

---

Predmet:Re: Baza za evidenciju korisnika

---

U Query qryPretrazivanjeAsc dodaj T_Opstine i kolonu Opština preptavi Opština: Naziiv_Opstine (kao na priloženoj slici)
U frmStanjeZFilt_QBF nisi odabrao Record Source pa je zato foema prazna. Odakle ta forma uzima podatke?
Također na formi frmStanjeZFilt, ispod dugmeta Filter ti je kod:

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmStanjeZFilt_QBF"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Nisi stavio vrijednost za stLinkCriteria, a tu bi trebalo ići nešto kao

stLinkCriteria = "[JMBGKorisnika]=" & " ' " & Me![JMBGKorisnika] & " ' "

To ovisi na temelju koje vrijednosti filtriraš.

Još jedna sugestija. Kod naziva tablica i elemenata tablica izbjegavaj slova č,đ,ž. itd. jer ti to može praviti probleme kod pisanja Koda.
Također izbjegavaj odvojene riječi kao npr. Broj telefona. Bolje je napisati BrojTelefona ili Broj_telefona

Slicice prilozenih slika:

---

Predmet:Re: Baza za evidenciju korisnika

---

Evo sada radi pretraga i za opštine.
Znaci li ti sta sljedece:
Function glrQBF_DoHide(frm As Form)
Dim varSQL As Variant
Dim strParentForm As String

'Get the name of the Parent form
strParentForm = Left(CStr(frm.Name), Len(CStr(frm.Name)) - 4)
'Create the approprite Where clause based on the fields with data in them
varSQL = glrDoQBF(CStr(frm.Name), False)
'Open the Parent form filtered with the Where clause genereated above
DoCmd.OpenForm strParentForm, acNormal, , varSQL
'Make this *_QBF form invisible
frm.Visible = False

End Function

---

Predmet:Re: Baza za evidenciju korisnika

---

To sam nasao kod jedne baze za ovu formu pa sam to pokusao iskoristiti i ovdje ali mi ne polazi za rukom.

---

Predmet:Re: Baza za evidenciju korisnika

---

Pa reci koje podatke želiš filtrirati i to se onda može i drugačije napraviti.

---