Newsgroup: it.comp.appl.access
Titolo: Manipolare report - urgente pls!

- Se ho un report che riporta una serie di record (un calendario)
- Se il record prevede un campo booleano 'Sospeso'
come faccio a spiegare ad A97 che quando mi compone il report, sul record
avente 'Sospeso' selezionato (=-1), deve tirare una riga orizzontale rossa a
dimostrazione dell'eliminazione del record?
Inoltre, come faccio a numerare progressivamente tutti i record non sospesi?
Grazie per l'aiuto!
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------

 ha scritto nel messaggio
news:CH2N8.31186$K4.7...@twister2.libero.it...

Crei una linea orizzontale rossa nella zona in cui ti serve.
Crei una casella di testo per la numerazione progressiva
A fronte dell'evento 'su formattazione' del report scrivi
If Me.Sospeso Then
        Me.LineaRossa.Visible = True
        Me.CasellaNumerazione = _
            Nz(Me.CasellaNumerazione,0) + 1
        Me.CasellaNumerazione.Visible = True
    Else
        Me.LineaRossa.Visible = False
        Me.CasellaNumerazione.Visible = False
End If
Ciao
--
Alberto

Mi dà errore:
Errore di run-time 2427:
Nessun valore nell'espressione immessa.
L'espressione fa riferimento ad un oggetto che non ha nessun valore, come
una maschera, un report o un'etichetta.
E l'errore è il nome del controllo 'Sospesa'. Mah!

 ha scritto nel messaggio
news:I%7N8.33479$K4.8...@twister2.libero.it...

La routine che ti ho suggerito presuppone che nel report ci sia una casella
di controllo (associata al campo SI/NO 'sospeso' della tabella). Se tu non
hai previsto che ci sia questa casella (magari perché non ti serve) creala
lo stesso impostando a 'no' la proprietà visibile.
Ciao, fammi sapere.
--
Alberto

Cut
Sigh la casella esiste, la routine che mi hai suggerito l'avevo già provata
leggermente modificata prima di mandare il post ma... nulla!

 ha scritto nel messaggio
news:0OEN8.3416$Kt3....@twister2.libero.it...

Mi è andata buca...
Appena trovo una decina di minuti faccio qualche prova anch'io e poi ti
faccio sapere.
Ciao
--
Alberto

 ha scritto nel messaggio
news:0OEN8.3416$Kt3....@twister2.libero.it...

Eccomi qua.
Sai dovevo finire un lavoretto che mi aveva chiesto Giulio (... Tremonti ...
doppio sigh!)
Io ho fatto questa prova:
Una tabella (tblRigaRossa) con una serie di campi, tra cui un campo SI/NO
che ho chiamato blnSospeso. Ho immesso 4 record (di cui due con blnSospeso
spuntato).
Ho creato un report (rptRigaRossa), con origine dati in tblRigaRossa. Nel
corpo del report ho trascinato i campi di tblRigaRossa; il campo blnSospeso
è ovviamente diventato una casella di controllo che ho rinominato in
chkSospeso.
Ho creato una linea rossa (linRossa) che copre i vari controlli nel corpo
del report. Ho creato una casella di testo non associata (txtConta).
A fronte dell'evento 'su formattazione' del corpo del report ho scritto il
seguente codice:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    If Me.chkSospeso Then
            Me.linRossa.Visible = True
            Me.txtConta = Nz(Me.txtConta, 0) + 1
            Me.txtConta.Visible = True
        Else
            Me.linRossa.Visible = False
            Me.txtConta.Visible = False
    End If
End Sub
A me funziona...
... fammi sapere ... ciao
--
Alberto