|
|
|
|
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
Configuration: Windows XP Internet Explorer 7.0
Bonjour,
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 |
Répondre à nathh76
|
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)
|
Adodb et dao vba access Affichage d'une liste déroulante dans une boîte de dialogue en vba pour excel Ajouter une boite de dialogue sur vba Boite alerte vba access Boite dialogue javascript Boites dialogue vba Creér une boite de dialogue dans vba Livre vba access pour débutant Mfc afficher boite dialogue premier plan Recuperer vba access 2007 export auto xlsx Sql vba access Vba access erreur 3075 Vba access 2007 identifier un état Vba access 2007 importer txt séparateur ; Vba access 2007 move next Vba access convertir en numérique Vba access entier en string Vba insertion zone boite dialogue dans word
