ACCESS 2000: come specificare un numero di pagina iniziale personalizzato per un report

Nei report di Microsoft Access la numerazione di pagina inizia sempre con il numero 1. Potrebbe tuttavia essere necessario iniziare la numerazione di pagina da un numero diverso da 1. In questo articolo verranno descritti due metodi per definire numeri di pagina iniziali personalizzati. Entrambi i metodi consentono di utilizzare numeri personalizzati, tuttavia il secondo prevede l'utilizzo di Visual Basic, Applications Edition e può quindi includere il controllo errori. Questo metodo è più complesso ma evita l'immissione errata di valori non numerici quando viene chiesto di specificare un numero iniziale.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. Se si dispone di esperienza di programmazione limitata, si consiglia di contattare un Microsoft Certified Solution Provider o la filiale Microsoft locale per informazioni sulla consulenza tecnica. Per ulteriori informazioni in merito ai Microsoft Certified Solution Provider, visitare la seguente pagina Web:

Per ulteriori informazioni sulle opzioni di supporto disponibili da Microsoft, visitare la seguente pagina Web (informazioni in lingua inglese):

Metodo 1

ATTENZIONE: la procedura riportata in questo esempio comporta la modifica del database Northwind.mdb. È consigliabile fare una copia del file Northwind.mdb sulla quale eseguire la procedura.

1. Aprire il database di esempio Northwind.mdb.
2. Creare un nuovo report basato sulla tabella Impiegati.
3. Aggiungere i campi desiderati trascinandoli dall'elenco dei campi.
4. Se non sono visualizzati nel report, scegliere Int./piè pagina pagina dal menu Visualizza per aggiungere un'intestazione e un piè di pagina.
5. Scegliere Numeri di pagina dal menu Inserisci, quindi scegliere OK.
6. Creare una casella di testo non associata nella sezione dell'intestazione o del piè di pagina.
7. Selezionare il nuovo campo, quindi scegliere Proprietà dal menu Visualizza.
8. Modificare la proprietà OrigineControllo come segue:

      ="Page" & [Page] + [Enter a Starting Page Number] - 1

Stampare o visualizzare in anteprima il report. Verrà chiesto di specificare un numero di pagina iniziale. A partire dal numero indicato ogni pagina verrà numerata consecutivamente nel report.

Metodo 2

1. Aprire il database di esempio Northwind.mdb.
2. Creare un nuovo modulo e digitare il seguente codice:

   '******************************************************
   'Declarations Section of Module
   '******************************************************
   Option Explicit
   Global PageChoice As Integer
   
   '===========================================================
   'Create the following GetPageChoice() function in the Module
   '===========================================================
   'This function is called in the OnOpen property of the Report.
   
   Function GetPageChoice ()
      Dim choice As String
      Do
         choice = InputBox("Enter a Starting Page Number:"," _
                       Number Report", "1")
         If Not (IsNumeric(choice)) Then
            MsgBox "Value Entered is not a Number."
         End If
      Loop While Not (IsNumeric(choice))
      PageChoice = CInt(choice)
   End Function
   
   '==============================================================
   'Create the following ReturnPageChoice() function in the Module
   '==============================================================
   'This function is called by the text box that will contain the
   ' pagenumber.
   Function ReturnPageChoice (pgnumber As Integer)
      ReturnPageChoice = PageChoice + pgnumber - 1
   End Function
   

3. Compilare il modulo e salvarlo come basPages.
4. Aprire il report Riepilogo vendite per trimestre in visualizzazione Struttura.
5. Scegliere Seleziona report dal menu Modifica, quindi scegliere Proprietà dal menu Visualizza per visualizzare la finestra delle proprietà. Modificare la proprietà SuApertura come segue:
   OnOpen: =GetPageChoice()
6. Selezionare la casella di testo NumeroPagina nel piè di pagina. Modificare la proprietà OrigineControllo come segue:
   ="Page" & ReturnPageChoice(Page).

Stampare o visualizzare in anteprima il report. Verrà chiesto di specificare un numero di pagina iniziale. Ogni pagina verrà numerata consecutivamente a partire dal numero indicato.

Per ulteriori informazioni sulla proprietà Pagina, in Visual Basic Editor scegliere Guida in linea Microsoft Visual Basic dal menu ?, digitare proprietà pagina, pagine nella casella dell'Assistente di Office o della Ricerca libera, quindi scegliere il pulsante Cerca per visualizzare l'argomento.

Per ulteriori informazioni sulle strutture iterative, in Visual Basic Editor scegliere Guida in linea Microsoft Visual Basic dal menu ?, digitare cicli nella casella dell'Assistente di Office o della Ricerca libera, quindi scegliere il pulsante Cerca per visualizzare l'argomento.