Discussion :

[silverfly]

Bonjours.

Encore un nouveau problème

Dans un formulaire, j'ai 5 onglets.
Je souhaiterais, si cela est possible, faire en sorte que dès que :
° je change de formulaire,
° je quitte la page,
° je clique sur une liste déroulante définit
Cela m'affiche

Code :

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

1
2
 
Reponse = MsgBox("Voulez-vous sauvegardez vos changements?", vbYesNoCancel, "Sauvegarder")

Bien sur, cela agirait en fonction de la réponse
Seulement :
° je ne vois pas du tout quels événements je dois prendre :/
° Je ne sais pas comment créer une fonction ( mais je vais voir le tuto juste après ce message :p )

Merci d'avance pour votre aide !

[zibi7]

salut,

Code :

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

1
2
3
4
5
6
7
If reponse = vbYes Then
   docmd.closeform,"nom",acsaveyes
Else
   If reponse = vbNo Then
      docmd.closeform,"nom",acsaveno
   End If
End If

c'est ça que tu cherchais?
@+

[silverfly]

enfaite, cette partie du code je l'avais :p

Je réexplique :

Je souhaiterais utiliser une seule fonction qui ferait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Reponse As Variant
 
Reponse = MsgBox("Voulez-vous sauvegardez vos modifications?", vbYesNoCancel, "Sauvegarder")
 
If Reponse = vbYes Then
   ' requête SQL envoyé par variable à la fonction
  db.execute ...
Else
   If Reponse = vbNo Then
   End If
End If

Seulement, je ne sais pas tout d'abord, comment je dois mettre la fonction (dans un module ?)
Et ensuite, je ne sais pas dans quels evenements je dois y faire appel.
Je souhaiterais que ca nous lance la fonction :
° lorsque l'on change d'onglet ( un genre de OnOngletChange() :p )
° lorsque l'on quitte le formulaire ( je l'ai, OnButtonClick() )
° lorsque je change d'enregistrement (clique sur une liste) => celui-là il est ok

[zibi7]

Re,

Tu peux mettre la fonction précédé d'un public function dans un module
en paramètre elle prendera un string (reponse). Tu pourras l'appeler d'où tu veux dans l'application.

J'avoue que pour les onglets je ne connais pas les événements; mais pour les deux autres il suffirais d'appeler la fonction en lui passant pour paramètres les réponses comme: enregistrer(reponse)

Je suis la discussion, je suis intéressée de savoir les événement des onglets!

@+

[adriennoob]

salut, je suis débutant mais moi je ferais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Answer As Interger
 
Answer = MsgBox("Voulez-vous sauvegardez vos modifications?", vbYesNoCancel + vbDefaultButton3, "sauvergarde")
 
Select Case Answer
    Case vbYes
'tu appelles ta macro si t'appuye sur yes
    DoCmd.RunCommandMacro "ta macro enregsitrer et fermer"
 
 
    Case vbNo
    DoCmd.RunCommandMacro "ta macro pas enregistrer et fermer"
 
    Case vbCancel
    DoCmd.CancelEvent

Voilà comment je ferais, t'as juste à te créer deux macro que tu appelles dans ton code.