Microsoft Office Access
uređuje Branislav Mihaljev, MVP

MoveFirst: kraj jednog mita

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Interesantno je kako se ponekad spotičemo o neke zastarele programske tehnike u praksi. Access tu nije nikakav izuzetak...

Često se desi da moramo što pre da migriramo Access aplikaciju sa jedne verzije na drugu, a u toj žurbi ponekad zaboravimo da "počistimo" programski kod. Štaviše, ponekad smo i robovi starih navika, pa sami upotrebimo nepotrebnu metodu. Evo jednog primera.

U ranijim verzijama DAO biblioteke za pristup podacima, nakon otvaranja seta slogova (RecordSet) bilo je neophodno upotrebiti metod MoveFirst da bi se kursor postavio na prvi aktivni slog. Još od Accessa 97, u ADO i DAO bibliotekama više nije neophodno upotrebljavati taj metod, jer se po otvaranju seta slogova kursor automatski postavlja na prvi zapis. U slučaju da je set slogova prazan, vrednosti BOF i EOF (logičke promenljive koje kazuju da nema sloga pre ili posle aktivnog) se postavljaju na vrednost True, što je dovoljno za proveru postojanja sadržaja. Iz navike, programeri ponekad i dalje često koriste ovaj metod, iako tako nepotrebno opterećuju program.

Sledeći primer prikazuje uprošćenu ispravnu upotrebu naredbi za kretanje kroz tabelu i ispis njenih slogova:

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tblTabela")

With rst
  Do Until .EOF
    Debug.Print .Fields(1)
    .MoveNext
  Loop
  .Close
End With

Set rst = Nothing

U ADO biblioteci set slogova se, naravno, otvara drugačije, ali je struktura za kretanje kroz slogove potpuno ista. Uzgred, obratite pažnju: ako migrirate staru aplikaciju na Access 2000/2002, DAO biblioteka nije podrazumevano prisutna, jer se sada podrazumeva ADO veza ka bazi. U tom slučaju, potrebno je da pridružite staru biblioteku aplikaciji: otvorite VBE (ALT+F11), pa u listi Tools / References pronađite i uključite stavku Microsoft DAO 3.6 Object Library.