I Microsoft Access , är en dynamisk rapport en rapport som gör något av sig själv : den skapar eller öppnar sig eller beräknar ett fält av sig själv så att du inte behöver . Du anger dessa automatiska åtgärder under rapportens utformning , med hjälp av datorn språket Visual Basic for Applications . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Skapa provbord av film försäljning , med hjälp av de uppgifter som följer . Ange den översta raden av de uppgifter som namnen på tabellens fält .
Movietitle , saledate , unitcost , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 1/3/2009 , $ 4.95,2 styra vårtor , 1/5/2009 , $ 1.95,1 styra vårtor , 1/6/2009 , $ 0.95,2 doc zhivogo , 1/13/2009 , $ 3.00,1
2
Välj " Skapa " följt av " rapport " för att skapa en ny rapport . ( Access 2003 användare , välj " objekt ", klicka sedan på " Rapporter " och " Nytt . " ) Högerklicka på den nya rapporten på fliken " Design. " Klicka på textikonen rutan kontroll på Access verktygsfältet och klicka sedan på ett tomt utrymme till höger om de befintliga fälten i " Detail " avsnitt i rapporten . Addera 3
Markera den vänstra textrutan i paret av textrutor som Access har automatiskt skapats , tryck sedan på " Delete " -knappen . Högerklicka på resterande textrutan och välj " Egenskaper".
4
Klicka på " Data " fliken i " Egenskapsblad " fönstret , skriv in följande text i "Control Källa " fältet :
= [ qtysold ] * [ unitcost ]
5
Högerklicka på rapportens fliken och välj " rapport View " för att köra rapporten . Lägg märke till den nya beräknade fält som du har lagt till , som visar den totala försäljningen ( enhetspriset gånger kvantiteten såld ) .
6
Högerklicka på rapportens fliken och välj " Design " och sedan högerklicka någonstans på rapporten och klicka på " Egenskaper för rapport . " Klicka på "Event " fliken i " Egenskapsblad " fönstret , klicka på nedåtpilen i " On Load " fältet . Välj "Event Procedure ", klicka sedan på " ... " knappen för att öppna Visual Basic integrerad utvecklingsmiljö ( IDE ) .
7
Klistra in följande subrutinen över befintliga " Report_Load " subrutin :
Private Sub Report_Load ( ) WDAY = Weekday ( nu ( ) ) Om ( WDAY = vbThursday ) ThenMe.Filter = " . ( [ moviesales ] [ movietitle ] Like " " steer * " " ) " ElseMe.Filter = " ( [ moviesales ] . [ movietitle ] Like " " doc * " " ) " End IfMe.FilterOn = TrueEnd Sub
Byt text som läser " vbThursday " med " vb "
8 Återgå till Access och köra om rapporten , med steg 5 inledande instruktioner . Observera att endast rader som innehåller " styra vårtor " visas , eftersom din makrokod skapat ett dynamiskt filter för dessa särskilda rader , för torsdagar .
9
Öppna rapporten " Design ", med steg 6 : s ursprungliga instruktionerna . Återgå till " Report_Load " händelse du skrev tidigare ( se steg 6 . ) Ersätt " vb " med " vb " , sedan åter köra rapporten . Observera att endast de "Doc zhivogo " rader visas , baserat på förändringen du gjorde till programkoden .
