Vær venlig at tage et kig på denne magtfulde teknik at tilføje avancerede farvekoder logik til din former.
Farve kodning tilføjer værdi til en form, som det nemt dirigerer brugerens øje til kritiske data. Dette er en kraftfuld teknik, som giver brugeren mulighed for hurtigt at vurdere et sider af data for fejl eller advarsel oplysninger.
Access 2000 til Access 2003 har en grænse på fire farver, du kan bruge for hvert felt på en løbende form. Brug af betingelse kode methos beskrevet i dette tip, der er ingen grænse for den logik du kan anvende for at indstille området til et af de fire farver valgmuligheder.
Opret en tabel navn det ColorCoding
Indtast følgende felter (uden nummer)
1] CntrID som Autonummerering, gøre det til en primærnøgle område
2] Cntname som tekst
3] WorkDesc som tekst - oplysningerne skal være enten "min" eller "maj"
4] EMR som nummer ét - oplysningerne bør være et vilkårligt heltal mellem 1 og 10
5] aggdate som dato / tid
6] aggamnt som valuta
7] wcompdate som dato / tid
8] wcompamnt som valuta
9] concode som nummer, lange heltal dette område vil blive beregnet så lade det stå tomt.
Indtast nogle data i tabellen til testning.
Opret en form kontinuerlig stil ved hjælp af ColorCoding tabel som datakilden.
Tilføj en form header / footer.
Put en form titel i form overskriftssektion af formen (ekstraudstyr).
Brug den anden fane på ejendomme form og give hvert felt samme navn som det kontrol kilde. Så navn [EMR] område "EMR" f.eks. Derefter kan du bruge feltnavnene gerne variabel navne, når du opretter VBA-kode.
Tilføj alle felterne i tabellen, og tilpasse den i en række med det område, etiketter over hvert felt, men i form header sectionof form.
Dette skulle forlade en række felter i detaljer del af skemaet.
Put en knap i bunden med billedtekst opdateringshastighed.
I design-tilstand på din form, skal du vælge Format / Betinget formatering.
Brug Mid-kommando til at kontrollere en karakter i den stand kode og indstille din tilstand farver. Se på [EMR] område. Det er det fjerde felt fra venstre. Mid kommando leder adgang til at kontrollere området concode i fjerde chracter sted for et span af 1. karakter for værdien af 3.
Indstil betingelser som denne
Lad standardknappen formatering indstillet til hvid baggrund og sorte skriftfarve.
Udtrykket er Mid ([concode], 4,1) = "3" Vælg en farve - jeg bruger Røde for 3 eller en mangel betingelse
Udtrykket er Mid ([concode], 4,1) = "2" Vælg en farve - jeg bruger gul for 2 eller en advarsel betingelse
Udtrykket er Mid ([concode], 4,1) = "1" Vælg en farve - jeg bruge grønne for 1 eller forbipasserende betingelse
Gentag dette for hvert felt, du ønsker at stille betingelser om. Bemærk, at hver karakter af betingelsen kode startende fra venstre mod højre vil være et respektive felt fra venstre til højre. Så en 3 i de 2 sted på betingelse kode område vil indstille CntName felt til rød. Se området numre ovenfor. Senere områder følger den samme rækkefølge.
Endnu et eksempel for [aggdate] felt condtional format ville se sådan ud:
Udtrykket er Mid ([concode], 5,1) = "3" Vælg en farve. Dette
Betingelsen kode område [concode], værdier er skabt med enhver logik, som du ønsker at knytte til det. I dette eksempel Jeg bruger otte felter, så conidition kode er otte tegn lang og hver karakter kan være enten en 0,1,2 eller 3. Så det kan se sådan ud 10112321. Nu bruger midten kommandoen ovenfor, fjerde karakter er en 1 således en betingelse for det fjerde felt, [EMR], vil være en 1 hvilke betingelser til grønt.
Når du har form udviklet og testet, kan du gå tilbage og indstille concode felt til usynlig. Dine brugere har ikke brug for at se, at data.
Når du har oprettet form anvende følgende kode. Du kan klippe og indsætte denne rettighed i form, hvis du har brugt de samme feltnavne beskrevet uden at skrive.
Klip her --------
Option Compare Database
Dim rec Som DAO.Recordset
Dim db Som Database
Public Function SetConCode ()
On Error Goto erout
Dim Xcode (10) As Integer, x As Integer, CCode Som String, y As Integer
»Xcode værdier 1 = grøn, 2 = gul, 3 = rød, 0 = hvid
'Brug den næste linje, hvis du har hundredvis af journaler og ikke ønsker at vente på skærmen for at opdatere
»DoCmd.Echo False
'Set området med Zero
x = 0
»tilvækst området counter as you go
x = x + 1 'Trin 1
Hvis IsNull (CntrID) Så
Xcode (x) = 0
Anden
Xcode (x) = 1
End Hvis
x = x + 1 'Trin 2
Hvis IsNull (Cntname) Så
Xcode (x) = 0
Anden
Xcode (x) = 1
End Hvis
x = x + 1 'Trin 3
Hvis IsNull (WorkDesc) Så
Xcode (x) = 0
Anden
Xcode (x) = 1
End Hvis
x = x + 1 'Trin 4
Hvis IsNull (EMR) Så
Xcode (x) = 0
ElseIf EMR 3 Og EMR