Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Kontrola otvaranja forme bez podataka

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 fazi finog podešavanja rada aplikacije u Accessu, treba da se pobrinete o ponašanju objekata u graničnim slučajevima.

Šta raditi ako forma nema podataka za prikaz?

Otvaranje formulara u kome nema podataka za pregled u Accessu je ponekad zgodno sprečiti, kako bi se ostavila mogućnost korisniku da odluči šta dalje da radi. Na primer, ako su formulari za pregled i unos različiti, može se naložiti automatsko otvaranje formulara za unos. U primeru čiji listing vidite, napravili smo proveru tipa "da li tabela sadrži podatke?"; ako je tabela prazna, korisnik se obaveštava da nema nikakvih podataka za pregled, pa se može preusmeriti u formular za unos (FormaZaUnos). Kôd u listingu treba dodeliti događaju [On Open] formulara za pregled podataka.

' Proverava da li postoje podaci za prikaz u formi
' Ako postoje nastavlja učitavanje,
' ako ne pita za akciju
' B. Mihaljev, 1999

Private Sub Form_Open(Cancel As Integer)

Dim poruka, stil, naslov, odgovor
On Error GoTo Greska

' ovo opciono treba upotrebiti:
' Me.AllowAdditions = True

' proverava se sadržaj polja Polje1 i Polje2
If IsNull(Polje1) Or IsNull(Polje2) Then
  poruka = "OK otvara formu, Cancel poništava otvaranje."
  stil = vbOKCancel + vb
  naslov = "Nema podataka za obradu!"
  odgovor = MsgBox(poruka, stil, naslov)
  If odgovor = vbOK Then
    ' Klik na OK
       DoCmd.Close acForm, "FormaZaPregled", acSaveYes
       DoCmd.OpenForm "FormaZaUnos"
  Else
       ' Klik na Cancel
       Cancel = True
  End If
End If

' ovo opciono treba upotrebiti:
' Me.AllowAdditions = False

Greska:
Resume Next

End Sub

Za razliku od izveštaja, formular u Accessu nema događaj On No Data, pa se mora pribeći malom triku. U toku otvaranja formulara, proverava se sadržaj jednog ili više polja; ishod procedure zavisi od toga da li je polje popunjeno ili ne. Polje za proveru ne može biti tipa AutoNumber, jer to polje nikada nije prazno, iako se radi o prvom (praznom) slogu u tabeli. Naime, u njemu se nalazi ili automatski generisan broj koji zavisi od broja započetih unosa, ili tekst (AutoNumber). Ovo polje se uglavnom ne koristi u formularu za unos, pa treba izabrati proveru drugog polja ili kombinacije više njih. U primeru je data provera dva polja sa logičkom operacijom OR, što znači da bar jedno od dva polja u slogu mora imati neki sadržaj da bi se prepoznalo da slog nije prazan.

Da bi procedura radila ispravno, na listu Data dijaloga Properties formulara, vrednost svojstva Allow Additions mora obavezno biti postavljena na vrednost Yes. Ukoliko je tabela iz koje se prikazuju podaci prazna, a u formularu onemogućen unos (Allow Additions = No), provera neće moći da se izvrši, jer neće biti prikazan naredni, prazan slog čija polja procedura ispituje. Ako imate nameru da koristite ovo svojstvo da biste sprečili unos (formular služi samo za pregled), u priloženom kôdu morate ukinuti komentar sa para kontrola na vrhu i dnu, koje menjaju vrednost svojstva (Me.AllowAdditions = True/False).