Reports |
4.9 Come ottenere un report pronto per la stampa con i record filtrati da una maschera. |
Silvestrini Nazzareno |
(D) Come ottenere un report pronto per la stampa con i record filtrati da una maschera. (R) Ingredienti: Due pulsanti, una casella di testo non associata e qualche linea di codice. Inserire il codice seguente a fronte dell'evento su clic di uno dei pulsanti; servirà per filtrare i dati in base alla parola chiave scritta nella casella di testo qui chiamata "MioControlloNonAssociato" il controllo dove andrà a pescare il dato cercato è "MioControllo" DoCmd.ApplyFilter "", "[MioControllo]=[Forms]![MiaMaschera]![MioControlloNonAssociato]" If IsNull(Numero.Value) Then MsgBox ("Non esistono Record!"), vbOKOnly DoCmd.ShowAllRecords Me.Seleziona.SetFocus Exit Sub End IfInserire il codice seguente a fronte dell'evento su clic del secondo pulsante: Dim strFilter As String If Me.FilterOn Then strFilter = Me.Filter End If DoCmd.OpenReport ReportName:="MIOREPORT", View:=acPreview, WhereCondition:=strFilter ExitHere: Exit Sub HandleErrors: Select Case Err.Number Case 2501 MsgBox "There are no rows to display!" Case Else MsgBox Err.Description End Select Resume ExitHere |