Discussion :

[mumu64]

Bonjour,

Encore moi.......
J'ai créé un état qui se base sur une requête. Je voudrais que l'état ne s'ouvre pas si la requête ne possède pas d'enregistrement.
J'ai trouvé des trucs dans la FAQ que j'ai adapté, mais rien ne se passe quand le cas se présente......
L'état est créé mais il est vide, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub OpenReport()
 
Dim nbre As Integer
nbre = DCount("nom latin", "fiche espece")
 
' On teste si la requete possède des enregistrements
If nbre < 0 Then
MsgBox "pas d'espèce de ce nom", vbOKOnly, "ATTENTION !"
Else
DoCmd.Close acReport, "fiche espece", acSaveYes
End If
End Sub

D'avance merci pour les conseils et les corrections.

Mumu64

[Domi2]

Bonjour,

Il faut utiliser l'événement Sur aucune donnée de l'état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Report_NoData(Cancel As Integer)
 
    MsgBox "Aucune donnée"
 
    Cancel = True
 
End Sub

Domi2

[mumu64]

Salut Domi2,

Encore une fois tu m'enlèves une épine du pied.....
C'est simple et efficace !

Merci beaucoup !

@+ et joyeuses fêtes !

Mumu64