Reports

4.23 Determinare quante e quali siano le sezioni di un report
  Roberto

Se si desidera determinare, all'apertura di un report, qunate e quali siano le sue sezioni visibili, a fronte dell'evento "Su apertura" di quel report generare il seguente codice VBA:
Private Sub Report_Open(Cancel As Integer)
On Error GoTo ErroreSezioni
Dim Conta As Integer
Dim Sezioni(8) As String
Dim DescSez As String
Sezioni(0) = "Corpo"
Sezioni(1) = "Intestazione del report"
Sezioni(2) = "Pič di pagina report"
Sezioni(3) = "Intestazione di pagina"
Sezioni(4) = "Pič di pagina pagina"
Sezioni(5) = "Intestazione 1° gruppo"
Sezioni(6) = "Pič di pagina 1° gruppo"
Sezioni(7) = "Intestazione 2° gruppo"
Sezioni(8) = "Pič di pagina 2° gruppo"
For Conta = 0 To 100
    If Me.Section(Conta).Visible = True Then
        DescSez = DescSez & Sezioni(Conta) & Chr$(13) & Chr$(10)
    End If
Next Conta
Esci:
Exit Sub
ErroreSezioni:
If Err = 2462 Then
    MsgBox "Il Report č composto dalle seguenti " _
    & Conta & " Sezioni:" _
    & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) _
    & Left(DescSez, Len(DescSez) - 2), vbInformation, "Sezioni di un report"
End If
GoTo Esci
End Sub

Naturalmente, se si presuppone che nei propri report ce ne possa essere qualcuno con più di due livelli di raggruppamento, occorrerà modificare di conseguenza la dimensione della matrice Sezioni, impostandone anche i relativi valori (l'item 9 sarà quello relativo all'Intestazione 3°gruppo, il 10 il piè di pagina 3° gruppo e così via).
Per maggiori ragguagli leggere sull'help l'argomento Proprietà Section.


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.