Discussion :

[nicomidas]

Bonjour,

J'ai besoin de vous pour compéter un bout de code sur un formulaire.

Pour la fermeture sans enregistrer ce qu'a effectué l'utilisateur j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Commande1035_Click()
If MsgBox("Voulez-vous quitter sans enregistrer?", vbQuestion + vbYesNo, "QUITTER LE FORMULAIRE?") = vbNo Then
Me.Undo
Cancel = True
End If
DoCmd.Close acForm, "F_ajout de données"
End Sub

(désolé je ne sais pas comment mettre dans un cadre bleu ce code)


J'aimerai que si l'utilisateur mets "NON", le formulaire ne se ferme pas.

J'ai déjà essayé de mettre le DoCmd dans la boucle mais je ne sais pas comment faire ensuite.

Merci.

Nico

[User]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Commande1035_Click()
 
   If MsgBox("Voulez-vous quitter sans enregistrer?", vbQuestion + vbYesNo, "QUITTER LE FORMULAIRE?") = vbYes Then
      Me.Undo
      DoCmd.Close acForm, "F_ajout de données"
   End If
 
End Sub

Non testé

[nicomidas]

Génial ça fonctionne merci!

Savez-vous si il existe un site qui recense les différentes expression (simple et basique : fermer une fenêtre etc.) que l'on peut écrire en code VBA dans Access?

Comme je n'ai aucune compétence dans ce domaine je pioche dans différents forum mais des fois ça ne suffit pas!

Encore merci!

Nico

[User]

Tu peux déjà faire une recherche avec google en tapant:
Docmd vba

Tu auras des documents de référence.

Cdlt,