I Microsoft Access , en dynamisk rapport er en rapport, der gør noget ved sig selv: det skaber eller åbner sig , eller beregner et felt i sig selv , så du ikke behøver at. Du angiver disse automatiske handlinger under rapportens design, ved hjælp af edb-sprog Visual Basic for Applications. Ting du skal
Microsoft Access
Vis Flere Instruktioner
1
Opret en prøve tabel over film salg, ved hjælp af de data, der følger. Indtast den øverste række af de data, som navnene på tabellens felter.
Movietitle , saledate , unitcost , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 2009/01/03 , $ 4.95,2 styre vorter, 2009/01/05 , $ 1.95,1 styre vorter, 1/6/2009 , $ 0.95,2 doc zhivogo , 2009/01/13 , $ 3.00,1
2
Vælg " Opret" efterfulgt af " rapport" for at oprette en ny rapport. ( Access 2003 brugere , skal du vælge "Objekter ", og klik derefter på "Rapporter " og "nye "). Højreklik på den nye rapport fane og vælg " Design View ". Klik tekstboks ikonet på Access værktøjslinjen , og klik derefter på en tom plads til højre for de eksisterende felter i "Detail " i rapporten.
3
Vælg venstre tekstfeltet af parret tekstbokse , som Access automatisk har skabt , og tryk derefter på " delete "-tasten. Højreklik på resterende tekstboks, og vælg " Egenskaber".
4
Klik "Data" fanen i "Property Sheet " vinduet, indtast derefter følgende tekst i "Control kilde "feltet : Hej
= [ qtysold ] * [ unitcost ]
5
Højreklik på rapportens fanen og vælg" rapport View " for at køre rapporten . Bemærk den nye beregnede felt, du har tilføjet , hvilket viser den samlede salg ( enhedspris gange solgte mængde ) .
6
Højreklik på rapportens fanen og vælg " Design View " og derefter højreklikke et vilkårligt sted på rapporten og klik på " rapport Egenskaber". Klik på " event" fanen i "Property Sheet " vinduet, og klik derefter på pil ned i " On Load " feltet. Vælg "Event Procedure " og derefter Klik på " ... " knappen for at komme ind i Visual Basic integrerede udviklingsmiljø (IDE) .
7
Indsæt følgende subrutine over eksisterende " Report_Load " subrutine : Hej
Private Sub Report_Load () wday = Weekday (Now () ) If ( wday = vbThursday ) ThenMe.Filter =" . ( [ moviesales ] [ movietitle ] Like " " stud * "" ) " ElseMe.Filter =" ([ moviesales ] . [ movietitle ] Like " " doc * "" ) " End IfMe.FilterOn = TrueEnd Sub
Udskift tekst, der lyder " vbThursday " med " vb "
8 Retur til adgang til og genanvendelse køre rapporten ved hjælp af trin 5 indledende instruktioner. Bemærk, at det kun rækker, der indeholder "stud vorter " vises , fordi din makrokode skabt et dynamisk filter for disse særlige rækker , for torsdage.
9
Åbn rapporten er " Design View, " ved hjælp af trin 6 indledende instruktioner. Retur til " Report_Load " begivenhed, du tidligere har indtastet ( se trin 6 ). Erstat " vb " med " vb " og derefter igen køre rapporten. Bemærk , at kun de " doc zhivogo " rækker, der vises , er baseret på den ændring, du gjorde til programkode.