Bouton Formulaire de saisie avec message de confirmation

Fermé
senecartour Messages postés 324 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 29 janv. 2014 à 18:12
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 29 janv. 2014 à 18:55
Bonjour,

J'ai crée un formulaire de saisie avec un bouton "Enregistrer" permettant de copier les données dans ma feuille nommée "Base".

Seulement, je souhaiterais qu'avant la copie des données, c'est à dire après avoir cliquer sur le bouton "Enregistrer", obtenir un message de type "Voulez-vous enregister la saisie?".
-Si je répond "Oui" les données sont enregistrées
-Si je répond "Non" je quitte le formulaire de saisie

Merci pour votre aide.


A voir également:

1 réponse

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 janv. 2014 à 18:55
Bonjour,

A adapter selon le besoin:

Private Sub CommandButton1_Click()
Dim rep As Integer

    rep = MsgBox("Voulez-vous enregister la saisie ?", vbYesNo, "Enregistrement")
    
    If rep = vbYes Then
        'code pour insérer les données
    Else
        Unload Me 'Fermeture du formulaire
    End If
    
End Sub

0