États: Fermer l'état automatiquement si aucune donnée n'est trouvée	Author(s) Dev Ashish

Fermer l'état automatiquement si aucune donnée n'est trouvée.

(Q)    Comment puis-je fermer automatiquement un état si il n'y a pas de données?

(A)    Vous pouvez utiliser la procédure événementielle  OnNoData.  Par exemple, le code:

'************* Code Start *************
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "No data found! Closing report."
    Cancel = True
End Sub
'************* Code End *************

    ferme automatiquement l'état s'il n'y a pas d'enregistrements dans la source.

    Cependant, si vous ouvrez cet état à partir de code, il faut fournir un traitement d'erreur pour manipuler gracieusement l'erreur générée:

'*********** Code Start ************
Private Sub TestNoData_Click()
    On Error Resume Next
    DoCmd.OpenReport "SomeReport", acViewPreview
    If Err = 2501 Then Err.Clear
End Sub
'*********** Code End   ************