|
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 If
Inserire 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
|