Bonjour,

J'ai créé une base de donnée dans laquelle je voudrais au moment de la fermeture d'un formulaire par l'utilisateur(par un click sur la croix), vérifier s'il est vraiment sûr de vouloir quitter, et si la réponse est non, d'empêcher la fermeture...

est-ce que l'instruction docmd.cancelevent peut servir à cela?
et sinon comment faire?

Merci
yaf_yaf

Pour cela, met le code suivant dans l'evenement sur clique :

dim num as integer

num = MsgBox("Vous allez faire qq chose. Cliquer sur oui pour confirmer ou non pour annuler.", vbInformation + vbYesNo, "Microsoft Press")
Select Case num
Case vbYes
'Met ici ton code lorsqu'on clique sur oui(dans ton cas rien)
Case vbNo
'Met ici ton code lorsqu'on clique sur non(dans ton cas le code pour la fermeture)
End select

Ca dvrait marcher sans pb, si yen a di le moi!

Hasen

merci
ton code me plais mais il ne répond pas à tout car ce qui me manque c le code lorsque la personne va cliquer sur non:
pour empêcher la fermeture.....
Sinon, je teste la chose dans form_close car c'est la fonction qui se lance lorsque l'on appuie sur la croix mais peut-être que je m'y prend mal....

yaf_yaf

Tiens Yaf_Yaf

Voilà ce qu'il faut mettre dans l'évènement QueryClose :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim rep As String rep = MsgBox("voulez vous vraiment quitter ?", vbYesNo) If rep = vbNo Then Cancel = True Else MsgBox "au revoir" End If End Sub

Fanny

Merci Fanny
cancel = true tout simplement....
J'ai l'art de poser des questions qd les réponse sont toutes bêtes
lol
avec ca il me reste plus qu'à commenter mon travail.....c d'un chi.....surtout en allemand

yaf_yaf

euh, le compilateur aime pas
form_close(cancel as integer,closemode as integer)
j'ai essayé en mettant cancel as boolean au lieu de cancel as integer car de tout manière c un boolean si je le met à true et il me sort un message d'erreure des que j'essaie d'ouvrir le formulaire...
je capte queud...tout ce que je sais c que c cette ligne qui pose problème
?????
yaf_yaf

Lol

Tu sélectionnes ta UserForm dans la fenêtre de code et de l'autre côté (au niveau des évènements), tu choisis :
QUERYCLOSE ou QUERYUNLOAD

Et là, tu mets le code que tu veux

Fanny

j'veux bien mais mon formulaire n'a pas d'évênements queryclose ni queryunload, uniquement close et unload...


yaf_yaf

toi aussi tu bosses en allemand ? a c est la galere pour trouver les fonctions .....

Jai quasiment fini ma base mais il me reste plus qu a gerer un systeme de remplissage et dupdate de la base garce a des fichiers excel.

Le probleme est que j ai un champs qui possede plusieurs valeurs separees par des points virgule. Je voudrai transformer ce champ en un tableau ayant autant de ligne que de valeur en detectant les differentes valeurs grace au symbole de sépartion qu est la virgule!!

ex 1234;4567;7891; => 1234
4567
7890

Je suis quaiment sur que ca existe mais je connais pas le nom ...

Si tu sais Merci

Pour toi lhomme il faut que tu fasses :

Dim tableau() As Integer
tableau = Split(tavariable,";")


Yaf :
Il te dit quoi comme évènement qui peut ressembler à une méthode queryclose ?

Fanny