Discussion :

[nassu]

salut ,
bon clair ce que je veux faire ce resume rapidement a :
si etat est vide affiche message " ya rien" sinon lance etat.
je pense que ca résume tous ?
merci

[Faw]

Salut, événement Sur aucune donnée ou alors tester si recordsetclone.recordcount > 0

[nassu]

Salut, événement Sur aucune donnée ou alors tester si recordsetclone.recordcount > 0

erreur d'éxecution 7951 !
pas ca
merci

mon code est comme suite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmd1_click()
If RecordsetClone.RecordCount > 0 Then
   If Me.chk11.Value = True Then
   DoCmd.OpenReport "amortissement par filtre groupe", acPreview
   Else
   DoCmd.OpenReport "amortissement par filtre individuel", acPreview
   End If
Else
MsgBox "ya rien", vbOKOnly
End If
End Sub

[Faw]

heu...le test de recordsetclone.recordcount doit être fait sur Ouverture
du report. Comment veux-tu tester ce que retourne ton état avant même
de l'avoir ouvert. Utilise [Me.recordsetclone.recordcount] pour le test et Cancel = true pour annuler l'ouverture...

[Faw]

Désolé, manifestement Recordsetclone.recordcount ne réagit pas de la
même façon que pour Openform. Le plus simple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cmd1_click()
On error resume next
   If Me.chk11.Value = True Then
   DoCmd.OpenReport "amortissement par filtre groupe", acPreview
   Else
   DoCmd.OpenReport "amortissement par filtre individuel", acPreview
   End If
 
End Sub

et sur l'événement Sur aucune donnée de chacun de tes Reports tu mets

Code :

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

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
MsgBox "rien à éditer"
Cancel = True
End Sub

et ça devrait aller.

[stéphane_ais2]

Bonjour,

Simplement une petite question :
Est-ce que le code

Code :

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

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
MsgBox "rien à éditer"
Cancel = True
End Sub

ne suffit-il pas à gérer l'absence de données à éditer?

SE

[Faw]

Bonjour,

Simplement une petite question :
Est-ce que le code

Code :

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

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
MsgBox "rien à éditer"
Cancel = True
End Sub

ne suffit-il pas à gérer l'absence de données à éditer?

SE

oui bien sûr, l'autre code ne sert qu'à ouvrir les reports.
je l'ai repris pour enlever ce qui ne sert à rien (C ma faute) et surtout
pour intercepter le message "L'action OpenReport a été annulée" déclanché par le Cancel. C'est ce que fait cette ligne

Code :

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

On error resume next