Ne pas ouvrir un état si pas de données

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