Creare una tabella campione di vendite di film , utilizzando i dati che seguono . Inserire la riga superiore dei dati come i nomi dei campi della tabella .
TitoloFilmato , SaleDate , UnitCost , qtysolddoc zhivogo , 1/1/2009 , $ 5.01,3 doc zhivogo , 1/3/2009 , $ 4.95,2 governare verruche, 1/5/2009 , $ 1.95,1 guidare verruche, 2009/01/06 , $ 0.95,2 doc zhivogo , 1/13/2009 , $ 3.00,1
2
Selezionare "Crea " seguito da " report" per creare un nuovo report . ( Utenti di Access 2003, selezionare " oggetti", quindi fare clic su "Report " e "Nuovo "). Fai clic destro sulla scheda del nuovo rapporto e selezionare " Visualizzazione Struttura ". Fai clic sull'icona di controllo casella di testo su la barra degli strumenti di accesso , quindi fare clic in uno spazio vuoto a destra dei campi esistenti , nella sezione " Dettagli" del report .
3 Selezionare la casella di testo a sinistra della coppia delle caselle di testo che Access ha creato automaticamente , quindi premere il tasto "delete" . Fare clic con il testo rimanente e selezionare " Proprietà".
4 Fare clic sulla scheda "Dati" della finestra " Finestra delle proprietà " , quindi immettere il seguente testo nel " controllo fonte "campo :
= [ qtysold ] * [ UnitCost ]
5
destro del mouse sulla scheda del report e selezionare " Visualizza report " per eseguire il report . Notare il nuovo campo calcolato che hai aggiunto , che visualizza il totale della vendita ( prezzo unitario volte la quantità venduta ) .
6
destro del mouse sulla scheda del report e selezionare " Visualizzazione Struttura ", quindi pulsante destro del mouse in qualsiasi punto del report e fare clic su " Proprietà report . " Fare clic sulla scheda "Evento" della finestra " finestra delle proprietà " , quindi fare clic sulla freccia giù nel campo " on Load" . Selezionare " Routine evento ", quindi fare clic sul pulsante "..." per entrare nell'ambiente di sviluppo integrato di Visual Basic ( IDE ) .
7
Incollare il seguente subroutine su quella esistente " Report_Load " subroutine :
private Sub Report_Load ( ) wday = giorno della settimana ( Now ( )) Se ( wday = vbThursday ) ThenMe.Filter =" . ( [ moviesales ] [ TitoloFilmato ] Come " " steer * " " ) " ElseMe.Filter = " ( [ moviesales ] . [ TitoloFilmato ] Come " " doc * " " ) "End IfMe.FilterOn = TrueEnd Sub
software © www.354353.com