Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvoriť ukážkovú tabuľku predaja filmových pomocou dát , ktorá nasleduje . Zadajte horný riadok dát ako názvy polí tabuľky .
JménoFilmu , Dátum predaja , unitcost , qtysolddoc zhivogo , 01.1.2009 , $ 5.01,3 doc zhivogo , 01.3.2009 , $ 4.95,2 vola bradavice , 01.5.2009 , $ 1.95,1 riadené bradavice , 01.6.2009 , $ 0.95,2 doc zhivogo , 1/13/2009 , $ 3.00,1
2
Zvoľte " Vytvoriť " nasleduje " Správa " na vytvorenie novej zostavy . ( Užívatelia Access 2003 , vyberte možnosť " Objekty , " kliknite na tlačidlo " Správy " a " nové " . ) Kliknite pravým tlačidlom myši na kartu novú správu a vyberte možnosť " Návrhové zobrazenie . " Kliknite na ikonu ovládací prvok textové pole na panel s nástrojmi aplikácie Access , kliknite na tlačidlo v prázdnom priestore napravo od existujúcich polí , v sekcii " Detail " tejto správy .
3
Vyberte ľavej textové pole paru textových polí , ktoré program Access automaticky vytvorené , potom stlačte tlačidlo " Odstrániť " tlačidlo . Kliknite pravým tlačidlom myši na zostávajúce textové pole a zvoľte " Vlastnosti " .
4
Kliknite na záložku v okne " Zoznam vlastností " , " Data " , zadajte nasledujúci text v " Control zdroj " pole :
= [ qtysold ] * [ unitcost ]
5
pravým tlačidlom myši na kartu zostavy a vyberte možnosť " Report View " pre spustenie zostavy . Všimnite si , že nové výpočtové pole , ktoré ste pridali , ktorý zobrazuje celkový predaj ( Jednotková cena krát množstvo predaná ) .
6
Pravým tlačidlom myši na kartu zostavy a vyberte " Design View " , potom kliknite pravým tlačidlom myši na správu a kliknite na tlačidlo " Vlastnosti zostavy . " Kliknite na " udalosti " záložku v okne " vlastností " , potom kliknite na šípku nadol v poli " On Load " . Vyberte " udalostnej procedúra , " a potom kliknite na tlačidlo " ... " pre vstup do Visual Basic integrované vývojové prostredie ( IDE ) .
7
vložte nasledujúci podprogram cez existujúce " Report_Load " podprogram :
Private Sub Report_Load ( ) wday = deň v týždni ( Now ( ) ) Ak je ( wday = vbThursday ) ThenMe.Filter = " . ( [ moviesales ] [ JménoFilmu ] Like " " volom * " " ) " ElseMe.Filter = " ( [ moviesales ] . [ JménoFilmu ] Like " " doc * " " ) " End IfMe.FilterOn = TrueEnd Sub
Vymeňte text , ktorý sa číta " vbThursday " s " vb Späť na Access a znovu spustiť zostavu , pomocou krok 5 v počiatočnej inštrukcie. Všimnite si , že iba riadky obsahujúce " riadené bradavice " sa zobrazí , pretože kód makra vytvoril dynamický filter pre tie jednotlivé riadky , na štvrťky . Otvorte zostavu v návrhovom zobrazení " " pomocou krok 6 v počiatočnej inštrukcie. Vráťte sa do " Report_Load " akcie , ktoré ste zadali predtým ( pozri krok 6 ) . Nahradiť " vb
8
9
Copyright © počítačové znalosti Všetky práva vyhradené