Newsgroup: it.comp.appl.access
Titolo: RIghe vuote su report

Ho usato il codice presente nel Sito Comune e funziona.
Non riesco a capire come far sì che il report stampi una pagina in più senza
i nominativi.
Es. Se i nominativi terminano a metà della 3.a pagina, vorrei poter stampare
anche la 4.a vuota.
Sib mi ha suggerito di intercettare la penultima pagina e impostare il
.movenext a false, ma non riesco a capire bene dove.

 ha scritto nel messaggio
news:9810ko$389i$1...@stargate1.inet.it...

c'e' una variabile che dice quante righe bisogna inserire per ogni pagina. e
c'e' una istruzione che verifica quante righe siano state inserite nella
pagina. A mio avviso dovresti verificare quando ti trovi in quella che
normalmente dovrebbe essere l'ultima pagina e continuare a dare l'istruzione
me.nextrecord=false fino alla fine della pagina vuota.
Spero di non essermi incartato nella spiegazione.
Ciao, Sib

No, sono io che mi sono incartato! :-)
Non riesco a capire dove inserire il comando e ha gestire le variabili.
Forse sarebbe meglio che io girassi meno per osterie!


 Forse sarebbe meglio che io girassi meno per osterie!
e perche' mai non godersi la vita?
Sib

L'esempio che ho usato si trova nel Sito comune, alla sezione dei reports.
Penso tu vada meglio.


 L'esempio che ho usato si trova nel Sito comune, alla sezione dei reports.
Ok, anche se dalle mie parti ti avrebbero definito "lagnuso" (indolente) ;-)
'**************************
'Autore: Federico Luciani
'email:  
fluc...@libero.it
'**************************
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
++++++++++++++++++++++++++++++++
        'Questa aggiunge una pagina vuota. (Modifica personalizata per Fabio
da Sib)
        If intCP = Int((Me.txtTRec - 1) / intNR) Then
            Me.NextRecord = False
            Me.IntPagina.Visible = True
        End If
++++++++++++++++++++++++++++++++
    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 IntestazionePagina_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.descrizione.Visible = blnStato
    Me.prezzo.Visible = blnStato
End Sub
In pratica, con l'aggiunta che ho fatto, viene intercettata l'ultima riga
dell'ultima pagina e ne viene bloccato l'avanzamento alla riga siccessiva.
Il resto va da se.
Ciao, Sib

 wrote in message
news:985pmu$bhh$1...@pegasus.tiscalinet.it...


 Per curiosità, ma "le tue parti" dove sono?
Le "mie parti" sono Palermo. Agli antipodi rispetto alle tue che, credo,
"siano" il Veneto o giu' di li, sbaglio?
Ad ogni modo ritengo che veramente Internet consenta di intrattenere dei
rapporti impensabili fino a qualche anno fa. Scusa se filosofeggio.
Per il ricambiare, figurati, basta un assegnino con qualche zero (hehehe)
Sib

 Per il ricambiare, figurati, basta un assegnino con qualche zero (hehehe)
Ma se mi dai CAB e ABI e C/C ti faccio un bonifico! ;-))
Comunque il codice da te modificato funziona perfettamente e con alcuni
colleghi mi è pure toccato ammettere che non era "farina del mio sacco"!

 Comunque il codice da te modificato funziona perfettamente
Mi fa piacere che funzioni.
Magari a un prossimo raduno ci incontriamo.
Ciao, Sib

 ha scritto nel messaggio
news:987vgb$40j$6...@lacerta.tiscalinet.it...

Beh, se ti accontenti degli zero... senza cifre prima... credo che si possa
fare... ;-)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 wrote in message
71Pq6.62420$Xj7.8...@news.infostrada.it...

hehehe.
Sib
--
il sito comune di it.comp.database.access:
http://www.sitocomune.com
------------------------------------------------------
La mia home
http://digilander.iol.it/syb
------------------------------------------------------
"Non sempre cio' che viene dopo e' progresso"
Alessandro Manzoni
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente