Maak een tabel van sample data : in Access , maakt u een lege database door op de " alt - F > ; Nieuw > Lege database " in het volgende venster , definieert u een tabel met de volgende velden en types :

boek bestellen: textdatesold : datenetsale : munt kopen van 2

Voer de volgende voorbeeld . gegevens in de tabel , die overeenkomen met de velden in stap 1 :

verhaal van twee steden , 2009/12/01 , $ 4.00tale van twee steden , 2009/12/02 , $ 4.00tale van twee steden , 12 /
4/2009 , $ 4.00war en vrede , 2009/12/03 , $ 2.00war en vrede , 2009/12/01 , $ 1.98war en vrede , 2009/12/04 , $ 2,10
3

Maak een rapport door het selecteren van "Create > Report . " Zorg ervoor dat de "Design > Group en Sorteren " pictogram is gemarkeerd , klikt u op "Add a group " in het " groeperen, sorteren en totaal " -venster op . de onderkant van het scherm
4

Kies de parameters om de groep totaal te maken: Selecteer " groep op boek , " en klik op de knop " Meer" . Stel " Met netsale totaal " naar " Total op netsale . " Vink " Toon grandtotal , " en " Toon subtotaal in groep voettekst . "
5

Klik met de rechtermuisknop op het tabblad " booksales " en selecteer " Afdrukvoorbeeld" of " Rapport view . " Access zal de groep voettekst totalen voor het veld " netsales " weer te geven . Ga naar stap 6 als de totale je gewoon berekend is niet de juiste is
6

Laat de database om Visual draaien Basic for Applications Programma : . Druk op de " Enable Content" knop op de beige rechthoek die verschijnt onder de werkbalk . Selecteer " Bestand > Opties > Vertrouwenscentrum > Instellingen voor het Vertrouwenscentrum > Macro -instellingen , " en klik op de optie
7

Maak een tweede rapport van het boek gegevens " Alle macro's inschakelen . " : Selecteer "Create > Report , " dan is de groep van de " Book " title veld door met de rechtermuisknop te klikken op de " boek " kolomkop en het selecteren van " groep op boek . "
8

Klik met de rechtermuisknop op de " booksales " meldt tabblad en selecteer "Design View . " Klik op de " Text Box " controle op de werkbalk en vervolgens op een vrije ruimte in het rapport " Paginavoettekst " gebied . < br >

Naam 9 het tekstvak : " . eigenschappen " " . footertotal " klik met de rechtermuisknop op en kies het tabblad " Andere " in de " Sheet Property " venster , het type < br >
10

Maak een procedure die zal bevolken " footertotal " : " . rapport Eigenschappen" met de rechtermuisknop op een lege ruimte op het rapport en selecteer Klik op het tabblad "Event " , klik vervolgens op de naar beneden pijl in de " On Activeren" rij . Selecteer de " [ Event Procedure ] " tekst , en klik vervolgens op de " ... " knop aan de rechterkant van de pijl naar beneden .
11

Plak de volgende code te vervangen " Report_Activate " subroutine in de Visual Basic for Applications Integrated Development Environment ( IDE ) :

Private Sub
Report_Activate ( ) footertotal.Value = AccessTotalsnetsale.ValueEnd Sub

Druk 12 " alt - F11 " om terug te keren naar Access . Klik met de rechtermuisknop op de " booksales " tab verslag , en selecteer " Print Preview . " Merk op dat de footer toont nu het totaal .