iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	28.12.2010 02:45
Predmet:Kalsendar u izvjeÅ¡taju Evo jedan kalendar za novu godinu.
Prilozi: kalendar200.zip (Velicina datoteke:23.25 KB)

zxz	29.12.2010 01:14
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: Komboprimjer2000.zip (Velicina datoteke:14.08 KB)

zxz

29.12.2010 01:14

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:
Komboprimjer2000.zip (Velicina datoteke:14.08 KB)

zxz

25.01.2011 17:55

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:

PreuzmiIzvorni kôd (Visual Basic):

Function Slaganje(ID As Variant) As String
Dim Parentni As Variant
Start:
Parentni = DLookup("Pripadnost", "Tree", "ID=" & ID)
If IsNull(Parentni) Then
GoTo Kraj
Else
Slaganje = Str(Parentni) & "." & Str(ID) & "." & Slaganje
ID = Parentni
GoTo Start
End If
Kraj:
End Functio

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:

PreuzmiIzvorni kôd (SQL):

SELECT *
FROM Tree
ORDER BY slaganje(ID);

zxz	05.02.2011 22:06
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.

zxz

05.02.2011 22:06

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.

zxz	10.02.2011 00:01
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')

zxz

10.02.2011 00:01

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')

zxz	10.02.2011 02:41
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: PreuzmiIzvorni kôd (Visual Basic): Private Sub Report_NoData(Cancel As Integer) MsgBox "Nema podataka" DoCmd.CancelEvent End End Sub

zxz

10.02.2011 02:41

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:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Nema podataka"
DoCmd.CancelEvent
End
End Sub

zxz	12.02.2011 00:06
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

zxz

12.02.2011 00:06

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

zxz	18.02.2011 21:55
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: Viseformi.zip (Velicina datoteke:11.74 KB)

zxz

18.02.2011 21:55

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:
Viseformi.zip (Velicina datoteke:11.74 KB)

zxz	09.03.2011 22:00
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.

zxz

09.03.2011 22:00

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.

zxz	14.03.2011 12:26
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.

zxz

14.03.2011 12:26

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.