Erreur dans une commande

Le
Stephanie
Bonjour a vous tous,

j'ai crer un bouton de commande dans mon formulaire,
pour qu'elle imprime une page spcifique dans un tat,
voici mon code (Ou ma procdure)

Private Sub Commande53_Click()
On Error GoTo Err_Commande53_Click

Dim stDocName As String

stDocName = "Bonchange"
DoCmd.OpenReport "Bonchange", acPreview, , "[N] = " &
Me.N

Exit_Commande53_Click:
Exit Sub

Err_Commande53_Click:
MsgBox Err.Description
Resume Exit_Commande53_Click

End Sub

Mais ce message d'erreur m'apparat
) en trop dans l'expression '([N]=)'

J'ai cris ce code environ 10 fois et c'est la premire
fois que ce message m'apparait.

Aidez moi s'il vous plait

Stephanie
fanie82@bellnet.ca
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #5375631
Bonsoir Stephanie

Remplaces ta ligne DoCmd.OpenReport par
DoCmd.OpenReport "BonÉchange", acViewPreview, , "[N°]=" & Me.[N°]

ca marche ?
A+
Eric

"Stephanie" $:

Bonjour a vous tous,

j'ai créer un bouton de commande dans mon formulaire,
pour qu'elle imprime une page spécifique dans un état,
voici mon code (Ou ma procédure)

Private Sub Commande53_Click()
On Error GoTo Err_Commande53_Click

Dim stDocName As String

stDocName = "BonÉchange"
DoCmd.OpenReport "BonÉchange", acPreview, , "[N°] = " &
Me.N°

Exit_Commande53_Click:
Exit Sub

Err_Commande53_Click:
MsgBox Err.Description
Resume Exit_Commande53_Click

End Sub

Mais ce message d'erreur m'apparaît
) en trop dans l'expression '([N°]=)'

J'ai écris ce code environ 10 fois et c'est la première
fois que ce message m'apparait.

Aidez moi s'il vous plait

Stephanie




Eric
Le #5070241
re Stephanie



"Stephanie"
Bonjour a vous tous,

j'ai créer un bouton de commande dans mon formulaire,
pour qu'elle imprime une page spécifique dans un état,
voici mon code (Ou ma procédure)

Private Sub Commande53_Click()
On Error GoTo Err_Commande53_Click

Dim stDocName As String

stDocName = "BonÉchange"
DoCmd.OpenReport "BonÉchange", acPreview, , "[N°] = " &
Me.N°

Exit_Commande53_Click:
Exit Sub

Err_Commande53_Click:
MsgBox Err.Description
Resume Exit_Commande53_Click

End Sub

Mais ce message d'erreur m'apparaît
) en trop dans l'expression '([N°]=)'


Tu as ce message chaque fois que tu ne renseignes pas la zone de
texte N° dans ton formulaire. Donc il faudrait mettre en début de ta
procédure un test:

If Len(Me.N°)=0 Then Exit Sub

Eric

Eric
Le #5070231
Ooops non pas
if len(me.N°) =0 then Exit Sub
mais
if isnull(me.N°) then Exit Sub


Eric news::



ce message d'erreur m'apparaît
) en trop dans l'expression '([N°]=)'


Tu as ce message chaque fois que tu ne renseignes pas la zone
de texte N° dans ton formulaire. Donc il faudrait mettre en
début de ta procédure un test:

If Len(Me.N°)=0 Then Exit Sub

Eric






Publicité
Poster une réponse
Anonyme