Centar za edukaciju-BiH

Predmet:Kalsendar u izvještaju

---

Evo jedan kalendar za novu godinu.

Prilozi:

---

Predmet:Kombo trik

---

Cesto puta imate neki combo ali bi voljeli da se ne vidi da je combo nego da izgleda kao text box pa tek kada udjete da vam se ponudi combo.
Jeftin trik zar ne?

Prilozi:

---

Predmet:Slozi po parent

---

Cesto puta vam treba meni pa podmeni pa pod meni itd.
Ne samo to. Vidio sam cesto puta da ljudi zbog pripadnosti prave mnostvo tabela i uvijek jedna zafali.
Evo primjer kako to mozete napraviti u jednoj tabeli:

ID	Naziv	Pripadnost
1	Glavni meni
2	Podmeni1	1
3	Podmeni2	1
4	Pod Pod meni1	2
5	Stavka U Pod Podmeniju1	4
6	Stavka u podmeniju2	3
7	Stavka u podmeniju1	2
8	sss	5

Zapisiste ovaj kod u neki modul:
n
Zapisite ovaj kod u Query te pokrenite Query koji ce vam napraviti tabelu.
CREATE TABLE Tree(ID AUTOINCREMENT, Naziv TEXT(50), Pripadnost Integer );
Popunite tabelu po zelji po uzoru na gore navedenu.
Zapisiste sledeci Query te ga pokrenite:

---

Predmet:Upute za pravljenje pretrage

---

Kada vrsite pretragu pa ako mozete da birate onda pokusajte vrsiti pretragu po tekstualnim poljima.
Racunar brze vrsi pretragu teksta nego brojeva.
da jos napomenem izbjegavajte vrsiti pretragu po poljima koja nisu indeksirana. sa velikim brojem podataka ovo veoma sporo radi u bilo kojoj bazi.

---

Predmet:SQL naredba IN

---

Cesto puta se desi da iz neke kolone birate vise podataka sa SQL upitom.
Primjer:
SELECT * FROM Uposlenici WHERE ime='Mujo' or ime='Pero' or ime='Mitar'
Moze se to i lakse napisati
SELECT * FROM Uposlenici WHERE ime IN ('Mujo','Pero','Mitar')

---

Predmet:Naredba END

---

Dali koristite naredbu end?
Vjerovatno znate za nju a jos vjerovatnije niste je nikada koristili.
Pored naredbi exit iend sub end function itd kome treba samo end. A vjerovatno vam je trebala.
Evo jedan primjer.
Svi znate napraviti komandi taster preko vizarda za podizanje nekog izzvjetsja i to nije problem.
Poslije razmisljate logicno zasto izvjestaj otvarati ako nema podataka te napravite kod da se uzvjestaj zatvori ako nema izvjestaja. Najzgodnije to odraditi na dogadjaj no data na izvjestaju. Dovoljno je napisati
Msgbox "Nema podataka" i
cancel=-1

Ali sad imamo drugi problem a to je da se u kodu koji smo napravili na komandnom tasteru za podizanje izvjestaja pojavljuje greska.
Eto vidite tu vam treba naredba end u stvari da se zaustavi izvrsenje koda poslije cancel=-1
Pa bi kod na no data izgledao ovako:

---

Predmet:Select case ili if

---

Cesto puta imamo za potrebu provjeriti neki podatak odnosno njegovu vrijednost te ako imamo za potepu provjeravati vise od jednog parametra onda se pitamo sta koristiti if sa njegovim elseif ili select case.
Naravno ako imate vise napr od 4 parametra daleko je to ugodnije odraditi sa select case.
Preglednije je i razuljivije.
Medjutim treba imati na umu da select case sporije radi nego if sa svojim else if.
Primjer:

if podatak = uvjet1
'ako je zadovoljen uvjet 1
elseif podat= uvjet2
' ako je zadovoljen uvjet 2
elseif podatak uvet3
' ako je zadovoljen uvejt3
else
' ako nije zadovoljen niti jedan od uvjeta
endif

select case

case uvjet1
'Ako je zadovoljen uvjet1
case uvjet2
'ako je zadovoljen uvjet2
case uvjet3
'ako je zadovoljen uvjet3
case else
'ako nije zadovoljen niti jedan od zadatih uvjeta
end select

---

Predmet:Otvaranje jedne forme vise puta

---

Mozda vam se nekad desi da jednu te istu formu zelite podici vise puta jednovremeno.
Ovaj zakaceni primjer upravo to radi.

Prilozi:

---

Predmet:Boun column

---

Boun column Opcija koja postoji u proper combo boxa.
Ukliko imamo naprimjer combo za sifru artikla i una je u vecini slucajeva autonuber.
Kada pravimo racun ubacujemo sifru artikla ali nam treba i naziv artikla i pretpostavimo da je u tablici artikala druga kolona naziv artikla. I naziv artikla mozemo unijeti iz kodne tabele artikala u tabelu stavki racuna.
Posrupak je sledeci:
Postavimo jos jedan combo u kome ce u rowsorurce biti tabela artikli.
U control source odaberimo kolonu iz stavki racuna naziv artikla
U column count upisimo 2
U Column width: 0;3
U bound column upisimo 2 sto znaci da cemo upisivati drugu kolonu iz coba u polje kontrol source.

---

Predmet:DoEvents Naredba

---

Mozda ste nekad koristili a mozda i ne DoEvents.
Ima bezbroj nacina kako je iskoristiti.
Ukoliko naprimjer imate neki SQL zahvat ili proceduru koja podugo traje a mogla bi raditi i u pozadini tj. ne utice na daljnji proces rada onda jednostavno na pocetku vase procedure stavite naredbu DoEvents.

U kombinacij sa timer() naredbom moze se svasta nesto napraviti.

---