Impedire l'apertura di un rapporto se non per mostrare i dati
Mercoledì, 20 maggio 2009Siamo in grado di impedire che un rapporto aperto, se sono dati da mostrare, e per questo usiamo due forme a seconda della versione di Access:
1 - Tutte le versioni di Access
Inserire il codice qui sotto nelle proprietà del report, 'Abilitare «Il fatto
Utilizzare l'Abilitazione evento (Activate) Relazione:
Private Sub Report_Activate ()
Se DCount ("*", Me.RecordSource) = 0 Then
MsgBox "Nessun record da visualizzare" vbDefaultButton1, "Errore!"
AcReport DoCmd.Close, "nome report"
End If
End Sub
2 - A partire dalla versione 7 (Access 95) è stato aggiunto l'evento 'in assenza di dati', allora possiamo urilizar il seguente codice:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Errore!" "Non ci sono dati nel report.", VbInformation, le
Annulla = True
End Sub
Per vedere l'esecuzione scaricare l'esempio: Prevenire relazione di apertura
