Newsgroup: it.comp.appl.access
Titolo: subtotali su report

Salve a tutti,
uso access 2000 e win xp
ho implementato un piccolo db con semplici totali [tributo]
nel report, che spesso stampa più pagine, ho la necessità di evidenziare sul
piè di pagina di ogni foglio il totale paginale e il totale progressivo e,
nell'ultimo foglio, il totale generale.
Riesco solo ad avere il totale generale sull'ultimo foglio.
Qualcuno può darmi qualche dritta??
grazie infinite e salutoni

 Riesco solo ad avere il totale generale sull'ultimo foglio.
ACC2000: How to Sum a Column of Numbers in a Report by Page
http://support.microsoft.com/default.aspx?scid=kb;EN-US;210261
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:bcfl2k$i9oq8$1...@ID-46617.news.dfncis.de...

Magari avessi capito qualcosa!
Grazie lo stesso.
Qualcuno potrebbe aiutarmi in italiano???? grazie mille (in ¤)
Antonio


Tratto dal file indicatoti
To add the total to the total of each subsequent page in Microsoft Access
2.0, 7.0, and 97, follow these steps:
  "per aggiungere il totale ad ogni pagina segui questi passi"
Add a text box to the report's page footer section and set the text box's
ControlSource property to =runsum.
  " aggiungi una casella di testo nella sezione piè pagina e imposta la
proprietà origine di controllo a =runsum"
Preview the report. Note that the running sum is displayed at the bottom of
each page.
  " vai in anteprima report e noterai che la somma è visualizzata alla fine
di ogni pagina"
Summming the Column of Each Page Separately
To sum the column of each page separately in Microsoft Access 2.0, 7.0, and
97, follow these steps:
  "Per sommare le colonne di ogni pagina separatamente segui questi passi"
Add a text box to the report's page footer section, and set the text box's
Name property to Pagesum.
  " aggiungi una casella di testo nella sezione piè pagina e imposta la
proprietà Nome a Pagesum
On the View menu, click Code, and type the following line in the
Declarations section of the report module:
  " clicca sul menù Visualizza poi su Codice e digita le seguenti linee
nella sezione Dichiarazioni del modulo del report"
Dim x As Double
Click the arrow to the right of the Object box, and click PageFooter
(Pagefooter2 in version 2.0). Click the arrow to the right of the Proc box,
select Print, and then type the following code:
pagesum = runsum - x
x = runsum
Click the arrow to the right of the Object box and click ReportHeader
(ReportHeader3 in version 2.0). Click the arrow to the right of the Proc
box, select Print, and then type the following code:
 " clicca sulla freccetta sulla destra di Generale e seleziona
SezioneIntestazionePagina. Clicca sulla freccetta sulla destra di
Dichiarazioni e seleziona Print, quindi digita il seguente codice : "
x = 0
Close the Module window and preview the report. Note that the sum for the
Unit Price for that page appears on each page of the report.
  " Chiudi la finestra del modulo e visualizza l'anteprima. Nota che la
somma appare su ogni pagina del report"
Spero ti possa aiutare.
Ciao, Buonuomo.

 ha scritto nel messaggio
news:AnVGa.89660$Ny5.2...@twister2.libero.it...

Grazie infinite, corro a provare

 wrote in message
E4IGa.90168$pR3.1...@news1.tin.it...

Se il campo di cui vuoi ottenere i vari totali si chiama Importo, immagino
che hai ottenuto il totale generale inserendo nel piè di pagina report una
casella di testo non associata nella cui origine controllo hai scritto:
= Somma([Importo])
Per ottenere il totale progressivo di tale campo e stamparlo solo sul piè di
pagina pagina, inserisci nel corpo del report una casella di testo chiamata
ImportoProg e nella sua origine controllo scrivi
= Importo
Imposta a No la proprietà Visibile di tale casella di testo e imposta a Su
tutto la sua proprietà Somma parziale.
Nel piè di pagina pagina del report inserisci una casella di testo non
associata nella cui origine controllo scrivi:
=[ImportoProg]
Per ottenere invece il totale di pagina è un pò più complicato.
In un modulo del tuo database dichiara la seguente variabile pubblica:
Public Totale As Double
Nello stesso modulo registra anche la seguente funzione:
Public Function CalcolaTotale() As Double
CalcolaTotale = Totale
End Function
Nel piè di pagina pagina del report inserisci una casella di testo non
associata e nella sua origine controllo scrivi:
=CalcolaTotale()
A fronte dell'evento "Su stampa" della sezione Corpo del report genera il
seguente codice VBA:
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
If Importo <> 0 Then
    Totale = Totale + Importo
End If
End Sub
Infine, a fronte dell'evento "Su formattazione" della sezione Intestazione
pagina del report genera il seguente codice VBA:
Private Sub IntestazionePagina_Format(Cancel As Integer, _
FormatCount As Integer)
Totale = 0
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 
nelle proprietà del controllo TotaleProgressivo imposta a "Sì" la somma 
parziale.
Il totale "paginale" si ottiene con l'istruzione Pages.
Dovrebbe fare a caso tuo.