J'ai un =E9tat avec un sous =E9tat (d=E9coupage par colonne)
j'ai appliqu=E9 la proc=E9dure suivante =E0 mon sous =E9tat afin=20
d'annuler une impession suivant la valeur d'un controle=20
de mon sous =E9tat
Private Sub Report_Open(Cancel As Integer)
If Me.Quantit=E9 =3D DCount("[nomchamp]", "nomtable", "[Code=20
article]=3D Reports![nometat]![sousetat]![nomctrl]") Then
Exit Sub
Else
msgbox "erreur de N=B0 , impression impossible"
DoCmd.Close acReport, "Bon de livraison"
End If
End Sub
mais il n'aime pas
Ou est l'erreur?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"didier" J'ai un état avec un sous état (découpage par colonne) j'ai appliqué la procédure suivante à mon sous état afin d'annuler une impession suivant la valeur d'un controle de mon sous état Private Sub Report_Open(Cancel As Integer) If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code article]= Reports![nometat]![sousetat]![nomctrl]") Then Exit Sub Else msgbox "erreur de N° , impression impossible" DoCmd.Close acReport, "Bon de livraison" End If End Sub mais il n'aime pas Ou est l'erreur?
Me.Quantité et nomctrl ne sont peut-être pas connu dès l'ouverture... et il faudrait aussi utiliser le "Cancel=True" avant ton "Exit Sub"
Plus propre serait de vérifier ces valeurs *avant* d'ouvrir l'état.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"didier"
J'ai un état avec un sous état (découpage par colonne)
j'ai appliqué la procédure suivante à mon sous état afin
d'annuler une impession suivant la valeur d'un controle
de mon sous état
Private Sub Report_Open(Cancel As Integer)
If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code
article]= Reports![nometat]![sousetat]![nomctrl]") Then
Exit Sub
Else
msgbox "erreur de N° , impression impossible"
DoCmd.Close acReport, "Bon de livraison"
End If
End Sub
mais il n'aime pas
Ou est l'erreur?
Me.Quantité et nomctrl ne sont peut-être pas connu dès l'ouverture...
et il faudrait aussi utiliser le "Cancel=True" avant ton "Exit Sub"
Plus propre serait de vérifier ces valeurs *avant* d'ouvrir l'état.
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"didier" J'ai un état avec un sous état (découpage par colonne) j'ai appliqué la procédure suivante à mon sous état afin d'annuler une impession suivant la valeur d'un controle de mon sous état Private Sub Report_Open(Cancel As Integer) If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code article]= Reports![nometat]![sousetat]![nomctrl]") Then Exit Sub Else msgbox "erreur de N° , impression impossible" DoCmd.Close acReport, "Bon de livraison" End If End Sub mais il n'aime pas Ou est l'erreur?
Me.Quantité et nomctrl ne sont peut-être pas connu dès l'ouverture... et il faudrait aussi utiliser le "Cancel=True" avant ton "Exit Sub"
Plus propre serait de vérifier ces valeurs *avant* d'ouvrir l'état.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Yann
Salut Didier, Ne serai-ce pas Reports![nometat].[sousetat]![nomctrl] au lieu de Reports![nometat]![sousetat]![nomctrl] ???
Bye Yann
-----Message d'origine----- Bonsoir
J'ai un état avec un sous état (découpage par colonne) j'ai appliqué la procédure suivante à mon sous état afin d'annuler une impession suivant la valeur d'un controle de mon sous état Private Sub Report_Open(Cancel As Integer) If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code article]= Reports![nometat]![sousetat]![nomctrl]") Then Exit Sub Else msgbox "erreur de N° , impression impossible" DoCmd.Close acReport, "Bon de livraison" End If End Sub mais il n'aime pas Ou est l'erreur? .
Salut Didier,
Ne serai-ce pas Reports![nometat].[sousetat]![nomctrl] au
lieu de Reports![nometat]![sousetat]![nomctrl] ???
Bye
Yann
-----Message d'origine-----
Bonsoir
J'ai un état avec un sous état (découpage par colonne)
j'ai appliqué la procédure suivante à mon sous état afin
d'annuler une impession suivant la valeur d'un controle
de mon sous état
Private Sub Report_Open(Cancel As Integer)
If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code
article]= Reports![nometat]![sousetat]![nomctrl]") Then
Exit Sub
Else
msgbox "erreur de N° , impression impossible"
DoCmd.Close acReport, "Bon de livraison"
End If
End Sub
mais il n'aime pas
Ou est l'erreur?
.
Salut Didier, Ne serai-ce pas Reports![nometat].[sousetat]![nomctrl] au lieu de Reports![nometat]![sousetat]![nomctrl] ???
Bye Yann
-----Message d'origine----- Bonsoir
J'ai un état avec un sous état (découpage par colonne) j'ai appliqué la procédure suivante à mon sous état afin d'annuler une impession suivant la valeur d'un controle de mon sous état Private Sub Report_Open(Cancel As Integer) If Me.Quantité = DCount("[nomchamp]", "nomtable", "[Code article]= Reports![nometat]![sousetat]![nomctrl]") Then Exit Sub Else msgbox "erreur de N° , impression impossible" DoCmd.Close acReport, "Bon de livraison" End If End Sub mais il n'aime pas Ou est l'erreur? .
