Discussion :

[cjay974]

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 :

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

Me.SF_principal.SourceObject = ""

Au clic sur "Menu1",

Code :

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

Me.SF_principal.SourceObject = "Form1"

Au clic sur "Menu2",

Code :

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

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

[loufab]

Bonjour,

Il faut utiliser un if endif comme ceci :

Code :

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

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

Cordialement,

[cjay974]

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

[loufab]

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 :

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

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 :

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

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,

[cjay974]

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 :

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

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 :

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

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