I Microsoft Access , er en dynamisk rapport en rapport som gjør noe av seg selv: det skaper eller åpner seg eller beregner et felt av seg selv , slik at du ikke må. Du angir disse automatiske handlinger under rapportens utforming , ved hjelp av datamaskinen språk Visual Basic for Applications. Du trenger
Microsoft Access
Vis flere instruksjoner
en

Lag en eksempeltabell av filmen salg , ved hjelp av data som følger. Skriv inn den øverste raden av dataene som navnene på tabellens felt.

Movietitle , saledate , unitcost , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 1/3/2009 , $ 4.95,2 styre vorter, 1/5/2009 , $ 1.95,1 styre vorter, 1/6/2009 , $ 0.95,2 doc zhivogo , 1/13/2009 , $ 3.00,1
2

Velg " Create ", etterfulgt av " Report" for å opprette en ny rapport . ( Access 2003 brukere , velg " Objects ", deretter "Rapporter" og " New ". ) Høyreklikk på den nye rapporten er kategorien og velg " Design View. " Klikk tekstboksen kontroll ikonet på Access verktøylinjen , klikk deretter på en tom plass til høyre for de eksisterende feltene , i " detaljer" delen av rapporten .
3

Velg den venstre tekstboksen av paret av tekstbokser som Access har opprettet automatisk , trykk på " delete "-tasten. Høyreklikk den gjenværende tekstboksen og velg " Properties".
4

Klikk på "Data" kategorien i "Property Sheet "-vinduet , skriv deretter inn følgende tekst i "Control Source "-feltet : en

= [ qtysold ] [ unitcost ]
5

Høyreklikk rapportens kategorien og velg" Report View " for å kjøre rapporten . Legg merke til den nye beregnede feltet som du har lagt til , som viser den totale salg ( enhetspris ganger kvantum solgt ) .
6

Høyreklikk rapportens kategorien og velg " Design View", deretter høyreklikk hvor som helst på rapporten og klikk " Report Properties ." Klikk på " event" kategorien i "Property ark" , skal du klikke på nedoverpilen i "På Load "-feltet . Velg " Hendelsesprosedyre ", klikk deretter på " ... " -knappen for å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) .
7

Lim inn følgende subrutine over eksisterende " Report_Load " subrutine : en

Private Sub Report_Load ( ) WDay = Weekday ( Now () ) Hvis ( WDay = vbThursday ) ThenMe.Filter =" . ( [ moviesales ] [ movietitle ] Like " " styre * "") " ElseMe.Filter =" ([ moviesales ] . [ movietitle ] Like " " doc * " ") " End IfMe.FilterOn = TrueEnd Sub

Bytt tekst som leser " vbThursday " med " vb "
8

Tilbake til Access og kjøre rapporten , ved hjelp av trinn fem innledende instruksjoner. Legg merke til at bare rader som inneholder " styre vorter " vises , fordi makro koden skapt en dynamisk filter for de bestemte rader , for torsdager .
9

Åpne rapporten er " Design View, " ved hjelp trinn seks innledende instruksjoner. Tilbake til " Report_Load " event du skrev tidligere ( se trinn 6). Sett " vb " med " vb " , deretter kjøre rapporten. Legg merke til at bare de " doc zhivogo " rader som vises , basert på endringen du har gjort i programkoden .