Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Bezbedno ubrzavanje otvaranja formi

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.

Učitavanje formi možete značajno ubrzati,
ali pritom morate da pazite.

 Mnogi iskusni projektanti baza u Accessu koriste trikove da aplikacija radi brže i efikasnije. Jedan od poznatih trikova je da se u startup proceduri sve forme učitaju u memoriju, a potom da se drže skrivenim dok se ne pozovu. Vrednost svojstva Visible se menja između vrednosti True i False, dok korisnik ima utisak da otvara i zatvara formu. Ali, korisnik i dalje može nehotice da zatvori formu ako umesto pripremljenog tastera upotrebi sistemsku tastersku kombinaciju ili taster u naslovnoj liniji prozora.

Da li ste sigurni da sakrivena forma nije zatvorena?

Nije poželjno da tok vašeg programa u Accessu zavisi od toga da li je forma već učitana. Potrebno je da poziv forme učinite nezavisnim od tog stanja - prvo proverite da li je forma već učitana, čime ćete sprečiti fatalnu grešku u aplikaciji. Ovo možete obezbediti na jednostavan način.

Sub OpenVis(strImeForme as String)
On Error Resume Next

Dim i as Integer

If IsLoaded(strImeForme) Then
    For i = 0 to Forms.Count - 1
        If Forms(i).FormName = strImeForme Then
            Forms(i).Visible = True
            Forms(i).SetFocus
            Exit sub
        End If
    Next i
Else
    DoCmd.OpenForm strImeforme
    ' Pažnja! u Accessu 2.0
    ' prethodni red treba da glasi:
    ' DoCmd OpenForm strImeforme
    Exit Sub
End If
End Sub

Najpre iz baze NORTHWIND.MDB, koju ste dobili kao primer uz Access, uvezite modul Utility Functions; biće vam potrebna funkcija IsLoaded(). Potom kreirajte globalnu rutinu OpenVis kao u listingu. Konačno, kada vam zatreba neka forma, aktivirajte je pozivom:

OpenVis("NekaForma")