Boite de dialogue OUI/NON en VBA pour Access Résolu/Fermé

Question

Bonjour,

J'essaie de programmer une boite de dialogue oui/non dans Access 2003.
Voici mon code :

Private Sub Commande7_Click()

On Error GoTo Err_Commande7_Click

MsgBox "Attention ! Voulez-vous faire le tranfert des données ?", vbYesNo
If vbYes Then
     stDocName = "transfert"
     DoCmd.RunMacro stDocName
Else
End If

Exit_Commande7_Click:
    Exit Sub

Err_Commande7_Click:
    MsgBox Err.Description
    Resume Exit_Commande7_Click
    
End Sub


Mon problème est que l'on clique sur OUI ou sur NON, la macro "Transfert" s'execute a chaque fois.
Quelqu'un peut me dire ou est mon erreur.

Merci

Polux31 · Accepted Answer

Bonjour,

Essaies ça

Private Sub Commande7_Click() 
Dim OuiNon As Integer

On Error GoTo Err_Commande7_Click 

OuiNon = MsgBox ("Attention ! Voulez-vous faire le tranfert des données ?", vbYesNo)
If OuiNon = vbYes Then 
stDocName = "transfert" 
DoCmd.RunMacro stDocName
Exit Sub
Else 
Exit Sub
End If 

Exit_Commande7_Click: 
Exit Sub 

Err_Commande7_Click: 
MsgBox Err.Description 
Resume Exit_Commande7_Click 

End Sub 


;o)

Polux

nathh76 · Answer

Ca marche !!!
Merci beaucoup pour ton aide.
Je suis vraiment pas doue en VBA
Ecore merci

Polux31 · Answer

de rien, content de t'avoir aidé :o))

76 c'est ton age ou ton département ?

;o)

Polux

Polux31 · Answer

Rhooooooooo le prend pas mal ... je wiiiigoooleee ... je suis actuellement dans le 76 aussi et j'ai pas 31 ans ...

;o)

polux

Polux31 · Answer

heuuuu .... non ... pas de solution ... je l'aurai déjà appliquée sur moi, mais malheureusement le temps à courru encore plus vite pour moi :-sss ... Et franchement 31 ans c'est jeune, très très jeune même :o))

Je suis dans le nord du 76 et toi ?

;o)

polux

Polux31 · Answer

Arrrfffff je suis originaire de Rouen ... belle ville ... mais je me suis expatrié à Toulouse (belle ville aussi) ... Je suis en mission à Eu depuis 2 semaines. Me sens un peu seul, mais bon, la mer est belle et la campagne toujours aussi verte :o)

Je vais pas t'embêter plus longtemps. Si tu as besoin d'aide, n'hésites pas, si je peux t'aider, je le ferai avec grand plaisir.

Bon courage pour la suite.

kiss

;o)

polux

PS: On mange de très bonnes moules ici ... si ça te dis ... lol ... ... ok, je sors !!!

nathh76 · Answer

En ce qui concerne les moules je suis allée en manger Samedi soir à Dieppe, elles etaient bonnes aussi.
Originaire de la region depuis toujours et j'ai pas envie d'en changer.

Merci encore pour ton aide

Polux31 · Answer

J'étais à Dieppe également samedi, mais l'après midi pour faire du tourisme ... et attraper un coup de soleil ... un comble .. mdrrr

Content de t'avoir rendu service.

;o)

Boite de dialogue OUI/NON en VBA pour Access

8 réponses

Discussions similaires