Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Access trikovi
zxz 28.12.2010 01:45
Predmet:Kalsendar u izvještaju

Evo jedan kalendar za novu godinu.
Prilozi:
kalendar200.zip (Velicina datoteke:23.25 KB)

zxz 29.12.2010 00: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 16: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):
  1. Function Slaganje(ID As Variant) As String
  2. Dim Parentni As Variant
  3. Start:
  4. Parentni = DLookup("Pripadnost", "Tree", "ID=" & ID)
  5. If IsNull(Parentni) Then
  6.         GoTo Kraj
  7.     Else
  8.         Slaganje = Str(Parentni) & "." & Str(ID) & "." & Slaganje
  9.         ID = Parentni
  10.         GoTo Start
  11.     End If
  12. Kraj:
  13. 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):
  1. SELECT *
  2. FROM Tree
  3. ORDER BY slaganje(ID);

zxz 05.02.2011 21: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 09.02.2011 23: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 01: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):
  1. Private Sub Report_NoData(Cancel As Integer)
  2. MsgBox "Nema podataka"
  3. DoCmd.CancelEvent
  4. End
  5. End Sub

zxz 11.02.2011 23: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 20: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 21: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 11: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.