MsgBox de validation - Choix Oui ou Non même effet

Le
po2b
Bonjour à Tous,

Pour faire suite à ma demande d'hier (encore merci à FFO), je souhaite
donner le choix à l'utilisateur de
lancer ou non la commande d'importation.

J'ai ajouté ce code (voir plus bas) en préambule mais que je clique sur Oui
ou sur Non, la commande se lance dans tous les
cas.
J'ai donc dû commettre une erreur quelque part Pouvez-vous m'aider ?

Merci d'avance

PO

If MsgBox("Voulez-vous procéder à l'importation des fichiers ?",
vbYesNo + vbQuestion, "Demande de validation") = vbNo Then
'Si réponse Oui je valide et la commande séxécute
Me.Undo
'Si réponse Non je ne valide pas, je reviens au formulaire
Cancel = True
End If
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jero
Le #20746151
Salut,
If MsgBox("Voulez-vous procéder à l'importation des fichiers ?",
vbYesNo + vbQuestion, "Demande de validation") = vbYes Then
'Ici placer le code pour l'importation
For Each tdf In CurrentDb.TableDefs
If tdf.Name = "invent_der" Then
CurrentDb.Execute "Drop Table invent_der"
End If
Next
'Je crois....que c'est celui-là
End If
Et c'est tout.
A+
"po2b"
Bonjour à Tous,

Pour faire suite à ma demande d'hier (encore merci à FFO), je souhaite
donner le choix à l'utilisateur de
lancer ou non la commande d'importation.

J'ai ajouté ce code (voir plus bas) en préambule mais que je clique sur
Oui ou sur Non, la commande se lance dans tous les
cas.
J'ai donc dû commettre une erreur quelque part ... Pouvez-vous m'aider ?

Merci d'avance

PO

If MsgBox("Voulez-vous procéder à l'importation des fichiers ?",
vbYesNo + vbQuestion, "Demande de validation") = vbNo Then
'Si réponse Oui je valide et la commande séxécute
Me.Undo
'Si réponse Non je ne valide pas, je reviens au formulaire
Cancel = True
End If


po2b
Le #20746691
Bonjour Jero

J'ai remplacé le VbNo Then par le vbYes Then comme tu me l'indiquais, j'ai
enlevé le reste et
remis le End If en fin de code pour boucler et ça fonctionne très bien.

Je te remercie pour ton aide.

PO



"jero" news:
Salut,
If MsgBox("Voulez-vous procéder à l'importation des fichiers ?",
vbYesNo + vbQuestion, "Demande de validation") = vbYes Then
'Ici placer le code pour l'importation
For Each tdf In CurrentDb.TableDefs
If tdf.Name = "invent_der" Then
CurrentDb.Execute "Drop Table invent_der"
End If
Next
'Je crois....que c'est celui-là
End If
Et c'est tout.
A+
"po2b"
Bonjour à Tous,

Pour faire suite à ma demande d'hier (encore merci à FFO), je souhaite
donner le choix à l'utilisateur de
lancer ou non la commande d'importation.

J'ai ajouté ce code (voir plus bas) en préambule mais que je clique sur
Oui ou sur Non, la commande se lance dans tous les
cas.
J'ai donc dû commettre une erreur quelque part ... Pouvez-vous m'aider
?

Merci d'avance

PO

If MsgBox("Voulez-vous procéder à l'importation des fichiers ?",
vbYesNo + vbQuestion, "Demande de validation") = vbNo Then
'Si réponse Oui je valide et la commande séxécute
Me.Undo
'Si réponse Non je ne valide pas, je reviens au formulaire
Cancel = True
End If






Publicité
Poster une réponse
Anonyme