Discussion :

[gui-llaume]

Bonjour,

j'ai créé le code suivant pour éditer un état a partir d'un click sur un bouton d'un form.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmd_edition_massive_Click()
 
DoCmd.SetWarnings False
 
' edition etat
DoCmd.OpenReport "facture"
 
'mise a jour table facture
DoCmd.RunSQL ("UPDATE facture Set dateedition=date() WHERE dateedition is null;")
 
DoCmd.SetWarnings True
 
err_generation_factures_Click:
    Select Case err.Number
        Case 2501
            'rien à faire
        Case Else
            msgbox err.Description
    End Select
Exit Sub
 
End Sub

dans le code du formulaire , j'ai :

Code :

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

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
    msgbox "Impossible d'ouvrir l'état : aucune données à afficher", vbCritical
    Cancel = True
End Sub

bizarrement, lorsque j'execute le code et que l'evenement no data est levé, il me stoppe a

Code :

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

DoCmd.OpenReport "facture"

cette méthode marche sur une autre base mais pas sur celle ci.

Avez vous une idée ?

[gui-llaume]

j'avais oublié de placer la ligne

Code :

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

on error err_generation_factures_Click:

au début du code pour aller a la gestion d'erreur contenue dans mon code !!

vba, ca ne pardonne pas ...