sur event absence de données
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Rien à imprimer !", vbInformation
Cancel = True
End Sub
si l'état a été ouvert via un bouton, gerer l'erreur de non ouverture par
exemple
Private Sub Commande108_Click()
On Error GoTo gesterr
DoCmd.OpenReport "E_Passeport", acViewPreview, , "[Matricule]='" & Me.Matricule & "'"
Exit Sub
gesterr:
If Err.Number = 2501 Then
response = acDataErrContinue
Else
MsgBox Err.Number & " : :" & Err.Description
End If
End Sub