Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Potvrda upisa sloga kod unosa na formi

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Neke osobine okruženja Accessa nisu baš prikladne za svaku priliku. Šta ćete učiniti da sprečite nehotičnu promenu sloga?

U Accessu se podaci zapisuju u polje i ceo slog u tabelu, bez obzira na to da li je korisnik prešao na naredni ili prethodni slog ili je zatvorio tabelu. Isto pravilo važi i ako se procedura za unos realizuje preko forme. Praktično, dovoljno je započeti novi unos i slog je zapisan u tabelu, osim ako se tokom unosa ne pritisne dva puta taster Escape (prvi put za odustajanje upisa u polje i drugi put za odustajanje upisa sloga u tabelu).

Situacije kada se slog ne sme zapisati u tabelu bez izričite potvrde su česte - naročito kada se moraju popuniti sva polja sloga, odnosno kada se pre završenog unosa sloga forma zatvori. Jedno od mogućih rešenja primenjenih na formu je postavljanje osobine Cycle=Current Record (onemogućavanje prelaska na drugi slog) i postavljanje kontrolnog tastera na nju. Funkcija tastera je upis unetih podataka u tabelu i prelazak na naredni slog. Drugo od mogućih rešenja je kontrola unosa za svako polja zasebno i izdavanje upozorenja ukoliko je neko od polja ostalo prazno.

Varijante izbegavanja automatskog ažuriranja sloga su različite, a ova koju ovde prezentujemo je univerzalna, bez obzira na broj polja. Primenjeno rešenje postavlja kontrolno pitanje pre zapisa sloga u tabelu, odnosno pre zatvaranja forme sa započetim unosom podataka i u zavisnosti od odgovora upisuje slog ili uz pomoć kombinacija Cancel/Undo odustaje od upisa.

U događaj BeforeUpdate forme unesite sledeći program:

Private Sub Form_BeforeUpdate(Cancel As Integer)

' Pita da li da upiše slog ili da se odustane
' od upisa prilikom zatvaranja forme sa zapocetim
' unosom ili prelaskom na prethodni/naredni slog

If MsgBox("Save?", vbYesNo) = vbNo Then
  Cancel = True
  Me.Undo
End If

End Sub