Discussion :

[rcan7412]

Bonjour,

Comment adapter ce code applicable à un état à un sous formulaire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande208_Click()
Dim strWhere As String
Select Case Groupe
Case 1
DoCmd.OpenReport "E_ListeClientMission", acPreview, , "" & "[CodeClient]=" & "'" & Me![Texte144] & "'"
Case 2
DoCmd.OpenReport "E_ListeClientMission", acPreview, , "DateTrav Is not Null And [CodeClient]='" & Me![Texte144] & "'"
Case 3
DoCmd.OpenReport "E_ListeClientMission", acPreview, , "DateTrav Is Null And [CodeClient]='" & Me![Texte144] & "'"
End Select
 
End Sub

J'aimerais qu'en fonction du bouton d'option choisi, le sous-formulaire soit rafraîchi ?

Est-ce facilement réalisable ?

Merci pour l'aide

[helas]

sf est le nom du controle sous-formulaire
en cliquant l'option le sous-formulaire change

Code :

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

1
2
3
4
5
6
7
 
 Select Case Groupe
 Case 1
  Me!sf.SourceObject = "NomFormulaire1"
 Case 2
  Me!sf.SourceObject = "NomFormulaire2"
 End Select

[rcan7412]

En fait, je souhaite utiliser le même sous-formulaire mais en filtrant les données tout comme pour l'état :

option 1 : tous les enregistrements du client
option 2 : seulement les enregistrements du client pour lesquels le champ date n'est pas nul
option 3 : seulement les enregistrements du client pour lesquels le champ date est nul

Le code que tu proposes helas, implique la création de plusieurs formulaires, non ?

[Mahefasoa]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Select Case GroupeOption
   Case 1
      Me.sf.Form.FilterOn = False
   Case 2
      Me.sf.Form.Filter = "[ChampDate] Is Not Null"
      Me.sf.Form.FilterOn = True
   Case 3
      Me.sf.Form.Filter = "[ChampDate] Is Null"
      Me.sf.Form.FilterOn = True
End Select

sf est le sous-formulaire!

Bon courage et @+

[rcan7412]

Grand merci pour votre aide .

Voilà le code que j'ai adapté et la procédure est liée à un bouton de commande.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande269_Click()
 
Select Case Groupe
   Case 1
      Me.[F_commande sous-formulaire].Form.FilterOn = False
   Case 2
      Me.[F_commande sous-formulaire].Form.Filter = "[DateTrav] Is Not Null"
      Me.[F_commande sous-formulaire].Form.FilterOn = True
   Case 3
      Me.[F_commande sous-formulaire].Form.Filter = "[DateTrav] Is Null"
      Me.[F_commande sous-formulaire].Form.FilterOn = True
End Select
 
End Sub

Comment faire pour que lorsqu'on clique sur le bouton d'option la procédure est appliquée ? Pour le moment 2 clics sont nécessaires : celui du choix d'option + celui de la commande de filtre ?

[rcan7412]

J'ai trouvé, c'est assez simple en effet avec l'événement gotfocus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Option239_GotFocus()
      Me.[F_commande sous-formulaire].Form.FilterOn = False
End Sub
 
Private Sub Option241_GotFocus()
      Me.[F_commande sous-formulaire].Form.Filter = "[DateTrav] Is Not Null"
      Me.[F_commande sous-formulaire].Form.FilterOn = True
End Sub
 
Private Sub Option243_GotFocus()
      Me.[F_commande sous-formulaire].Form.Filter = "[DateTrav] Is Null"
      Me.[F_commande sous-formulaire].Form.FilterOn = True
End Sub

C'est gai quand on trouve