procédures sur changement source d'un sous formulaire

Bonsoir a tous,

Après plusieurs essais ratés, je me permets de revenir vers le forum pour m'aider à trouver une solution.

J'ai un formulaire "F_principal" sur lequel j'ai un menu (groupe d'option)
Dans ce formulaire, j'ai mis un sous-formulaire "SF_principal" dont la source (SourceObject) change en fonction du clic sur le groupe d'option.
Groupe d'option composé comme suit:
Accueil
Menu1
Menu2
...
Au clic sur "Accueil",

Code:

---

Me.SF_principal.SourceObject = ""

---

Au clic sur "Menu1",

Code:

---

Me.SF_principal.SourceObject = "Form1"

---

Au clic sur "Menu2",

Code:

---

Me.SF_principal.SourceObject = "Form2"

---

Jusque là pas de soucis tout fonctionne

L'objet de ma demande est le suivant :
"Menu1" est cliqué =>"Form1" est affiché dans le sous formulaire "SF_principal", si je clic sur n'importe lequel des boutons du groupe d'option, je souhaiterais mettre un message MSGBOX avec "okcancel" avant de continuer ou pas la procédure.
Le Msgbox je sais comment le faire mais je ne sais pas où le positionner

Bien cordialement;)

Bonjour,

Il faut utiliser un if endif comme ceci :

Code:

---

1 2 3

If vbOK = MsgBox("confirmez-vous ?", vbOKCancel, "titre") Then Me.SF_principal.SourceObject = "valeur" End If

---

Cordialement,

Bonjour et merci a toi LOUFAB de ta réponse.

Je pense ne pas avoir été assez précis dans mon message et m'en excuse.

Le msg box que je veux mettre est bien du style de ce que tu propose if endif mais ma question est où le mettre

j'avais essayé de positionner sur propriété de Form1 (par exemple) sur:
-avant MAJ
-Sur perte FOCUS
-Sur fermeture
-Sur désactivé
-Sur libération

J'ai également essayé de positionner sur "sortie" du SF_principal

A savoir sur quand la source de SF_principal est Form1 le if endif avec msgbox est est différent de Form2....
La procédure doit donc être lancée avant d'enlever la source du SF_principal et non pas au chargement de la nouvel source


Cordialement

Si le but est de contrôler le changement de SourceObject il faut le faire avant qu'il ne soit déclenché, donc sur clic du groupe d'option :

Je verrais un truc dans ce style :

Une procédure dans le formulaire principal :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub sLoadSourceObject(strSourceName as String)   if Me.SF_principal.SourceObject = "" then Me.SF_principal.SourceObject = strSourceName else if vbok=msgbox(....) then Me.SF_principal.SourceObject = strSourceName end if end if   end sub

---

un appel de ce style dans le Sur clic du GO :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

select case me.groupeOption.value case 0 'rien sLoadSourceObject "" case 1 sLoadSourceObject "form1" case 2 sLoadSourceObject "form2" case 3 ... end select

---

J'ai un petit doute sur l'appel mais la méthode est là.

Cordialement,

Bonjour LOUFAB

Excuse moi du retard mais une grosse semaine de boulot.

Merci pour tes lumières cela m'a permis de voir les choses en ton sens c'est à dire de mettre un if/end if sur le clic du groupe d'option comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Menu_Princ_Click() If Me.SF_PRINCIPAL.SourceObject = "" Then Select Case Me.Menu_Princ.Value Case 1 'Accueil ... Case 2 'Menu1 ... Case 3 'Menu2 ... Else MsgBox "Merci de fermer le formulaire avant d'en ouvrir un autre.", vbCritical, "Message" DoCmd.CancelEvent End If End Sub

---

J'ai également mis un bouton "FERMER" sur chacun des formulaires (Form1, Form2, ...) codé comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub BTN_QUIT_Users_NEW_Click() If (vérification avant de fermer) Then MsgBox "Merci de compléter la fiche ou de la vider avant de quitter le formulaire.", vbCritical, "Création User" DoCmd.CancelEvent Else Me.Parent.Menu_Princ.Value = 0 Me.Parent.TexteFocus.SetFocus Me.Parent.SF_PRINCIPAL.SourceObject = "" End If End Sub

---

Merci encore a toi de m'avoir ouvert la voix

Et encore un grand bravo au forum cela fait des années que j'y suit inscrit et toujours des gens très sympathiques pour m'aider.

Cordialement