Newsgroup: it.comp.appl.access
Titolo: numerazione con somma progressiva su db con StampaRigheVuote in nr predefinito

Access 00/XP
Ciao a tutti.
Usando il codice del db d'esempio "StampaRigheVuore.mdb" di Federico 
Luciani, ho inserito anche una casella di testo non associata per numerare i 
record in maniera progressiva, cioè mettendo =1 come origine record e nella 
proprietà Somma parziale = Su tutto, se le righe richieste sono 20 e i 
record sono solo 9 il totale progressivo si ferma a 9 e nei successivi campi 
fino al venti viene segnato sempre il numero 9. Sapreste dirmi perchè e come 
si può risolvere il problema se l'avete già affrontato.
sono disponibile ad inviarti il mio piccolissimo db.
Mille Grazie .
Bruno Musiu

 Bruno Musiu
-- 
Ciao
Geppo

"geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:dHwKj.52785$FR.2...@twister1.libero.it...

-------------------
Ciao Geppo, senza risultato positivo ho provato a  mettere ovunque nel 
codice sotto il nome del mio controllo che è: NR, dunque   Me.NR = intCR. 
Ovviamente parlo del controllo dove viene effettuata il conteggio record con 
la somma parsiale. Di codice, come avrai capito, non ci mastico quasi nulla; 
non per trovarmi la pappa pronta, ma ti chiedo la cortesia di darmi la 
dritta dove inserire la mezza riga di codice che permette il conteggio fino 
all'ultima riga.
Mille grazie, Bruno
_______________________________________________
Option Compare Database
Option Explicit
Dim intCR As Integer        'contatore di righe
Dim intCP As Integer        'contatore di pagine per gruppo
Const intNR As Integer = 20 'numero di righe da stampare
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    'incrementa il contatore di righe
    intCR = intCR + 1
    If intCR = intNR Then
        'se il numero di riga coincide con il numero max di righe stampabili
            'se il numero di riga e' maggiore dell'ultimo record
            'rende invisibili i controlli testo nel corpo
        If intCR + intNR * intCP > Me.txtTRec Then 
ControlliAssociatiVisibili False
        'imposta l'interruzione di pagina se non e' l'ultima pagina
        If intCP + 1 < Me.txtTRec / intNR Then Me.IntPagina.Visible = True
    ElseIf intCR + intNR * intCP = Me.txtTRec Then
        'se il numero di riga coincide con l'ultimo record
        'evita lo spostamento sul record successivo
        Me.NextRecord = False
    ElseIf intCR + intNR * intCP > Me.txtTRec Then
        'se il numero di riga e' maggiore dell'ultimo record
        'evita lo spostamento sul record successivo
        'e rende invisibili i controlli testo nel corpo
        Me.NextRecord = False
        ControlliAssociatiVisibili False
    End If
End Sub
Private Sub IntestazioneGruppo0_Format(Cancel As Integer, FormatCount As 
Integer)
   'incrementa il contatore di pagine per gruppo
    intCP = 0
End Sub
Private Sub IntestazioneReport_Format(Cancel As Integer, FormatCount As 
Integer)
  'azzera il contatore di righe
    intCR = 0
    'incrementa il contatore di pagine per gruppo
    intCP = intCP + 1
    'elimina l'interruzione di pagina
    Me.IntPagina.Visible = False
    'rende visibili i controlli testo nel corpo
    ControlliAssociatiVisibili True
End Sub
Private Sub ControlliAssociatiVisibili(blnStato As Boolean)
    Me.Militare.Visible = blnStato
    Me.StatoCivile.Visible = blnStato
    Me.FirmaPranzo.Visible = blnStato
    Me.FirmaCena.Visible = blnStato
End Sub
_________________________________________

 ha scritto nel messaggio 
news:47fb988f$0$10615$4faf...@reader2.news.tin.it...

OK Geppo, ho trovato la soluzione. Mi si è accesa la lampadinainfatti dal 
campo NR ho tolto =1 dall'origine controllo e ho impostato la proprietà 
somma parziale a NO.
Mille grazie ancora.
Bruno