Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

2 réponses
Avatar
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

2 réponses

Avatar
jero
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" a écrit dans le message de news:

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


Avatar
po2b
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" <~ a écrit dans le message de
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" a écrit dans le message de news:

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