MsgBox de validation - Choix Oui ou Non même effet
2 réponses
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
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
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
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" <po2b@newsgroup.fr> a écrit dans le message de news:
5075668E-D5E8-4E24-9A34-6A920CAD00E1@microsoft.com...
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
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
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
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" <~jero@jero.net> a écrit dans le message de
news:uBF4YjmeKHA.4952@TK2MSFTNGP06.phx.gbl...
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" <po2b@newsgroup.fr> a écrit dans le message de news:
5075668E-D5E8-4E24-9A34-6A920CAD00E1@microsoft.com...
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
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