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


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