Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Promena boje polja u kome je kurzor

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.

Uobičajena tehnika: u novoj verziji programa se pojavi jako korisna mogućnost, a onda se pronađe način da se kroz VBA nešto slično napravi i u prethodnim verzijama programa...

Većina korisnika se teško snalazi na formi koja ima više polja za unos podataka, tako što ne može da pronađe u kojem od njih se nalazi kurzor. Način da se polje obeleži radi prepoznavanja pozicije za unos je promena boje polja, recimo, u žutu boju. U Accessu 2000 se ova operacija može izvesti uslovnim formatiranjem (Conditional formatting), ali se za prethodne verzije Accessa mora upotrebiti program.

Na kartici modula otvorite postojeći, ili ako ne postoji nijedan modul kreirajte novi i u njega unesite sledeći program:

Function Highlight(Pozicija As String) As Integer
Dim ctrl As Control
On Error Resume Next
Set ctrl = Screen.ActiveControl

If Pozicija = "Fokus" Then
    ctrl.BackColor = 65535
ElseIf Pozicija = "NemaFokus" Then
    ctrl.BackColor = 16777215
End If

End Function

Snimite modul i zatim otvorite formu na koju hoćete da primenite postojeći program u režimu za dizajn (Design View). Otvorite karticu osobina i selektuje jednu po jednu kontrolu i pri tome upišite:

Highlight("Fokus")

u polje GotFocus, odnosno:

Highlight("NemaFokus")

u polje LostFocus.

Snimite formu i otvorite je u pogledu za unos. Polje koje ima fokus će biti obojeno žutom bojom, a kada ga izgubi biće obojeno belom bojom.