Bonjour=20
J'ai r=E9aliser la proc=E9dure suivante :
Private Sub Commande_Click()
If msgbox(".......", vbOKCancel) =3D vbOK Then
DoCmd.OpenReport "cde", acViewPreview, , [ctrl] =3D Forms!
[form1]![ctrl1]
Else
Cancel =3D True
End If
End Sub
Et il me dit pour Variable non d=E9clar=E9 pour Cancel. J'ai=20
d'autres fonction avec Cancel=3Dtrue est =E7a marchait tr=E9s=20
bien
Ou est le probl=E8me?
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
Eric
"didier" écrivait news:1c5ff01c45230 $f4720f00$:
Bonjour J'ai réaliser la procédure suivante : Private Sub Commande_Click() If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] Else Cancel = True End If End Sub Et il me dit pour Variable non déclaré pour Cancel. J'ai d'autres fonction avec Cancel=true est ça marchait trés bien Ou est le problème?
Bonjour Didier
Il n'y a pas d'annulation possible sur un évènement Clic d'ailleurs ca n'est pas proposé dans ta procédure comme sur BeforeUpdate par exemple.
Mets un exit sub sur le Else.
If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] Else Exit Sub End If End Sub
Bonjour
J'ai réaliser la procédure suivante :
Private Sub Commande_Click()
If msgbox(".......", vbOKCancel) = vbOK Then
DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms!
[form1]![ctrl1]
Else
Cancel = True
End If
End Sub
Et il me dit pour Variable non déclaré pour Cancel. J'ai
d'autres fonction avec Cancel=true est ça marchait trés
bien
Ou est le problème?
Bonjour Didier
Il n'y a pas d'annulation possible sur un évènement Clic
d'ailleurs ca n'est pas proposé dans ta procédure comme sur BeforeUpdate
par exemple.
Mets un exit sub sur le Else.
If msgbox(".......", vbOKCancel) = vbOK Then
DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms!
[form1]![ctrl1]
Else
Exit Sub
End If
End Sub
Bonjour J'ai réaliser la procédure suivante : Private Sub Commande_Click() If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] Else Cancel = True End If End Sub Et il me dit pour Variable non déclaré pour Cancel. J'ai d'autres fonction avec Cancel=true est ça marchait trés bien Ou est le problème?
Bonjour Didier
Il n'y a pas d'annulation possible sur un évènement Clic d'ailleurs ca n'est pas proposé dans ta procédure comme sur BeforeUpdate par exemple.
Mets un exit sub sur le Else.
If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] Else Exit Sub End If End Sub
A+ Eric
Eric
re
j'avais lu rapidement. si sur le Else tu n'as rien à faire, ne mets pas de Else. Ta proc devient:
If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] End If End Sub
Eric
Bonjour Didier
Il n'y a pas d'annulation possible sur un évènement Clic d'ailleurs ca n'est pas proposé dans ta procédure comme sur BeforeUpdate par exemple.
Mets un exit sub sur le Else.
If msgbox(".......", vbOKCancel) = vbOK Then DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms! [form1]![ctrl1] Else Exit Sub End If End Sub
A+ Eric
re
j'avais lu rapidement.
si sur le Else tu n'as rien à faire, ne mets pas de Else.
Ta proc devient:
If msgbox(".......", vbOKCancel) = vbOK Then
DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms!
[form1]![ctrl1]
End If
End Sub
Eric
Bonjour Didier
Il n'y a pas d'annulation possible sur un évènement Clic
d'ailleurs ca n'est pas proposé dans ta procédure comme sur
BeforeUpdate par exemple.
Mets un exit sub sur le Else.
If msgbox(".......", vbOKCancel) = vbOK Then
DoCmd.OpenReport "cde", acViewPreview, , [ctrl] = Forms!
[form1]![ctrl1]
Else
Exit Sub
End If
End Sub
