In Microsoft Access, un rapporto dinamico è un rapporto che fa qualcosa per sé: si crea o si apre o calcola un campo da solo in modo che non si deve. È possibile specificare queste azioni automatiche durante la struttura del report, utilizzando il linguaggio di programmazione Visual Basic for Applications.

istruzione

1 Creare una tabella di esempio delle vendite di film, utilizzando i dati che segue. Inserire la riga superiore dei dati come i nomi dei campi della tabella.

MovieTitle, saledate, Costounitario, qtysold
Doc zhivogo, 1/1/2009 $ 5.01,3
Doc zhivogo, 1/3/2009, $ 4.95,2
orientare le verruche, 1/5/2009 $ 1.95,1
orientare le verruche, 1/6/2009 $ 0.95,2
Doc zhivogo, 1/13/2009 $ 3.00,1

2 Selezionare "Crea", seguito da "Report" per creare un nuovo rapporto. (Accesso utenti 2003, selezionare "oggetti", quindi fare clic su "Report" e "nuovi"). Fai clic destro sulla scheda del nuovo rapporto e selezionare "Visualizzazione Struttura". Fare clic sull'icona di controllo casella di testo sulla 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 di caselle di testo che Access ha creato automaticamente, quindi premere il tasto "cancella". Fare clic con il testo rimanente e selezionare "Proprietà".

4 Fare clic sulla scheda "Dati" della finestra "Finestra delle proprietà", quindi inserire il seguente testo nel campo "Source Control":

= [Qtysold] * [Costounitario]

5 Pulsante destro del mouse sulla scheda del report e selezionare "Visualizza rapporto" per eseguire il report. Si noti il ​​nuovo campo calcolato che hai aggiunto, che visualizza la vendita totale (unità di volte prezzo quantità venduta).

6 Pulsante destro del mouse sulla scheda del report e selezionare "Visualizzazione Struttura", quindi fare clic destro 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 accedere al Visual Basic ambiente di sviluppo integrato (IDE).

7 Incollare il seguente subroutine sopra la subroutine "Report_Load" esistente:

Private Sub Report_Load ()
wday = giorno della settimana (Now ())
Se (wday = vbThursday) Poi

Me.Filter = "([moviesales].[movietitle] Like ""steer*"")"

Altro

Me.Filter = "([moviesales].[movietitle] Like ""doc*"")"

Finisci se
Me.FilterOn = True
End Sub

Sostituire il testo che dice "vbThursday" con "vb <giorno della settimana di oggi>"

8 Ritorno di accesso e ri-eseguire il rapporto, utilizzando le istruzioni iniziali passo 5 di. Si noti che solo le righe contenenti "manzo verruche" sono indicati, in quanto il codice di macro ha creato un filtro dinamico per quei particolari file, per giovedì.

9 Aprire "Visualizzazione Struttura", del rapporto con passo le istruzioni iniziali 6 del. Ritorna alla manifestazione "Report_Load" è stato immesso in precedenza (vedi punto 6) Sostituire il "vb <giorno della settimana di oggi>" con "vb <qualche altro giorno della settimana>", poi ri-eseguire il report. Si noti che solo le righe "doc zhivogo" sono indicati, in base alla modifica apportata al codice di programma.