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. |